         _      (assert (isa? :def thing))
         handle (thing->related-handle config thing)
         _      (assert thing)]
+    (.mkdirs (.getParentFile handle))
     (doseq [thing related-things]
       (spit handle (str (thing->path thing) \newline)
             :append true))))

        _      (assert thing)
        handle (thing->meta-handle config thing)
        _      (assert handle)]
    (spit handle (pr-str data))
    nil))


        _      (assert thing)
        handle (thing->notes-handle config thing)
        _      (assert thing)]
    (.mkdirs (.getParentFile handle))
    (spit handle data)))

;; FIXME: add write-example
