From 549cf99065e36ab7f2310d30119346ff123665dc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 24 Aug 2020 00:13:58 +0200 Subject: Replace (directories) with general (xdg basedir). --- module/calp/entry-points/html.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/calp/entry-points/html.scm') 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) -- cgit v1.2.3