Very simple hiccup implementation

hiccup.fnl

(fn gen-attributes [attributes]
  (clj.reduce (fn [x y] (.. x y))
      (icollect [attr val (pairs attributes)]
        (string.format  " %s=\"%s\"" attr val))))

;
(fn render [form]
  (if (clj.string? form) (EscapeHtml form)
    (clj.vector? form) (let [tag (. form 1)
                            attributes (when (clj.map? (. form 2) ) (. form 2))
                             contents (if (clj.map? (. form 2)) 
                                        (-> form 
                                               clj.rest 
                                               clj.rest) 
                                        (clj.rest  form))
                            rendered-contents (clj.reduce (fn [x y] (.. x y)) 
                                                    (clj.mapv render contents))]
                         (string.format "<%s %s>%s</%s>" tag 
                                        (if attributes (gen-attributes attributes) "")
                                        rendered-contents
                                        tag))))