bugfix in date generation

src/NoteHub/storage.clj

@@ -5,8 +5,6 @@
 
 (def note "note")
 
-(def draft "draft")
-
 (defn- build-key [[year month day] key]
   (print-str year month day key))
 
@@ -16,14 +14,5 @@
 (defn get-note [date key]
   (redis/hget db note (build-key date key)))
 
-(defn create-draft [key]
-  (redis/hget db draft key))
-
-(defn delete-draft [key]
-  (redis/hdel db draft key))
-
-(defn draft-exists? [key]
-  (redis/hexists db draft key))
-
 (defn note-exists? [date key]
   (redis/hexists db note (build-key date key)))

src/NoteHub/views/pages.clj

@@ -64,15 +64,17 @@
 
 ; New Note Posting
 (defpage [:post "/post-note"] {:keys [draft]}
-         (let [[year month day] (map #(.get (Calendar/getInstance) %) [Calendar/YEAR Calendar/MONTH Calendar/DAY_OF_MONTH])
+         (let [[year month day] (map #(+ (second %) (.get (Calendar/getInstance) (first %))) 
+                                     {Calendar/YEAR 0, Calendar/MONTH 1, Calendar/DAY_OF_MONTH 0})
                untrimmed-line (filter #(or (= \- %) (Character/isLetterOrDigit %)) 
                                       (-> draft (split #"\n") first (sreplace " " "-") lower-case))
                trim (fn [s] (apply str (drop-while #(= \- %) s)))
                title-uncut (-> untrimmed-line trim reverse trim reverse)
                proposed-title (apply str (take max-title-length title-uncut))
                date [year month day] 
-               title (first (drop-while #(note-exists? date %) (cons proposed-title
+               title (first (drop-while #(note-exists? date %)
-                                                                     (map #(str proposed-title "-" (+ 2 %)) (range)))))]
+                                        (cons proposed-title
+                                              (map #(str proposed-title "-" (+ 2 %)) (range)))))]
            (do
              (set-note date title draft)
              (redirect (apply str (interpose "/" ["" year month day title]))))))