Add support for get-in pprinting

lein-pprint/src/leiningen/pprint.clj

@@ -5,7 +5,10 @@
   "Pretty-print a representation of the project map."
   [project & keys]
   (if (seq keys)
-    (doseq [k keys]
-      (pprint/pprint (project (read-string k))))
+    (doseq [kstr keys]
+      (let [k (read-string kstr)]
+        (pprint/pprint (if (sequential? k)
+                         (get-in project k)
+                         (get project k)))))
     (pprint/pprint project))
   (flush))

lein-pprint/test/leiningen/pprint_test.clj

@@ -0,0 +1,7 @@
+(ns leiningen.pprint-test
+  (:require [clojure.test :refer :all]
+            [leiningen.pprint :refer :all]))
+
+(deftest can-pprint
+  (is (= "1\n" (with-out-str (pprint {:foo 1} ":foo"))))
+  (is (= "1\n" (with-out-str (pprint {:foo {:bar 1}} "[:foo :bar]")))))