(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)])