Add search method, display better example output.

Remove some of the extraneous output from the examples method. Added
two search methods, one for searching across all namespaces, the other
for searching inside a namespace.

src/cd_wsapi/core.clj

@@ -1,67 +1,115 @@
 (ns cd-wsapi.core
   (:use [aleph core http]
-	[net.cgrand.moustache]
-	[clojure.contrib.sql]
-	[org.danlarkin.json]))
+        [net.cgrand.moustache]
+        [clojure.contrib.sql]
+        [org.danlarkin.json]))
 
 (def *server-port* 8080)
 
 ;;JSON Encoders
 (add-encoder 
- java.util.Date
- (fn [#^java.util.Date date #^java.io.Writer writer
-      #^String pad #^String current-indent
-      #^String start-token-indent #^Integer indent-size]
-   (.append writer (str start-token-indent \" date \"))))
+  java.util.Date
+  (fn [#^java.util.Date date #^java.io.Writer writer
+       #^String pad #^String current-indent
+       #^String start-token-indent #^Integer indent-size]
+    (.append writer (str start-token-indent \" date \"))))
 
 ;; Database
 
 (def db {:classname "com.mysql.jdbc.Driver"
-	 :subprotocol "mysql"
-	 :subname "//localhost:3306/clojuredocs?user=cd_wsapi&password=cd_wsapi"
-	 :create true
-	 :username "cd_wsapi"
-	 :password "cd_wsapi"})
+         :subprotocol "mysql"
+         :subname "//localhost:3306/clojuredocs?user=cd_wsapi&password=cd_wsapi"
+         :create true
+         :username "cd_wsapi"
+         :password "cd_wsapi"})
 
 (defn default [request]
   {:status 200
    :headers {"Content-Type" "application/json"}
    :body "null"})
 
+
+(defn format-example
+  "Given an example, format the example for the API JSON output."
+  [example]
+  (dissoc (into {} example) :id :function_id :user_id))
+
+
 (defn examples [ns name]
   (fn [r]
     {:status 200
      :headers {"Content-Type" "application/json"}
      :body (encode-to-str 
-	    (with-connection db
-	      (transaction
-	       (when-let [id (with-query-results 
-			       rs 
-			       ["select id from functions where ns = ? and name = ?" ns name] 
-			       (:id (first (doall rs))))]
-		 (when-let [examples (with-query-results 
-				       rs 
-				       ["select * from examples where function_id = ?" id] 
-				       (doall rs))]
-		   examples)))))}))
+             (with-connection db
+                              (transaction
+                                (when-let [id (with-query-results
+                                                rs
+                                                ["select id from functions where ns = ? and name = ?" ns name]
+                                                (:id (first (doall rs))))]
+                                  (when-let [examples (with-query-results
+                                                        rs
+                                                        ["select * from examples where function_id = ?" id]
+                                                        (doall rs))]
+                                    (map format-example examples))))))}))
+
+
+; Doesn't do anything yet, but it might in the future.
+(defn format-search
+  "Given a function result set, format the function for the API JSON output."
+  [function]
+  function)
+
+
+; TODO: reduce code duplication smell.
+(defn search
+  ([name]
+   (fn [n]
+     {:status 200
+      :headers {"Content-Type" "application/json"}
+      :body (encode-to-str
+              (with-connection db
+                               (transaction
+                                 (when-let [functions (with-query-results
+                                                        rs
+                                                        ; There is definitely a better way to do this.
+                                                        [(str "select id,name,ns from functions where name like '%" name "%'")]
+                                                        (doall rs))]
+                                   (map format-search functions)))))}))
+  ([ns name]
+   (fn [n]
+     {:status 200
+      :headers {"Content-Type" "application/json"}
+      :body (encode-to-str
+              (with-connection db
+                               (transaction
+                                 (when-let [functions (with-query-results
+                                                        rs
+                                                        ; There is definitely a better way to do this.
+                                                        [(str "select id,name,ns from functions where ns = ? and name like '%" name "%'") ns]
+                                                        (doall rs))]
+                                   (map format-search functions)))))})))
+
 
 (defn app-handler [channel request]
   (enqueue-and-close 
-   channel
-   ((app
-     ["stuff"] examples
-     ["examples" ns name] (examples ns name)
-     [&] default) 
-    request)))
+    channel
+    ((app
+       ["stuff"] examples
+       ["examples" ns name] (examples ns name)
+       ["search" ns name] (search ns name)
+       ["search" name] (search name)
+       [&] default)
+       request)))
 
 (defn app-wrapper [channel request]
   (app-handler channel request))
 
 (comment (def server (start-http-server app-wrapper {:port *server-port*}))
 
-	 (defn restart-server []
-	   (server)
-	   (def server (start-http-server app-wrapper {:port *server-port*})))
 
-	 (restart-server))
+         (defn restart-server []
+         (server)
+         (def server (start-http-server app-wrapper {:port *server-port*})))
+
+         (restart-server))