Reduce debug log.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
diff --git a/asset.lisp b/asset.lisp
index b2f08e3..a543410 100644
--- a/asset.lisp
+++ b/asset.lisp
@@ -79,7 +79,7 @@
(defmethod compile-asset ((asset asset) (output stream))
(let ((path (asset-source-path asset)))
- (msg "CP ~A" path)
+ ;;(msg "CP ~A" path)
(with-open-file (in path :element-type '(unsigned-byte 8))
(copy-stream in output)))
nil)
@@ -87,7 +87,7 @@
(defmethod compile-asset ((asset asset) (output pathname))
(ensure-directories-exist output)
(let ((path (asset-source-path asset)))
- (msg "CP ~A" path)
+ ;;(msg "CP ~A" path)
(copy-files path output :replace t :update t))
nil)
diff --git a/js.lisp b/js.lisp
index 8a98009..42fb4b7 100644
--- a/js.lisp
+++ b/js.lisp
@@ -53,7 +53,7 @@
(defmethod process-asset ((asset js-asset)
(output stream))
(with-input-from-file/utf-8 (js (asset-source-path asset))
- (if (find :js *debug*)
+ (if (or (find :js *debug*) (find :assets *debug*))
(copy-stream js output)
(jsmin js output)))
(force-output output)
diff --git a/preprocess.lisp b/preprocess.lisp
index 371a7c7..00e7a1b 100644
--- a/preprocess.lisp
+++ b/preprocess.lisp
@@ -76,7 +76,7 @@
(defun preprocess/asset (asset assets)
(let ((path (asset-source-path asset)))
- (msg "PP ~A" path)
+ ;;(msg "PP ~A" path)
(with-msg-indent (1)
(with-input-from-file/utf-8 (input path)
(preprocess/stream asset input assets)))))
@@ -96,7 +96,7 @@
(defmethod compile-asset ((asset preprocessed-asset) (output stream))
(let ((assets (preprocess-asset asset)))
(loop for a in assets
- do (msg "P ~A" (asset-source-path a))
+ ;;do (msg "P ~A" (asset-source-path a))
do (process-asset a output))))
(defmethod compile-asset ((asset preprocessed-asset) (output pathname))