 
 (defn- md-renderer
   "Create a Markdown renderer."
-  []
+  [function->category-info]
   (.. (HtmlRenderer/builder
        (doto (MutableDataSet.)
          (.set AnchorLinkExtension/ANCHORLINKS_ANCHOR_CLASS "md-anchor")

            (reify LinkResolver
              (resolveLink [_this _node _ctx link]
                (if (= (.getLinkType link) WikiLinkExtension/WIKI_LINK)
                  (ResolvedLink. LinkType/LINK
                                 (.getUrl link)
                                 nil
                                 LinkStatus/UNCHECKED)
                  link))))))
      (extensions md-extensions)
      (build)))

(defn markdown-to-html
  "Parse the given string as Markdown and return HTML."
  [markdown]
  (->> (.parse md-container markdown)
       (.render (md-renderer))))

(defn read-all [file feature]
  (let [reader (->> file

(defn merge-all-metas [metas1 metas2]
  (merge-with merge-metas metas1 metas2))

(defn generate-metas-to-file [file]
  (let [clj (-> (mapcat #(read-all % :clj) files)
                (get-metas :clj))
