 
 
 (defn filter-files
-  "Vector Triple of (path, directories, files), and function that filters relevant doc-types"
+  "Vector Triple of (path, directories, files), and function that filters
+  relevant doc-types"
   [path-listing doc-type-fn]
   (into [] (for [[path directory files] path-listing
                  :let [found-files (filter doc-type-fn files)]
                  :when (not-empty found-files)]
              [path found-files])))
-
 
 (declare truncate-str)
 (defn assemble-file-filter-results

    (spit output-file html)))


;; This cool dood needs to be changed to use the new storage
;; backend... eventually. Or it needs to be removed? Unclear.
(defn read-and-write-dir
  "Searches a source dir for all files that match a given predicate.


        htmlified-path (set-ext truncated-path)]
    [html htmlified-path]))

;; Probably also deprecated? Or, part of the md parser?
(defn write-doc
  "This is prooooooobably not how we wanna do this f'reals?"
  [[html rel-path] target-dir]
