37 lines
898 B
Clojure
37 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)])
|
