hiccup templating

hiccup_example.clj

(ns confluence-version-page-generator.table)
 (require '[hiccup.core :refer [html]])
 (defn render [table-data]
  (html [:table
         [:tr
          [:th "Service"]
          [:th "SHA(s)"]
          [:th "Nodes"]]
         (for [{service "service" versions "versions"} table-data]
           [:tr
            (apply concat
                   (for [[sha nodes] versions]
                     [[:td service]
                      [:td sha]
                      [:td [:ul (for [node (sort nodes)] [:li node])]]]))])]))