crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

bugfix in date generation

Browse Source
This commit is contained in:
Christian Mueller
2012-05-30 21:10:19 +02:00
parent d8204b2837
commit 87768f1a98
2 changed files with 5 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/NoteHub/views/pages.clj
+5 -3
View File
@@ -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
(map #(str proposed-title "-" (+ 2 %)) (range)))))]
title (first (drop-while #(note-exists? date %)
(cons proposed-title
(map #(str proposed-title "-" (+ 2 %)) (range)))))]
(do
(set-note date title draft)
(redirect (apply str (interpose "/" ["" year month day title]))))))