note compression added

project.clj

@@ -2,6 +2,7 @@
   :description "A free and anonymous hosting for markdown pages."
   :dependencies [[org.clojure/clojure "1.5.1"]
                  [hiccup "1.0.0"]
+                 [zeus "0.1.0"]
                  [cheshire "5.3.1"]
                  [ring/ring-core "1.2.0"]
                  [com.taoensso/carmine "2.4.4"]

src/notehub/storage.clj

@@ -1,5 +1,6 @@
 (ns notehub.storage
   (:use [notehub.settings]
+        [zeus.core]
         [clojure.string :only (blank? replace) :rename {replace sreplace}])
   (:require [taoensso.carmine :as car :refer (wcar)]))
 
@@ -43,12 +44,12 @@
 
 (defn edit-note [noteID text]
   (redis :hset :edited noteID (get-current-date))
-  (redis :hset :note noteID text))
+  (redis :hset :note noteID (zip text)))
 
 (defn add-note
   ([noteID text pid] (add-note noteID text pid nil))
   ([noteID text pid passwd]
-   (redis :hset :note noteID text)
+   (redis :hset :note noteID (zip text))
    (redis :hset :published noteID (get-current-date))
    (redis :hset :publisher noteID pid)
    (when (not (blank? passwd))
@@ -77,7 +78,7 @@
   (when (note-exists? noteID)
     (do
       (redis :hincrby :views noteID 1)
-      (redis :hget :note noteID))))
+      (unzip (redis :hget :note noteID)))))
 
 (defn short-url-exists? [url]
   (= 1 (redis :hexists :short-url url)))