Working on lein plugin, broken by verify error so far

project.clj

@@ -17,6 +17,8 @@
                  [prismatic/dommy "0.1.1"]
                  [cljs-ajax "0.2.0"]]
 
+;;  :eval-in-leiningen true
+
   :plugins [[lein-cljsbuild "0.3.2"]
             [lein-ring "0.8.6"]]
 

src/clj/cloc/core.clj

@@ -1,20 +1,22 @@
 (ns cloc.core
   "Cloc main entry point, for Jetty web server."
-  (:require [ring.adapter.jetty :as jetty]
-            [cloc.routes        :as routes]
-            [cloc.index         :as index]
-            [cloc.search        :as search]))
+  (:require [clojure.java.classpath :as cp]
+            [ring.adapter.jetty     :as jetty]
+            [cloc.routes            :as routes]
+            [cloc.index             :as index]
+            [cloc.search            :as search]))
 
 (def server (atom nil))
 
 (defn start-server!
   "Start a jetty server"
-  []
+  [& [ring-opts]]
   (swap! server
          (fn [s]
            (when s (.stop s))
            (jetty/run-jetty routes/main
-                            {:port 1337, :join? false}))))
+                            (or ring-opts
+                                {:port 1337, :join? false})))))
 
 (defn stop-server!
   "Stop the jetty server, if one is running."
@@ -24,6 +26,11 @@
 (defn init!
   "Ring initialiser function.
    When working interactively, call this before start-server!"
-  [& _]
-  (index/init-index!)
+  [& [classpath]]
+  (index/init-index! (or classpath (cp/classpath)))
   (search/init-search-index! @index/index))
+
+(defn main
+  [ring-opts classpath]
+  (init! classpath)
+  (start-server! ring-opts))

src/clj/cloc/index.clj

@@ -1,7 +1,6 @@
 (ns cloc.index
   "Functions for access the documentation index structure."
-  (:require [clojure.java.classpath :refer [classpath]]
-            [codox.reader           :refer [read-namespaces]])
+  (:require [codox.reader :refer [read-namespaces]])
   (:import  [java.io File]))
 
 (def index
@@ -51,7 +50,6 @@
 (defn init-index!
   "Return a documentation index structure, to be used with the other
    functions in this namespace."
-  ([]   (init-index! (classpath)))
   ([cp] (reset! index (index-classpath cp))))
 
 (defn local-code

src/clj/leiningen/cloc.clj

@@ -0,0 +1,33 @@
+(ns leiningen.cloc
+  "Leiningen plugin to start the cloc web server locally."
+  (:require [leiningen.core.classpath    :as cp]
+            [cemerick.pomegranate.aether :as aether]
+            [cloc.core                   :refer [main]]))
+
+(defn- try-parse
+  "Try to convert v to integer, then bool, else string."
+  [v]
+  (if-let [num (try (Integer/parseInt v) (catch NumberFormatException _ nil))]
+    num
+    (cond
+     (re-find #"true|flase" (.toLowerCase v)) (Boolean/parseBoolean v)
+     :else (str v))))
+
+(defn cloc
+  "Start the cloc doc server locally, serving API docs for
+   your code and all your dependencies. Accepts ring configuration
+   map keyword and value arguments. Most useful ones will be:
+
+    - :host -- host name to listen on
+    - :port -- port to listen for connections on"
+  [project & args]
+  (let [jars (filter (fn [f] (re-find #"\.jar$") (.getName f))
+                     (aether/dependency-files
+                      (cp/dependency-hierarchy :dependencies project)))]
+    (assert (even? (count args))
+            "Number of args should be even - only key-value pairs supported.")
+    (main (merge
+           (reduce (fn [m [k v ]] (assoc m (keyword k) (try-parse v)))
+                   {}
+                   (partition 2 args))
+           {:join? true}))))