gered/blarg
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

added view tags namespace. added ifempty tag

Browse source
This commit is contained in:
Gered 2013-05-26 13:48:35 -04:00
parent cbdd265a0f
commit 55bba64481
2 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/blarg/views/layout.clj
View file

@ -2,7 +2,8 @@
(:use noir.request) (:use noir.request)
(:require [clabango.parser :as parser] (:require [clabango.parser :as parser]
[noir.session :as session] [noir.session :as session]
[blarg.views.viewfilters])) [blarg.views.viewfilters]
[blarg.views.tags]))
(def template-path "blarg/views/templates/") (def template-path "blarg/views/templates/")

19
src/blarg/views/tags.clj Normal file
View file

@ -0,0 +1,19 @@
(ns blarg.views.tags
(:use [clabango.tags])
(:require [clabango.filters :refer [context-lookup]]))
(deftemplatetag "ifempty" "endifempty" [[if-node & nodes] context]
(let [args (:args if-node)
body-nodes (butlast nodes)
[flip decision] (cond (= 1 (count args))
[empty? (first args)]
(and (= 2 (count args))
(= "not" (first args)))
[not-empty (second args)]
:default (throw (Exception. (str "Syntax error: "
if-node))))]
{:nodes (if (flip (context-lookup context decision))
(take-while #(not= "else" (:tag-name %)) body-nodes)
(rest (drop-while #(not= "else" (:tag-name %)) body-nodes)))}))