diff options
| author | Andrew Tropin <andrew@trop.in> | 2022-02-11 10:55:01 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-20 19:02:41 +0100 |
| commit | d3ef61ab175ddcb1e1df792aa613beb4519a479a (patch) | |
| tree | 4ea7c841a04a011f5bb569072c04a9f8521797f3 /gnu/home/services/symlink-manager.scm | |
| parent | d05954047f7a9b07928d78dabc2a6a345dd0b016 (diff) | |
| download | guix-d3ef61ab175ddcb1e1df792aa613beb4519a479a.tar guix-d3ef61ab175ddcb1e1df792aa613beb4519a479a.tar.gz | |
home: Explicitly connect home-file and symlink-manager services.
* gnu/home/services.scm (home-files-directory): New variable.
* gnu/home/symlink-manager.scm (update-symlinks-script): Use
home-files-directory variable from (gnu home services).
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/home/services/symlink-manager.scm')
| -rw-r--r-- | gnu/home/services/symlink-manager.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gnu/home/services/symlink-manager.scm b/gnu/home/services/symlink-manager.scm index eb13d60496..16031ea5d3 100644 --- a/gnu/home/services/symlink-manager.scm +++ b/gnu/home/services/symlink-manager.scm @@ -26,12 +26,11 @@ ;;; Comment: ;;; -;;; symlink-manager cares about configuration files: it backs up files -;;; created by user, removes symlinks and directories created by a -;;; previous generation, and creates new directories and symlinks to -;;; configuration files according to the content of files/ directory -;;; (created by home-files-service) of the current home environment -;;; generation. +;;; symlink-manager cares about xdg configurations and other files: it backs +;;; up files created by user, removes symlinks and directories created by a +;;; previous generation, and creates new directories and symlinks to files +;;; according to the content of directories (created by home-files-service) of +;;; the current home environment generation. ;;; ;;; Code: @@ -84,7 +83,7 @@ ;; store item containing a home generation. (define config-file-directory ;; Note: Trailing slash is needed because "files" is a symlink. - (string-append home-generation "/files/")) + (string-append home-generation "/" #$home-files-directory "/")) (define (strip file) (string-drop file @@ -143,7 +142,7 @@ ;; Create in $HOME symlinks for the files in HOME-GENERATION. (define config-file-directory ;; Note: Trailing slash is needed because "files" is a symlink. - (string-append home-generation "/files/")) + (string-append home-generation "/" #$home-files-directory "/")) (define (strip file) (string-drop file |