|
|
|
@ -141,20 +141,10 @@ |
|
|
|
(when-let [stats (:statistics (api/get-note (api/build-key [year month day] title)))] |
|
|
|
(when-let [stats (:statistics (api/get-note (api/build-key [year month day] title)))] |
|
|
|
(layout (get-message :statistics) |
|
|
|
(layout (get-message :statistics) |
|
|
|
[:table#stats.helvetica.central-element |
|
|
|
[:table#stats.helvetica.central-element |
|
|
|
[:tr |
|
|
|
(map |
|
|
|
[:td (get-message :published)] |
|
|
|
#(when (% stats) |
|
|
|
[:td (:published stats)]] |
|
|
|
[:tr [:td (get-message %)] [:td (% stats)]]) |
|
|
|
(when (:edited stats) |
|
|
|
[:published :edited :publisher :views])]))) |
|
|
|
[:tr |
|
|
|
|
|
|
|
[:td (get-message :edited)] |
|
|
|
|
|
|
|
[:td (:edited stats)]]) |
|
|
|
|
|
|
|
(when (:publisher stats) |
|
|
|
|
|
|
|
[:tr |
|
|
|
|
|
|
|
[:td (get-message :publisher)] |
|
|
|
|
|
|
|
[:td (:publisher stats)]]) |
|
|
|
|
|
|
|
[:tr |
|
|
|
|
|
|
|
[:td (get-message :article-views)] |
|
|
|
|
|
|
|
[:td (:views stats)]]]))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; Resolving of a short url |
|
|
|
; Resolving of a short url |
|
|
|
(defpage "/:short-url" {:keys [short-url]} |
|
|
|
(defpage "/:short-url" {:keys [short-url]} |
|
|
|
|