diff options
Diffstat (limited to 'haunt/utils.scm')
-rw-r--r-- | haunt/utils.scm | 16 |
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)) |