38 lines
898 B
Clojure
38 lines
898 B
Clojure
|
(ns cryogen-core.markup
|
||
|
|
(:require [markdown.core :refer [md-to-html-string]]
|
||
|
|
[clojure.string :as s])
|
||
|
|
(:import org.asciidoctor.Asciidoctor$Factory
|
||
|
|
java.util.Collections))
|
||
|
|
|
||
|
|
(defprotocol Markup
|
||
|
|
(dir [this])
|
||
|
|
(ext [this])
|
||
|
|
(render-fn [this]))
|
||
|
|
|
||
|
|
(defn- markdown []
|
||
|
|
(reify Markup
|
||
|
|
(dir [this] "md")
|
||
|
|
(ext [this] ".md")
|
||
|
|
(render-fn [this]
|
||
|
|
(fn [rdr]
|
||
|
|
(md-to-html-string
|
||
|
|
(->> (java.io.BufferedReader. rdr)
|
||
|
|
(line-seq)
|
||
|
|
(s/join "\n"))
|
||
|
|
:heading-anchors true)))))
|
||
|
|
|
||
|
|
(defn- asciidoc []
|
||
|
|
(reify Markup
|
||
|
|
(dir [this] "asc")
|
||
|
|
(ext [this] ".asc")
|
||
|
|
(render-fn [this]
|
||
|
|
(fn [rdr]
|
||
|
|
(.convert (Asciidoctor$Factory/create)
|
||
|
|
(->> (java.io.BufferedReader. rdr)
|
||
|
|
(line-seq)
|
||
|
|
(s/join "\n"))
|
||
|
|
(Collections/emptyMap))))))
|
||
|
|
|
||
|
|
(defn markups []
|
||
|
|
[(markdown) (asciidoc)])
|
