render.clj

(ns hydrox.doc.render
  (:require [hydrox.common.util :as util]
            [hydrox.doc.render
             [article :as article]
             [navigation :as navigation]
             [toc :as toc]]
            [hiccup.compiler :as compiler]
            [clojure.string :as string]))

(defn render-article [{:keys [elements]} folio]
  (->> elements
       (mapv #(article/render % folio))
       (mapcat (fn [ele] (#'compiler/compile-seq [ele])))
       (string/join)))

(defn render-navigation [{:keys [elements]} folio]
  (let [chapters (filter (fn [e] (#{:chapter :appendix} (:type e)))
                         elements)]
    (->> chapters
         (map #(navigation/render % folio))
         (#'compiler/compile-seq)
         (string/join))))

(defn replace-template [template includes opts project]
  (reduce-kv (fn [^String html k v]
               (let [value (cond (string? v)
                                 v

                                 (vector? v)
                                 (cond (= (first v) :file)
                                       (slurp (util/full-path (second v) (-> opts :template :path) project))))]
                 (.replaceAll html
                              (str "<@=" (name k) ">")
                              (util/escape-dollars value))))
             template
             includes))