hiccup template engine naive implementation

cljcks.hiccup.clj

(ns cljcks.hiccup
  (:require [clojure.string :as s]))


(defn render-attr [[key value]] (str (name key) "=\"" value "\""))


(defn render-attrs [attrs]
  (s/join " " (map render-attr (seq attrs))))


(defn render [[elem, attrs, subtree]]
  (let [rendered-attributes (render-attrs attrs)
        subelements (map render subtree)
        rendered-subtree (s/join " " subelements)
        elem-name (name elem)]
    (str "<" elem-name " " rendered-attributes ">" rendered-subtree "</" elem-name ">")))