tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-26 02:51:49 +02:00
Code Activity

home: Explicitly connect home-file and symlink-manager services.

Browse Source 
* 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>
This commit is contained in:
Andrew Tropin
2022-02-11 10:55:01 +03:00
committed by Ludovic Courtès
parent d05954047f
commit d3ef61ab17
2 changed files with 20 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/home/services/symlink-manager.scm
+7 -8
View File
@@ -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