diff options
| author | thintz <thintz@hotpads.com> | 2013-10-25 10:45:31 -0700 |
|---|---|---|
| committer | thintz <thintz@hotpads.com> | 2013-10-25 10:45:31 -0700 |
| commit | 69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8 (patch) | |
| tree | 4ce7315bd6b1c428eacf0e5092c129a4721dd72c | |
| parent | b766f4ae07c004044570b5163394d736f6fe7015 (diff) | |
| download | alley-cat-69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8.tar.gz | |
Change compile to compile-site and add clean param.
| -rw-r--r-- | alley-cat.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/alley-cat.scm b/alley-cat.scm index d40bd16..6872a15 100644 --- a/alley-cat.scm +++ b/alley-cat.scm @@ -12,7 +12,7 @@ ; core functions add-page! delete-page! add-css! delete-css! add-file-resource! delete-file-resource! - compile + compile-site ) (import chicken scheme files srfi-1 extras ports irregex) @@ -110,8 +110,8 @@ (file-copy (++ (res-dir) "/" p) path-out))) *file-resources*)) -(define (compile) - (and (directory? (out-dir)) (delete-directory (out-dir) #t)) +(define (compile-site #!key (clean #t)) + (when clean (and (directory? (out-dir)) (delete-directory (out-dir) #t))) (output-pages) (output-stylesheets) (copy-file-resources)) |