From f22d7e0f430e55f362f0584dcd179419ec16eb00 Mon Sep 17 00:00:00 2001 From: Anthony Grimes Date: Wed, 30 Jan 2013 05:03:09 -0600 Subject: [PATCH] Added Enlive. --- project.clj | 3 ++- src/clojure_template_benchmarks/core.clj | 22 ++++++++++++++----- .../templates/list.enlive | 2 +- 3 files changed, 20 insertions(+), 7 deletions(-) diff --git a/project.clj b/project.clj index 949bdf5..dd72693 100644 --- a/project.clj +++ b/project.clj @@ -11,4 +11,5 @@ [hiccup "1.0.2"] [stencil "0.3.0"] [tinsel "0.4.0" :exclusions [hickory]] - [me.raynes/laser "0.1.21"]]) \ No newline at end of file + [me.raynes/laser "0.1.21"] + [enlive "1.0.1"]]) \ No newline at end of file diff --git a/src/clojure_template_benchmarks/core.clj b/src/clojure_template_benchmarks/core.clj index d93098c..09f8be7 100644 --- a/src/clojure_template_benchmarks/core.clj +++ b/src/clojure_template_benchmarks/core.clj @@ -4,7 +4,8 @@ (:require [clabango.parser :refer [render render-file]] [stencil.core :as stencil] [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")) @@ -67,11 +68,14 @@ (for [x (range 1 ceil)] (laser/node :li :content (str x))))) -(defn simple-enlive [] - (str "")) +(enlive/deftemplate simple-enlive-core "clojure_template_benchmarks/templates/simple.enlive" [] + [: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] - (str "")) +(defn simple-enlive [] (apply str (simple-enlive-core))) +(defn list-enlive [ceil] (apply str (list-enlive-core ceil))) (defn -main [& args] ;; (println (simple-hiccup)) @@ -142,4 +146,12 @@ (println "\n --- \n") (with-progress-reporting (quick-bench (list-laser 1000))) (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") ) \ No newline at end of file diff --git a/src/clojure_template_benchmarks/templates/list.enlive b/src/clojure_template_benchmarks/templates/list.enlive index b40db03..389626c 100644 --- a/src/clojure_template_benchmarks/templates/list.enlive +++ b/src/clojure_template_benchmarks/templates/list.enlive @@ -1 +1 @@ - +