timestamps converted to unix timestamps

src/notehub/handler.clj

@@ -128,9 +128,12 @@
                    [:h3.central-element.helvetica statistics]
                    [:table#stats.helvetica.central-element
                     (map
-                     #(when (% stats)
+                      #(when-let [v (% stats)]
-                        [:tr [:td (str (get-message %) ":")] [:td (% stats)]])
+                         [:tr
-                     [:published :edited :publisher :views])]))))
+                          [:td (str (get-message %) ":")]
+                          [:td (if (or (= % :published) (= % :edited))
+                                 (str (java.util.Date. (Long/parseLong v))) v)]])
+                      [:published :edited :publisher :views])]))))
 
   (GET "/:year/:month/:day/:title/edit" [year month day title]
        (let [noteID (api/build-key year month day title)]

src/notehub/storage.clj

@@ -21,10 +21,10 @@
 (defmacro redis [cmd & body]
   `(car/wcar conn
              (~(symbol "car" (name cmd))
-               ~@body)))
+                       ~@body)))
 
 (defn get-current-date []
-  (str (java.util.Date.)))
+  (.getTime (java.util.Date.)))
 
 (defn valid-publisher? [pid]
   (= 1 (redis :hexists :publisher-key pid)))
@@ -39,7 +39,7 @@
 ; This was uncommented, because the DB isn't 
 ; available on heroku at compile time
 #_ (when-not (valid-publisher? "NoteHub")
-  (register-publisher "NoteHub"))
+     (register-publisher "NoteHub"))
 
 (defn revoke-publisher [pid]
   (redis :hdel :publisher-key pid))
@@ -119,8 +119,8 @@
                                     ; and the rest to chars
                                     (map #(char (+ (if (< 9 %) 87 48) %)) hash)))
             url (first
-                 (remove short-url-exists?
+                  (remove short-url-exists?
-                         (map hash-to-string hash-stream)))]
+                          (map hash-to-string hash-stream)))]
         ; we create two mappings: key params -> short url and back,
         ; s.t. we can later easily check whether a short url already exists
         (redis :hset :short-url url key)