Move a commonly-used function into a utility namespace

fabricate-site · Sep 15, 2024 · ba7a8f5 · ba7a8f5
1 parent ff70708
commit ba7a8f5
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/dev/site/fabricate/dev/build/utils.clj b/dev/site/fabricate/dev/build/utils.clj
@@ -0,0 +1,10 @@
+(ns site.fabricate.dev.build.utils
+  "Page-building utility functions"
+  (:require [site.fabricate.adorn :refer [clj->hiccup]]
+            [zprint.core :as zp]))
+
+(defn expr->hiccup
+  [form]
+  (clj->hiccup (zp/zprint-str form
+                              {:style [:community :justified]
+                               :map   {:comma? false :sort? false}})))