crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tests for new features added + some extensions of old tests

Browse Source
This commit is contained in:
Christian Mueller
2012-06-06 23:58:58 +02:00
parent ec4aeed9e6
commit 7125155939
2 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/NoteHub/views/pages.clj
+9 -10
View File
@@ -73,22 +73,21 @@
[:div#preview-start-line.hidden]
[:article#preview]))
(defn wrap [theme md-text]
(let [title (-?> md-text (split #"\n") first (sreplace #"[_\*#]" ""))]
(common/layout {:theme theme} title [:article (md-to-html md-text)])))
(defn get-md [[[year month day] :as date] title]
(let [post (get-note date title)]
(if post post (status 404 ""))))
(defn wrap [params md-text]
(if md-text
(let [title (-?> md-text (split #"\n") first (sreplace #"[_\*#]" ""))]
(common/layout params title [:article (md-to-html md-text)]))
(status 404 (get-page 404))))
(defpage "/:year/:month/:day/:title/theme/:theme" {:keys [year month day title theme]}
(wrap theme (get-md [year month day] title)))
(wrap {:theme theme} (get-note [year month day] title)))
(defpage "/:year/:month/:day/:title" {:keys [year month day title]}
(wrap :default (get-md [year month day] title)))
(wrap {:theme :default} (get-note [year month day] title)))
(defpage "/:year/:month/:day/:title/export" {:keys [year month day title]}
(get-md [year month day] title))
(let [md-text (get-note [year month day] title)]
(if md-text md-text (get-page 404))))
; New Note Posting
(defpage [:post "/post-note"] {:keys [draft session-key session-value]}