diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 00:13:58 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-24 00:13:58 +0200 |
commit | 549cf99065e36ab7f2310d30119346ff123665dc (patch) | |
tree | 8c3d23e8df5c325e66da347feff6512a8cf4310f /module/calp/entry-points/html.scm | |
parent | Move html modules under calp. (diff) | |
download | calp-549cf99065e36ab7f2310d30119346ff123665dc.tar.gz calp-549cf99065e36ab7f2310d30119346ff123665dc.tar.xz |
Replace (directories) with general (xdg basedir).
Diffstat (limited to 'module/calp/entry-points/html.scm')
-rw-r--r-- | module/calp/entry-points/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm index b2f613ea..8c400e1d 100644 --- a/module/calp/entry-points/html.scm +++ b/module/calp/entry-points/html.scm @@ -19,7 +19,7 @@ :use-module ((sxml simple) :select (sxml->xml)) :use-module ((sxml transformations) :select (href-transformer)) - :use-module (directories) + :use-module ((xdg basedir) :prefix xdg-) :autoload (vcomponent instance) (global-event-object) ) @@ -74,7 +74,7 @@ ;; TODO nicer way to resolve static (let ((link (path-append output-directory "/static"))) (unless (file-exists? link) - (symlink (path-append data-directory "www/static") link))))) + (symlink (path-append (xdg-data-home) "/calp/www/static") link))))) (define (re-root-static tree) |