
Untitled
By: a guest on
Jan 23rd, 2011 | syntax:
None | size: 0.55 KB | hits: 56 | expires: Never
(defsnippet list2 "list.html" [:body :> any-node] [list]
[:h2.list-title] (content (:title list))
[:li.step] (clone-for [[type id] (:elements list)]
(content
(condp = type
"step" (:text (get-step id))
"list" (list2 (get-list id))
type))))
(defsnippet list1 "list.html" [:body :> any-node] [list]
[:h2.list-title] (content (:title list1))
[:li.step] (clone-for [[type id] (:elements list1)]
(content
(condp = type
"step" (:text (get-step id))
"list" (list2 (get-list id))
type))))