[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#60521: [PATCH v7] home: Add home-dotfiles-service.
From: |
Ludovic Courtès |
Subject: |
bug#60521: [PATCH v7] home: Add home-dotfiles-service. |
Date: |
Sun, 28 Jan 2024 22:02:31 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
Hi,
Giacomo Leidi <goodoldpaul@autistici.org> skribis:
> * gnu/home/services.scm: New file;
> (dotfiles-for-app): new variable;
> (home-dotfiles-configuration): new variable;
> (home-dotfiles-service-type): new variable.
> * gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
> * po/guix/POTFILES.in: Add it.
> * doc/guix.texi: Document it.
>
> Change-Id: I6769169cfacefc3842faa5b31bee081c56c28743
> Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Committed with the change below (perhaps a mistake I had introduced
myself before) and with a slightly modified commit log.
I’m switching my laptop’s config now. :-)
Thanks for all the work, and thanks for your patience!
Ludo’.
diff --git a/gnu/home/services/dotfiles.scm b/gnu/home/services/dotfiles.scm
index 7226b6bcff..6a740c42ce 100644
--- a/gnu/home/services/dotfiles.scm
+++ b/gnu/home/services/dotfiles.scm
@@ -58,11 +58,8 @@ (define (import-dotfiles directory files)
generated by recursively visiting DIRECTORY and mapping its contents to the
user's home directory, excluding files that match any of the patterns in
EXCLUDED."
(define (strip file)
- (string-join
- (cdr
- (string-split (string-drop file (+ 1 (string-length directory)))
- #\/))
- "/"))
+ (string-drop file (+ 1 (string-length directory))))
+
(define (format file)
;; Remove from FILE characters that cannot be used in the store.
(string-append