From a2aba31dbf353ebe484e2ecd526ff2dcfbd36817 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 22 Feb 2012 14:10:38 +0100
Subject: Make the layout procedure flexible with regard to <head/> content.

---
 src/mulk/benki/util.clj | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'src/mulk/benki/util.clj')

diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index ba43581..4dac73b 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -23,22 +23,14 @@
 
 
 ;; defpartial is just defn + html.
-(defpartial layout [title & content]
+(defpartial layout [kind title & content]
   (html5 {:xml? true}
    [:head
     [:title title]
     ;; jQuery
     [:script {:type "text/javascript"
               :src (resolve-uri "/3rdparty/jquery/jquery-1.7.min.js")}]
-    ;; Aloha Editor
-    [:link {:rel "stylesheet"
-            :href (resolve-uri "/3rdparty/alohaeditor/aloha/css/aloha.css")}]
-    [:script {:type "text/javascript"
-              :src (resolve-uri "/3rdparty/alohaeditor/aloha/lib/aloha.js")
-              :data-aloha-plugins "common/format,common/highlighteditables,common/list,common/link,common/undo,common/paste,common/block"}]
-    ;; JavaScript
-    [:script {:type "text/javascript"
-              :src (resolve-uri "/js/wiki.js")}]]
+    (:head kind)]
    [:body [:h1 title]
     content]))
 
-- 
cgit v1.2.3