 (defn minify-css-input [source target {:keys [linebreak] :or {linebreak -1}}]
   (with-open [rdr (reader source)
               wrt (writer target)]
-    (-> rdr (CssCompressor.) (.compress wrt linebreak))))
+    (-> rdr 
+        (CssCompressor.) 
+        (.compress wrt linebreak))))
 
 (defn minify-css [path target & [opts]]
   (delete-target target)
-  (let [assets (aggregate path ".css")
-        tmp    (File/createTempFile "temp-sources" ".css")
+  (let [assets (aggregate path css)
+        tmp    (File/createTempFile "temp-sources" css)
         target (file target)]
     (with-open [wrt (writer tmp :append true)]
       (doseq [file assets]


(defn minify-html [path target opts]
  (delete-target target)
  (let [assets (aggregate path ".html")]
    (doseq [asset assets]
      (minify-html-asset asset target opts))
    (compression-details assets (aggregate target ".html"))))

(defn minify
  "assets are specified using a map where the key is the output file and the value is the asset paths, eg:

        (for [[target path] assets]
          [[path target]
           (cond
             (.endsWith target js)  (minify-js path target opts)
             (.endsWith target css) (minify-css path target opts)
             :else (throw (ex-info "unrecognized target" target)))])))
