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

Added Enlive.

Browse source
This commit is contained in:
Anthony Grimes 2013-01-30 05:03:09 -06:00
parent 3ef72c09c3
commit f22d7e0f43
3 changed files with 20 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
project.clj
View file

@ -11,4 +11,5 @@
[hiccup "1.0.2"] [hiccup "1.0.2"]
[stencil "0.3.0"] [stencil "0.3.0"]
[tinsel "0.4.0" :exclusions [hickory]] [tinsel "0.4.0" :exclusions [hickory]]
[me.raynes/laser "0.1.21"]]) [me.raynes/laser "0.1.21"]
[enlive "1.0.1"]])

22
src/clojure_template_benchmarks/core.clj
View file

@ -4,7 +4,8 @@
(:require [clabango.parser :refer [render render-file]] (:require [clabango.parser :refer [render render-file]]
[stencil.core :as stencil] [stencil.core :as stencil]
[hiccup.core :as hiccup] [hiccup.core :as hiccup]
[me.raynes.laser :as laser :refer [defdocument]])) [me.raynes.laser :as laser :refer [defdocument]]
[net.cgrand.enlive-html :as enlive]))
(def bar (str "bar")) (def bar (str "bar"))
@ -67,11 +68,14 @@
(for [x (range 1 ceil)] (for [x (range 1 ceil)]
(laser/node :li :content (str x))))) (laser/node :li :content (str x)))))
(defn simple-enlive [] (enlive/deftemplate simple-enlive-core "clojure_template_benchmarks/templates/simple.enlive" []
(str "")) [:span.foo] (enlive/content bar))
(enlive/deftemplate list-enlive-core "clojure_template_benchmarks/templates/list.enlive" [ceil]
[:ul] (enlive/clone-for [x (range 1 ceil)]
(enlive/content (str x))))
(defn list-enlive [ceil] (defn simple-enlive [] (apply str (simple-enlive-core)))
(str "")) (defn list-enlive [ceil] (apply str (list-enlive-core ceil)))
(defn -main [& args] (defn -main [& args]
;; (println (simple-hiccup)) ;; (println (simple-hiccup))
@ -142,4 +146,12 @@
(println "\n --- \n") (println "\n --- \n")
(with-progress-reporting (quick-bench (list-laser 1000))) (with-progress-reporting (quick-bench (list-laser 1000)))
(println "\n --- \n") (println "\n --- \n")
(println "\n\n ***** enlive ***** \n\n")
(with-progress-reporting (quick-bench (simple-enlive)))
(println "\n --- \n")
(with-progress-reporting (quick-bench (list-enlive 50)))
(println "\n --- \n")
(with-progress-reporting (quick-bench (list-enlive 1000)))
(println "\n --- \n")
) )

2
src/clojure_template_benchmarks/templates/list.enlive
View file

@ -1 +1 @@
<ul></ul> <ul><li></li></ul>