First version that works with thintz.com.

alley-cat.meta

@@ -1,7 +1,7 @@
 (
 (category web)
 
-(needs sxml-transforms srfi-69 scss srfi-13 lowdown doctype)
+(needs sxml-transforms srfi-69 scss srfi-13 lowdown doctype posix)
 
 ;(test-depends test)
 

alley-cat.scm

@@ -15,8 +15,8 @@
    compile
   )
 
-(import chicken scheme files srfi-1 extras ports)
+(import chicken scheme files srfi-1 extras ports irregex)
-(use sxml-transforms srfi-69 scss srfi-13 lowdown doctype)
+(use sxml-transforms srfi-69 scss srfi-13 lowdown doctype posix)
 
 (define *pages* (make-hash-table))
 (define *stylesheets* (make-hash-table))
@@ -25,7 +25,7 @@
 (define src-dir (make-parameter "src"))
 (define out-dir (make-parameter "out"))
 (define res-dir (make-parameter "res"))
-(define link-root (make-parameter "/home"))
+(define link-root (make-parameter ""))
 (define doctype (make-parameter doctype-html))
 
 (define ++ string-append)
@@ -76,31 +76,42 @@
   (hash-table-delete! *stylesheets* path))
 
 (define (add-file-resource! path)
-  (cons path *file-resources*))
+  (set! *file-resources* (cons path *file-resources*)))
 
 (define (delete-file-resource! path)
-  (remove (lambda (p) (equal? p path)) *file-resources*))
+  (set! *file-resources* (remove (lambda (p) (equal? p path)) *file-resources*)))
+
+(define (create-dirs path)
+  (create-directory (pathname-directory path) #t))
 
 (define (output-pages)
   (hash-table-for-each
    *pages*
    (lambda (k v)
-     (with-output-to-file (++ (out-dir) "/" k)
+     (let ((p (++ (out-dir) "/" k)))
-       (lambda () (print (doctype) (sxml->html v)))))))
+       (create-dirs p)
+       (with-output-to-file p
+         (lambda () (print (doctype) (sxml->html v))))))))
 
 (define (output-stylesheets)
   (hash-table-for-each
    *stylesheets*
    (lambda (k v)
-     (with-output-to-file (++ (out-dir) "/" k)
+     (let ((p (++ (out-dir) "/" k)))
-       (lambda () (scss->css v))))))
+       (create-dirs p)
+       (with-output-to-file p
+         (lambda () (scss->css v)))))))
 
 (define (copy-file-resources)
-  (for-each (lambda (p)
+  (for-each
-              (file-copy (++ (res-dir) "/" p) (++ (out-dir) "/" p)))
+   (lambda (p)
-            *file-resources*))
+     (let ((path-out (++ (out-dir) "/" p)))
+       (create-dirs path-out)
+       (file-copy (++ (res-dir) "/" p) path-out)))
+   *file-resources*))
 
 (define (compile)
+  (and (directory? (out-dir)) (delete-directory (out-dir) #t))
   (output-pages)
   (output-stylesheets)
   (copy-file-resources))

alley-cat.setup

@@ -1,5 +1,5 @@
-(compile -s -O2 -d1 alley-cat.scm -j alley-cat)
+(compile -s -O2 -d2 alley-cat.scm -j alley-cat)
-(compile -s alley-cat.import.scm -O2 -d0)
+(compile -s alley-cat.import.scm -O2 -d2)
 
 (install-extension
  ;; Name of your extension: