 
 (defn ->bowdlerize-fs
   "add bowdlerize-edn to fs if not already there"
-  [fileset]
+  [fileset verbose]
   ;; (println "->BOWDLERIZE-FS")
   (let [tmp-dir (boot/tmp-dir!)
         bowdlerize-fs (->> fileset
                            boot/input-files
                            (boot/by-name [bowdlerize-edn]))
         f (condp = (count bowdlerize-fs)
-                 0 (let [_ (util/info (str "Creating bowdlerize.edn\n"))
+                 0 (let [_ (if verbose (util/info (str "Creating bowdlerize.edn\n")))
                          f (io/file tmp-dir bowdlerize-edn)]
                      ;; (println "NEW BOWDLERIZE-EDN FILE: " f)
                      (spit f {})

                                            artifactid
                                            version])]
                    (if (not (.exists (io/file ~(.getPath webjars-cache) path)))
                      (do (util/info (format "Installing webjar:   %s\n" coord))
                          (pod/unpack-jar (:jar dep) ~destdir))
                      (if ~verbose (util/info (format "Found cached webjar:   %s\n" coord)))))))))
      (-> fileset (boot/add-resource webjars-cache) boot/commit!))))

(boot/deftask tester
  "test"
  [t type KW kw "type"]
  (boot/with-pre-wrap [fileset]
    (let [[b-content pod] (->bowdlerize-pod fileset)]
      (println "B-CONTENT: " b-content)
;;      (println "POD: " pod)
      fileset))

              (if (not (.exists (io/file ~(.getPath bower-cache) path)))
                (let [c [~bcmd "install" (last bower-pkg) :dir ~(.getPath bower-cache)]]
                  ;; (println "bower cmd: " c)
                  (if ~verbose (util/info (format "Installing bower pkg:   %s\n" bower-pkg)))
                  (apply sh c))
                (if ~verbose (util/info (format "Found cached bower pkg: %s\n" bower-pkg))))))))
      (-> fileset (boot/add-resource bower-cache) boot/commit!))))
