From 4d7d84948e06c0bdf1665f2dfed602fa36142b4e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Christian=20M=C3=BCller?= Date: Thu, 25 Dec 2014 00:34:05 +0100 Subject: [PATCH] statistics template fixed --- src/notehub/views.clj | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/src/notehub/views.clj b/src/notehub/views.clj index bf8e8c9..8e42fff 100644 --- a/src/notehub/views.clj +++ b/src/notehub/views.clj @@ -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 @@ (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)])))