simon/adl-support
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Detail changes

Browse source
This commit is contained in:
Simon Brooke 2018-06-29 23:36:36 +01:00
parent ff5a948063
commit 701fc1a21d
1 changed files with 5 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/adl_support/tags.clj
View file

@ -33,15 +33,13 @@
"Add custom tags required by ADL-generated code to the parser's tags." "Add custom tags required by ADL-generated code to the parser's tags."
(p/add-tag! :ifmemberof (p/add-tag! :ifmemberof
(fn [args context content] (fn [args context content]
(if-member-of-permitted args context (if-member-of-permitted
(get-in content [:ifmemberof :content]) (get-in content [:else :content]))) args context
(get-in content [:ifmemberof :content])
(get-in content [:else :content])))
:else :else
(fn [args context content] (fn [args context content]
"") "")
:endifmemberof)) :endifmemberof))
(add-tags) (add-tags)
(if-member-of-permitted '("public" "canvassers") {:user-roles #{"canvassers"}} "caramba" false)