       (write-doc html-relpath-pair target-dir)
       )))
 
+;; Hrmmmmmmm. Could be useful for our markdown parser?
 (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.
+                   :let [[html rel-path] (htmlify doc src-dir identity)]] ;; Is this a hack? WHY YES IT IS.
                [rel-path html]))))
+
+
+(defn list-files-with-relative-paths
+  "Given a directory, list the contents as pairs of:
+  [path-relative-to-root file-handle]"
+  [root]
+  (let [all-files (walk-docs-dir root)]
+    (for [found-file all-files
+          :let [rel-path (truncate-str found-file root)]]
+      [rel-path found-file])))

      "/"
      (last (clojure.string/split fq-path-string splitting-regex)))))

(defn set-ext
  "For a given file with extension foo.bar, set extension to .html"
  [strang]
  (clojure.string/replace strang #"\.(\w+)$" ".html"))

(defn walk-docs-dir
  "Walk the docs; currently only looks for Markdown Documents."
  [doc-root pred]
  (let [docs-all (fs/walk vector doc-root) ;; Triple of directory path, directory name, file name
        filtered-docs (filter-files docs-all pred)
        assembled-result (assemble-file-filter-results doc-root filtered-docs)]
    assembled-result
    ))

(defn htmlify
  "Ingests a path. Turns the contents in to html, truncates the path, returns
  the pair."

        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]
