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

statistics page made pretier

Browse Source
This commit is contained in:
Christian Mueller
2014-02-03 18:16:19 +01:00
parent 7608643d52
commit 928f951955
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/notehub/handler.clj
+6 -3
View File
@@ -122,13 +122,16 @@
(return-content-type "text/plain; charset=utf-8" md-text)))
(GET "/:year/:month/:day/:title/stats" [year month day title]
(when-let [stats (:statistics (api/get-note {:noteID (api/build-key year month day title)}))]
(layout (get-message :statistics)
(when-let [resp (api/get-note {:noteID (api/build-key year month day title)})]
(let [stats (:statistics resp)
statistics (get-message :statistics)]
(layout statistics
[:h2.central-element statistics ": " (api/derive-title (:note resp))]
[:table#stats.helvetica.central-element
(map
#(when (% stats)
[:tr [:td (str (get-message %) ":")] [:td (% stats)]])
[:published :edited :publisher :views])])))
[:published :edited :publisher :views])]))))
(GET "/:year/:month/:day/:title/edit" [year month day title]
(let [noteID (api/build-key year month day title)]