Release 0.1.0.

Author: technomancy

README.md

@@ -1,15 +1,17 @@
-# melange
+# Melange
 
 See with the eyes of the Kwisatz Haderach.
 
 ## Usage
 
-    $ lein melange show
-    $ lein melange clone
-    $ lein melange test
+    $ lein plugin install melange 0.1.0
+
+    $ lein melange show # Show all downstream dependents
+    $ lein melange clone # Clone all dependents into dependents/ dir
+    $ lein melange test # Run tests of all dependents
 
 ## License
 
-Copyright (C) 2012 The Seattle Clojure Group
+Copyright © 2012 The Seattle Clojure Group
 
 Distributed under the Eclipse Public License, the same as Clojure.

project.clj

@@ -1,3 +1,3 @@
-(defproject melange "1.0.0-SNAPSHOT"
-  :description "FIXME: write description"
+(defproject melange "0.1.0"
+  :description "See with the eyes of the Kwisatz Haderach."
   :eval-in-leiningen true)

src/leiningen/melange.clj

@@ -3,36 +3,36 @@
   (:require [leiningen.test :as test]
             [leiningen.core :as core]
             [clojure.java.io :as io]
-            [clojure.pprint :as pprint]
+            [clojure.string :as string]
             [clojure.java.shell :as sh]))
 
 (defonce project-graph (read-string (slurp (io/resource "project_graph.clj"))))
 
 (defn show [project entry]
-  (doseq [dependent (:dependents entry)]
-    (println "==" dependent ":" (-> dependent
-                                    project-graph
-                                    :github-url))))
+  (doseq [dep-name (:dependents entry)
+          :let [dep (project-graph dep-name)]]
+    (println "==" (name dep-name))
+    (doseq [k [:description :homepage :github-url]
+            :when (not (string/blank? (dep k)))]
+      (println "  " (dep k)))))
 
 (defn clone [project entry]
   (.mkdirs (io/file (:root project) "dependents"))
   (doseq [dependent (:dependents entry)
           :let [url (:github-url (project-graph dependent))]
           :when url]
     (println "Cloning" dependent "...")
-    (let [retval (sh/sh "git" "clone"
-                        (str url ".git")
+    (let [retval (sh/sh "git" "clone" (str url ".git")
                         (str "dependents/" (name dependent)))]
       (when (pos? (:exit retval))
-        (println "Clone failed:")
-        (println (:out retval))
-        (println (:err retval))))))
+        (println "Clone failed:" (:out retval) (:err retval))))))
 
 (defn has-tests? [project]
   (and (not (:eval-in-leiningen project))
        (seq (filter #(.endsWith (.getName %) ".clj")
                     (file-seq (io/file (:test-path project)))))))
 
+;; TODO: detect other testing frameworks
 (defn test-project [project summary dependent]
   (println "Running tests for" dependent)
   (let [project (core/read-project
@@ -46,14 +46,24 @@
       (do (println dependent "appears to have no tests.")
           summary))))
 
+(defn test-print-summary [results total]
+  (println "Test results:")
+  (doseq [[dependent passed?] results]
+    (println " " dependent " - "(if passed? "pass" "FAIL")))
+  (println (count (filter val results)) "passed out of" total))
+
 (defn test [project entry]
   (let [dependents (.list (io/file (:root project) "dependents"))
         results (reduce (partial test-project project) {} dependents)]
-    (println "Test results:")
-    (pprint/pprint results)
-    (println (count (filter val results)) "passed out of" (count dependents))))
+    (if (seq dependents)
+      (test-print-summary results (count dependents))
+      (println "No dependent clones present; run \"lein melange clone\"."))))
+
+(defn melange
+  "Operate on downstream dependents.
 
-(defn melange [project command & args]
+Commands: show, clone, test"
+  [project command & args]
   (let [name (-> project :name keyword)
         entry (project-graph name)]
     (if-let [command-fn (ns-resolve 'leiningen.melange (symbol command))]