[home] Resolve symlinks starting from `GUIX_PACKAGE_PATH`.

Files to symlink are located inside `GUIX_PACKAGE_PATH`. Specifying
this variable every time is redundant. This commit hides the lookup.

diff --git a/conf/home/symlink.scm b/conf/home/symlink.scm
index 2935cf87393a91f852bf0b0d85cb63fd2de34629..1470b97e5e714ea05a19ac520ef4e923b5bac39d 100644 (file)
--- a/conf/home/symlink.scm
+++ b/conf/home/symlink.scm
@@ -12,9 +12,14 @@
   #:export (home-symlink-service-type))
 
 (define (symlink paths)
+  (define (conf-home file)
+    (string-concatenate
+     (list (getenv "GUIX_PACKAGE_PATH") "/" file)))
+
   (define (make-symlink-pair path)
-    (let ((file (local-file path))
-         (first-slash (string-index path #\/)))
+    (let* ((conf-path (conf-home path))
+          (file (local-file conf-path #:recursive? #t))
+          (first-slash (string-index path #\/)))
       (if first-slash
          (list (substring path (+ first-slash 1))
                file)