refactoring

src/notehub/api.clj

@@ -5,7 +5,7 @@
    [notehub.settings]
    [ring.util.codec :only [url-encode]]
    [clojure.string :rename {replace sreplace}
-    :only [replace blank? lower-case split-lines split]])
+    :only [replace blank? trim lower-case split-lines split]])
   (:require
    [ring.util.codec]
    [hiccup.util :as util]
@@ -84,12 +84,10 @@
        (let [[year month day] (map str (get-date))
              password (opts :password)
              params (opts :params {})
-             untrimmed-line (filter #(or (= \- %) (Character/isLetterOrDigit %))
-                                    (-> note split-lines first (sreplace " " "-") lower-case))
-             trim (fn [s] (apply str (drop-while #(= \- %) s)))
-             title-uncut (-> untrimmed-line trim reverse trim reverse)
+             raw-title (filter #(or (= \- %) (Character/isLetterOrDigit %))
+                               (-> note derive-title trim (sreplace " " "-") lower-case))
              max-length (get-setting :max-title-length #(Integer/parseInt %) 80)
-             proposed-title (apply str (take max-length title-uncut))
+             proposed-title (apply str (take max-length raw-title))
              date [year month day]
              title (first (drop-while #(storage/note-exists? (build-key date %))
                                       (cons proposed-title

src/notehub/handler.clj

@@ -1,8 +1,7 @@
 (ns notehub.handler
   (:use compojure.core
         [notehub.settings]
-        [clojure.string :rename {replace sreplace}
-         :only [escape split replace blank? split-lines lower-case]]
+        [clojure.string :rename {replace sreplace} :only [replace]]
         [clojure.core.incubator :only [-?>]]
         [hiccup.form]
         [hiccup.core]

src/notehub/settings.clj

@@ -1,6 +1,7 @@
 (ns notehub.settings
-  (:refer-clojure :exclude [replace reverse])
-  (:use [clojure.string]))
+  (:use [clojure.string
+         :rename {replace sreplace}
+         :only [blank? trim split split-lines replace upper-case]]))
 
 ; Loads and parses any file with each line consisting a key and
 ; a value separated by a "=", and returns a corresponding key-value map.
@@ -37,8 +38,8 @@
         ; set) shell variables without commiting their content to CVS
         value (if value value
                 (System/getenv
-                  (upper-case
-                    (replace (name key) #"-" ""))))]
+                 (upper-case
+                  (sreplace (name key) #"-" ""))))]
     (if value
       (if (fn? converter) (converter value) value)
       default)))