site: Add build-site procedure.

* haunt/utils.scm (absolute-file-name, clean-directory): New procedures.
* haunt/site.scm (build-site): New procedure.

1 files changed, 15 insertions, 1 deletions

diff --git a/haunt/utils.scm b/haunt/utils.scm
index 504d6e2..8923e13 100644
--- a/haunt/utils.scm
+++ b/haunt/utils.scm
@@ -29,7 +29,9 @@
   #:use-module (srfi srfi-26)
   #:export (flatten
             flat-map
-            string-split-at))
+            string-split-at
+            absolute-file-name
+            clean-directory))
 
 (define* (flatten lst #:optional depth)
   "Return a list that recursively concatenates the sub-lists of LST,
@@ -56,3 +58,15 @@ flattened."
               (string-drop str (1+ i)))
         (list str))))
 
+(define (absolute-file-name file-name)
+  (if (absolute-file-name? file-name)
+      file-name
+      (string-append (getcwd) "/" file-name)))
+
+(define (clean-directory dir)
+  (define (delete-other-files file-name stat flag)
+    (unless (string=? dir file-name)
+      (delete-file file-name))
+    #t)
+
+  (ftw dir delete-other-files))