From 5ff55cd6309d570a5297c0b26dfd623b1fadd604 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 5 Nov 2011 18:45:04 +0100
Subject: Initial checkin.

---
 src/mulk/benki/util.clj | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 src/mulk/benki/util.clj

(limited to 'src/mulk/benki/util.clj')

diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
new file mode 100644
index 0000000..5b2e484
--- /dev/null
+++ b/src/mulk/benki/util.clj
@@ -0,0 +1,26 @@
+(ns mulk.benki.util
+  (:refer-clojure)
+  (:use [hiccup core     page-helpers]
+        noir.core))
+
+
+(def fmt clojure.pprint/cl-format)
+
+
+(defonce #^:private finished-initializations (atom #{}))
+
+(defmacro do-once [key & body]
+  `(while (not (@(deref #'finished-initializations) key))
+     (let [fininit-copy# @(deref #'finished-initializations)]
+       (when (compare-and-set! (deref #'finished-initializations)
+                               fininit-copy#
+                               (conj fininit-copy# key))
+         (do ~@body)))))
+
+
+;; defpartial is just defn + html.
+(defpartial layout [title & content]
+  (html5
+   [:head [:title title]]
+   [:body [:h1 title]
+    content]))
-- 
cgit v1.2.3