gered/clojure-template-benchmarks
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

enlive stubs

Browse source
This commit is contained in:
Chris Allen 2013-01-30 00:39:35 -08:00
parent 4e601cc4ab
commit c9070ae749
4 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
project.clj
View file

@ -5,8 +5,9 @@
:url "http://www.eclipse.org/legal/epl-v10.html"} :url "http://www.eclipse.org/legal/epl-v10.html"}
:main clojure-template-benchmarks.core :main clojure-template-benchmarks.core
:dependencies [[org.clojure/clojure "1.4.0"] :dependencies [[org.clojure/clojure "1.4.0"]
[criterium "0.3.1"]
[hiccup "1.0.2"]
[clabango "0.4"] [clabango "0.4"]
[criterium "0.3.1"]
[enlive "1.0.0"]
[hiccup "1.0.2"]
[stencil "0.3.0"] [stencil "0.3.0"]
[tinsel "0.4.0"]]) [tinsel "0.4.0"]])

7
src/clojure_template_benchmarks/core.clj
View file

@ -59,6 +59,13 @@
(deftemplate simple-tinsel [[:span {:class "foo"}]] [] (has-class? "foo") (set-content bar)) (deftemplate simple-tinsel [[:span {:class "foo"}]] [] (has-class? "foo") (set-content bar))
(deftemplate list-tinsel [[:ul]] [ceil] (tag= :ul) (set-content (for [x (range 1 ceil)] [:li x]))) (deftemplate list-tinsel [[:ul]] [ceil] (tag= :ul) (set-content (for [x (range 1 ceil)] [:li x])))
(defn simple-enlive []
(str ""))
(defn list-enlive [ceil]
(str ""))
(defn -main [& args] (defn -main [& args]
;; (println (simple-hiccup)) ;; (println (simple-hiccup))
;; (println (simple-clabango-no-fd)) ;; (println (simple-clabango-no-fd))

1
src/clojure_template_benchmarks/templates/list.enlive Normal file
View file

@ -0,0 +1 @@
<ul></ul>

1
src/clojure_template_benchmarks/templates/simple.enlive Normal file
View file

@ -0,0 +1 @@
<span class="foo"></span>