Browse Source

statistics template fixed

master
Christian Müller 11 years ago
parent
commit
4d7d84948e
  1. 25
      src/notehub/views.clj

25
src/notehub/views.clj

@ -83,16 +83,17 @@ @@ -83,16 +83,17 @@
(let [page-title (get-message :statistics)
info (assoc stats :publisher publisher)]
(layout :no-js {} page-title
[:h2.central-element note-title]
[:h3.central-element.helvetica page-title]
[:table#stats.helvetica.central-element
(map
#(when-let [v (% info)]
[:tr
[:td (str (get-message %) ":")]
[:td (if (or (= % :published) (= % :edited))
(str (java.util.Date. (Long/parseLong v))) v)]])
[:published :edited :publisher :views])])))
[:div.central-element.helvetica {:style "width: 80%"}
[:h2 note-title]
[:h3.helvetica page-title]
[:table#stats
(map
#(when-let [v (% info)]
[:tr
[:td (str (get-message %) ":")]
[:td (if (or (= % :published) (= % :edited))
(str (java.util.Date. (Long/parseLong v))) v)]])
[:published :edited :publisher :views])]])))
(defn note-update-page [note-id note]
(input-form "/update-note"
@ -113,7 +114,7 @@ @@ -113,7 +114,7 @@
(let [urls {:short-url short-url
:notehub "/"}
links (map #(link-to
(urls % (str (:longURL note) "/" (name %)))
(get-message %))
(urls % (str (:longURL note) "/" (name %)))
(get-message %))
[:notehub :stats :edit :export :short-url])]
[:div#footer (interpose [:span.middot "·"] links)])))

Loading…
Cancel
Save