* src/tutorial/template1.clj: fix utils bug.

src/tutorial/template1.clj

@@ -1,6 +1,6 @@
 (ns tutorial.template1
   (:require [net.cgrand.enlive-html :as html])
-  (:use net.cgrand.contrib.utils)
+  (:use tutorial.utils)
   (:use compojure))
 
 (html/deftemplate index "tutorial/template1.html"

src/tutorial/template2.clj

@@ -1,7 +1,7 @@
 (ns tutorial.template2
   (:use [net.cgrand.enlive-html
          :only [selector deftemplate defsnippet content nth-of-type first-child]])
-  (:use net.cgrand.contrib.utils)
+  (:use tutorial.utils)
   (:use compojure))
 
 ;; =============================================================================

src/tutorial/template3.clj

@@ -1,6 +1,6 @@
 (ns tutorial.template3
   (:require [net.cgrand.enlive-html :as html])
-  (:use net.cgrand.contrib.utils)
+  (:use tutorial.utils)
   (:use compojure))
 
 ;; =============================================================================

src/tutorial/utils.clj

@@ -0,0 +1,22 @@
+(ns tutorial.utils
+  (:require [net.cgrand.enlive-html :as html]))
+
+(defn render [t]
+  (apply str t))
+
+(defmulti parse-int type)
+(defmethod parse-int java.lang.Integer [n] n)
+(defmethod parse-int java.lang.String [s] (Integer/parseInt s))
+
+(defmacro maybe-substitute
+  ([expr] `(if-let [x# ~expr] (html/substitute x#) identity))
+  ([expr & exprs] `(maybe-substitute (or ~expr ~@exprs))))
+
+(defmacro maybe-content
+  ([expr] `(if-let [x# ~expr] (html/content x#) identity))
+  ([expr & exprs] `(maybe-content (or ~expr ~@exprs))))
+
+(defn pluralize [astr n]
+  (if (= n 1)
+    (str astr)
+    (str astr "s")))