diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-22 14:10:38 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-02-22 14:10:38 +0100 |
| commit | a2aba31dbf353ebe484e2ecd526ff2dcfbd36817 (patch) | |
| tree | 0c727db736e3b81a26538fb50cfd053a79c41731 /src/mulk/benki/wiki.clj | |
| parent | 35ed93dc3bebd8256277eb72193a0f91b68a092f (diff) | |
Make the layout procedure flexible with regard to <head/> content.
Diffstat (limited to 'src/mulk/benki/wiki.clj')
| -rw-r--r-- | src/mulk/benki/wiki.clj | 22 |
1 files changed, 20 insertions, 2 deletions
diff --git a/src/mulk/benki/wiki.clj b/src/mulk/benki/wiki.clj index 7a64001..b93467a 100644 --- a/src/mulk/benki/wiki.clj +++ b/src/mulk/benki/wiki.clj @@ -43,6 +43,22 @@ (doseq [node (-> doc (.select ".benkilink") (.unwrap))]) (-> doc (.select "body") (.html)))) +(def ^{:private true} wiki-page + {:head + ;; Aloha Editor + (list + [: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"}] + ;; Custom wiki page stuff + [:script {:type "text/javascript" + :src (resolve-uri "/js/wiki.js")}])}) + +(def ^{:private true} plain-page + {}) + (defpage "/wiki" [] ;; NB. response/redirect calls options/resolve-uri. @@ -57,7 +73,8 @@ (with-dbt (first @(select page_revisions (where (=* :id (Integer/parseInt revision-id)))))) (with-dbt (first @revisions-with-title)))] - (layout (fmt nil "~A — Benki~@[/~A~] " title revision-id) + (layout wiki-page + (fmt nil "~A — Benki~@[/~A~] " title revision-id) (if revision [:div#wiki-page-content (wikilinkify (:content revision))] [:div#wiki-page-content [:p "This page does not exist yet."]]) @@ -78,7 +95,8 @@ ORDER BY date DESC" "Home"))] (with-dbt - (layout (fmt nil "Revision list — ~A — Benki" title) + (layout plain-page + (fmt nil "Revision list — ~A — Benki" title) [:table {:style ""} [:thead [:th "Date"] |