              (for [matched-file matched-files]
                (fs/file path matched-file)))))
 
-
+;; Yes yes yes. Super good.
 (defn truncate-str
   "Given a fully qualified root directory, correctly return the path, relative
   to a given root. I.E: given /foo/bar/baz and root baz, return /;

      "/"
      (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]
