 
 
 (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

      (write-doc html-relpath-pair target-dir)
      )))

(defn read-html
  "Reads a directory structure looking for html; returns the result as a vector
  of relative path-html"
  [src-dir]
  (let [docs (walk-docs-dir src-dir html?)]
    (into [] (for [doc docs
           :let [[html rel-path] (htmlify doc src-dir identity)]] ;; Is this a hack? WHY YES IT IS.
               [rel-path html]))))

        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]
