bad-clerk-md-tables.clj

^{:nextjournal.clerk/visibility {:result :hide}}
(defn md-row [v]
  (str "| " (apply str (interpose " | " v)) " |\n"))

^{:nextjournal.clerk/visibility {:result :hide}}
(defn md-table [{:keys [columns alignment-spec data]}]
  (clerk/md
   (apply 
    str
    (into [(md-row columns)
           (md-row alignment-spec)]
          (comp
           (map 
            (fn [row]
              ((apply juxt 
                      (map (fn [column] (fn [m] (m column))) columns))
               row)))
           (map md-row))
          (tc/rows data :as-maps)))))

(md-table {:columns ["Foo" "Bar" "Baz"]
           :alignment-spec [":---" ":---:" "---:"]
           :data (tc/dataset {"Foo" ["foo0" "foo1" "foo2"]
                              "Bar" ["bar0" "bar1" "bar2"]
                              "Baz" [12.0 1.00 1.01]})})