Commit 7b962ccd154b212e1f1b63ba927a81b25ef255cb

Thomas de Grivel 2015-06-30T01:38:13

Fix css asset urls.

diff --git a/css.lisp b/css.lisp
index e12e626..503ace5 100644
--- a/css.lisp
+++ b/css.lisp
@@ -44,15 +44,17 @@
 			  (output stream))
   (format output "@import url('~A');~%" (asset-url asset)))
 
-(defmethod compile-asset :around ((asset css-asset) (output pathname))
+(defmethod process-asset :around ((asset css-asset) (output stream))
   (with-temporary-file (tmp)
-    (compile-asset asset tmp)
+    (call-next-method asset tmp)
     (force-output tmp)
     (file-position tmp 0)
-    (regex-lines "\\burl\\s*\\([\"']?asset:([^\"'?#)]*)([^\"')]*)[\"']?\\)" tmp
+    (regex-lines "\\burl\\s*\\([\"']?asset:([^\"'?#)]*)([^\"')]*)[\"']?\\)"
+                 tmp
                  :replace (lambda (match spec rest)
                             (declare (ignore match))
                             (let ((asset (find-asset spec)))
+                              #+FIXME
                               (unless (asset-digest asset)
                                 (compile-asset asset (pathname (asset-path asset))))
                               (str "url('" (asset-url asset) rest "')")))