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

statistics template fixed

Browse Source
This commit is contained in:
Christian Müller
2014-12-25 00:34:05 +01:00
parent 731f299efe
commit 4d7d84948e
1 changed files with 13 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/notehub/views.clj
+13 -12
View File
@@ -83,16 +83,17 @@
(let [page-title (get-message :statistics) (let [page-title (get-message :statistics)
info (assoc stats :publisher publisher)] info (assoc stats :publisher publisher)]
(layout :no-js {} page-title (layout :no-js {} page-title
[:h2.central-element note-title] [:div.central-element.helvetica {:style "width: 80%"}
[:h3.central-element.helvetica page-title] [:h2 note-title]
[:table#stats.helvetica.central-element [:h3.helvetica page-title]
(map [:table#stats
#(when-let [v (% info)] (map
[:tr #(when-let [v (% info)]
[:td (str (get-message %) ":")] [:tr
[:td (if (or (= % :published) (= % :edited)) [:td (str (get-message %) ":")]
(str (java.util.Date. (Long/parseLong v))) v)]]) [:td (if (or (= % :published) (= % :edited))
[:published :edited :publisher :views])]))) (str (java.util.Date. (Long/parseLong v))) v)]])
[:published :edited :publisher :views])]])))
(defn note-update-page [note-id note] (defn note-update-page [note-id note]
(input-form "/update-note" (input-form "/update-note"
@@ -113,7 +114,7 @@
(let [urls {:short-url short-url (let [urls {:short-url short-url
:notehub "/"} :notehub "/"}
links (map #(link-to links (map #(link-to
(urls % (str (:longURL note) "/" (name %))) (urls % (str (:longURL note) "/" (name %)))
(get-message %)) (get-message %))
[:notehub :stats :edit :export :short-url])] [:notehub :stats :edit :export :short-url])]
[:div#footer (interpose [:span.middot "·"] links)]))) [:div#footer (interpose [:span.middot "·"] links)])))