From b0604cb7f49bfaffdc194f4c5b5fdebbc273cdde Mon Sep 17 00:00:00 2001
From: Christian Mueller <chmllr@me.com>
Date: Mon, 28 May 2012 22:37:41 +0200
Subject: [PATCH] removed the digest dependency; changes hash computation

---
 project.clj                  |  1 -
 src/NoteHub/views/common.clj |  3 +--
 src/NoteHub/views/pages.clj  | 10 +++++-----
 3 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/project.clj b/project.clj
index 64dbffc..bb7ed66 100644
--- a/project.clj
+++ b/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"]]
diff --git a/src/NoteHub/views/common.clj b/src/NoteHub/views/common.clj
index 0b5415e..213d19a 100644
--- a/src/NoteHub/views/common.clj
+++ b/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
diff --git a/src/NoteHub/views/pages.clj b/src/NoteHub/views/pages.clj
index f048b13..564273f 100644
--- a/src/NoteHub/views/pages.clj
+++ b/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))