   (filter #(-> % second meta (contains? :category))
           all-forms))
 
-(defn get-full-meta [[type name docstring args :as form]]
+(defn get-full-meta [function->category-info [type name docstring args :as form]]
   (let [mt (meta name)
         args (if (vector? args)
                #{args}


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

           (com.vladsch.flexmark.ext.wikilink WikiLinkExtension)
           (com.vladsch.flexmark.util.options MutableDataSet)))

(defn as-url [str]
  (-> str
      (string/lower-case)
      (string/replace  #"[ &,?]" {" " "-"
                                  "," ""
                                  "&" "and"
                                  "?" "_q"})))

(defn wiki-link
  [function-name category subcategory]
  (str "/api"
       (when category (str "/" (as-url category)))
       (when subcategory (str "/" (as-url subcategory)))
       "#"
       function-name))

(def md-extensions
  [(TablesExtension/create)
   (AutolinkExtension/create)
