markdown.cljs

(ns nextjournal.markdown
  (:require ["/js/markdown" :as md]
            ["markdown-it/lib/token" :as Token]
            [applied-science.js-interop :as j]
            [nextjournal.markdown.parser :as markdown.parser]
            [nextjournal.markdown.transform :as markdown.transform]))

(extend-type Token
  ILookup
  (-lookup [this key] (j/get this key)))

(def tokenize md/tokenize)

(defn parse
  "Turns a markdown string into a nested clojure structure."
  [markdown-text] (-> markdown-text tokenize markdown.parser/parse))

(defn ->hiccup
  "Turns a markdown string into hiccup."
  ([markdown-text] (->hiccup markdown.transform/default-hiccup-renderers markdown-text))
  ([ctx markdown-text] (->> markdown-text parse (markdown.transform/->hiccup ctx))))

(comment
 (tokenize "# Title
- [ ] one
- [x] two
")

 (parse "# Hello Markdown
- [ ] what
- [ ] [nice](very/nice/thing)
- [x] ~~thing~~
")

 (->hiccup "# Hello Markdown

* What's _going_ on?
")

 (->hiccup
  (assoc markdown.transform/default-hiccup-renderers
    :heading (fn [ctx node]
               [:h1.some-extra.class
                (markdown.transform/into-markup [:span.some-other-class] ctx node)]))
  "# Hello Markdown
* What's _going_ on?
")

 ;; launch shadow cljs repl
 (shadow.cljs.devtools.api/repl :browser-test))