use external jsmin
diff --git a/precompile/process.lisp b/precompile/process.lisp
index fe5ad8b..7ae9d24 100644
--- a/precompile/process.lisp
+++ b/precompile/process.lisp
@@ -88,17 +88,23 @@ try {
;; JS
+(defun jsmin (in out)
+ (let ((err (make-string-output-stream)))
+ (unwind-protect
+ (sb-ext:run-program "jsmin" '()
+ :input in
+ :output out
+ :error err
+ :search t)
+ (close err))))
+
(defmethod process-asset ((asset js-asset)
(output stream))
(with-input-from-file/utf-8 (js (asset-source-path asset))
(if (find :js *debug*)
- (progn (copy-stream js output)
- (terpri output))
- (write-string (cl-uglify-js:ast-gen-code (cl-uglify-js:ast-mangle
- (cl-uglify-js:ast-squeeze
- (parse-js:parse-js js)))
- :beautify nil)
- output)))
+ (copy-stream js output)
+ (jsmin js output)))
+ (force-output output)
(values))
(defmethod include-asset ((asset js-asset)