diff options
| -rw-r--r-- | tissue/web/static.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index bc759b2..4821fca 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -25,6 +25,7 @@ #:use-module (srfi srfi-26) #:use-module (srfi srfi-28) #:use-module (srfi srfi-171) + #:use-module (ice-9 filesystem) #:use-module (skribilo engine) #:use-module (skribilo evaluator) #:use-module (skribilo reader) @@ -53,14 +54,6 @@ (name file-name) (writer file-writer)) -(define (mkdir-p directory) - "Create DIRECTORY and all its parents." - (unless (or (string=? directory "/") - (string=? directory ".")) - (mkdir-p (dirname directory))) - (unless (file-exists? directory) - (mkdir directory))) - (define (replace-extension file new-extension) "Return a new filename where the extension of FILE is replaced with NEW-EXTENSION." @@ -116,7 +109,6 @@ original current directory." thunk (cut chdir previous-current-directory)))) -;; TODO: Use guile-filesystem. (define* (build-website repository-top-level output-directory css files) "Export git repository with REPOSITORY-TOP-LEVEL to OUTPUT-DIRECTORY as a website. @@ -134,14 +126,14 @@ the web output." (when css (engine-custom-set! (find-engine 'html) 'css css)) ;; Create output directory. - (mkdir-p output-directory) + (make-directories output-directory) ;; Write each of the <file> objects. (for-each (lambda (file) (let ((output-file (string-append output-directory "/" (file-name file)))) (display output-file (current-error-port)) (newline (current-error-port)) - (mkdir-p (dirname output-file)) + (make-directories (dirname output-file)) (call-with-output-file output-file (lambda (port) (with-current-directory repository-top-level |