From f8a2c5f03d505ef42008dde7e00c9ea4eb00e1a9 Mon Sep 17 00:00:00 2001
From: Christian Mueller <chmllr@me.com>
Date: Sat, 1 Feb 2014 11:38:11 +0100
Subject: [PATCH] refactoring

---
 src/notehub/api.clj      | 10 ++++------
 src/notehub/handler.clj  |  3 +--
 src/notehub/settings.clj |  9 +++++----
 3 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/src/notehub/api.clj b/src/notehub/api.clj
index 3b35312..89e2e14 100644
--- a/src/notehub/api.clj
+++ b/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
diff --git a/src/notehub/handler.clj b/src/notehub/handler.clj
index cb9e7f6..28aec34 100644
--- a/src/notehub/handler.clj
+++ b/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]
diff --git a/src/notehub/settings.clj b/src/notehub/settings.clj
index 20a39cb..f669316 100644
--- a/src/notehub/settings.clj
+++ b/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)))