removed the digest dependency; changes hash computation

project.clj

@@ -6,7 +6,6 @@
                            [jayq "0.1.0-alpha2"]
                            [fetch "0.1.0-alpha2"]
                            [clj-redis "0.0.12"]
-                           [digest "1.4.0"]
                            [org.pegdown/pegdown "1.1.0"]
                            [noir "1.3.0-beta1"]]
             :plugins [[lein-cljsbuild "0.1.10"]]

src/NoteHub/views/common.clj

@@ -85,8 +85,7 @@
             :border-bottom [:1px :dashed :gray]
             :margin-bottom :5em)
       (rule "h1, h2, h3, h4" 
-            :font-family (gen-comma-list
-                           "'Noticia Text'" "Georgia"))))
+            :font-family (gen-comma-list "'Noticia Text'" "Georgia"))))
 
 (defpartial layout [title & content]
             (html5

src/NoteHub/views/pages.clj

@@ -1,5 +1,5 @@
 (ns NoteHub.views.pages
-  (:require [NoteHub.views.common :as common] [digest :as digest])
+  (:require [NoteHub.views.common :as common])
   (:use
     [NoteHub.storage :rename {get s-get set s-set} :only [set get]]
     [noir.response :only [redirect]]
@@ -31,7 +31,10 @@
                         [:article#preview.central-body]))
 
 (defn get-storage-key [year month day title]
-  (str "note-" (digest/md5 (str year month day title))))
+  (apply str (interpose "-" ["note" year month day (hash [year month day title])])))
+
+(defremote md-to-html [draft]
+           (.markdownToHtml (PegDownProcessor.) draft))
 
 (defpage "/:year/:month/:day/:title" {:keys [year month day title]}
          (let [key (get-storage-key year month day title)
@@ -54,6 +57,3 @@
            (do
              (s-set key draft)
              (redirect (apply str (interpose "/" ["" year month day title]))))))
-
-(defremote md-to-html [draft]
-           (.markdownToHtml (PegDownProcessor.) draft))