summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorthintz <thintz@hotpads.com>2013-10-25 10:45:31 -0700
committerthintz <thintz@hotpads.com>2013-10-25 10:45:31 -0700
commit69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8 (patch)
tree4ce7315bd6b1c428eacf0e5092c129a4721dd72c
parentb766f4ae07c004044570b5163394d736f6fe7015 (diff)
downloadalley-cat-69a6f9c3ffa5062e0c88c49203eb8bb39a5478d8.tar.gz
Change compile to compile-site and add clean param.
-rw-r--r--alley-cat.scm6
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))