diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 21:32:15 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-01 22:10:14 +0100 |
| commit | 55477368f84f76b831d3b714c52784e7bb952021 (patch) | |
| tree | dd8afcc594e1b8ec6f4c59777c343488ab049820 /module/calp/entry-points | |
| parent | Document module-dependants. (diff) | |
| download | calp-55477368f84f76b831d3b714c52784e7bb952021.tar.gz calp-55477368f84f76b831d3b714c52784e7bb952021.tar.xz | |
Move path-append to own module.
Diffstat (limited to 'module/calp/entry-points')
| -rw-r--r-- | module/calp/entry-points/html.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm index adac302f..7c4fe257 100644 --- a/module/calp/entry-points/html.scm +++ b/module/calp/entry-points/html.scm @@ -1,6 +1,7 @@ (define-module (calp entry-points html) :export (main) :use-module (hnh util) + :use-module ((hnh util path) :select (path-append)) :use-module (calp util time) :use-module (hnh util options) :use-module (datetime) @@ -66,15 +67,15 @@ ;; file existing but is of wrong type, (define (create-files output-directory) - (let* ((link (path-append output-directory "/static"))) + (let* ((link (path-append output-directory "static"))) (unless (file-exists? output-directory) (mkdir output-directory)) ;; TODO nicer way to resolve static - (let ((link (path-append output-directory "/static"))) + (let ((link (path-append output-directory "static"))) (unless (file-exists? link) - (symlink (path-append (xdg-data-home) "/calp/www/static") link))))) + (symlink (path-append (xdg-data-home) "calp" "www" "static") link))))) (define (re-root-static tree) |