diff options
| author | Giacomo Leidi <therewasa@fishinthecalculator.me> | 2025-12-15 20:03:00 +0100 |
|---|---|---|
| committer | Cayetano Santos <csantosb@inventati.org> | 2026-02-22 19:51:46 +0100 |
| commit | 4533da834d277dda82ebf51861eb5796e20508df (patch) | |
| tree | 1748df981ce72911df2de9108336e661481bbd29 /gnu/home | |
| parent | dc93f8c7f77c50f1de5717e3e67ba4f8d693dc03 (diff) | |
gnu: home: dotfiles: Files not excluded when they should.
* gnu/home/services/dotfiles.scm (%home-dotfiles-excluded): Match
content of .git directories.
(directory-contents): Match whole file-name instead of basename.
* doc/guix.texi: Document it.
Fixes <https://issues.guix.gnu.org/71217>
Authored-by: Nicolas Odermatt-Lemay <nodermattlemay@gmail.com>
Change-Id: I2929fe3318e1f9f0b552c891207524dea25389ed
Signed-off-by: Cayetano Santos <csantosb@inventati.org>
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/dotfiles.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/home/services/dotfiles.scm b/gnu/home/services/dotfiles.scm index c7c798abc4e..1860009275b 100644 --- a/gnu/home/services/dotfiles.scm +++ b/gnu/home/services/dotfiles.scm | |||
| @@ -45,7 +45,7 @@ | |||
| 45 | (define %home-dotfiles-excluded | 45 | (define %home-dotfiles-excluded |
| 46 | '(".*~" | 46 | '(".*~" |
| 47 | ".*\\.swp" | 47 | ".*\\.swp" |
| 48 | "\\.git" | 48 | "\\.git/.*" |
| 49 | "\\.gitignore")) | 49 | "\\.gitignore")) |
| 50 | 50 | ||
| 51 | (define %home-dotfiles-layouts | 51 | (define %home-dotfiles-layouts |
| @@ -135,8 +135,7 @@ value, excluding files that match any of the patterns configured." | |||
| 135 | (define (filter-files directory) | 135 | (define (filter-files directory) |
| 136 | (find-files directory | 136 | (find-files directory |
| 137 | (lambda (file stat) | 137 | (lambda (file stat) |
| 138 | (not (regexp-exec exclusion-rx | 138 | (not (regexp-exec exclusion-rx file))))) |
| 139 | (basename file)))))) | ||
| 140 | (if (and stow? packages (maybe-value-set? packages)) | 139 | (if (and stow? packages (maybe-value-set? packages)) |
| 141 | (append-map filter-files | 140 | (append-map filter-files |
| 142 | (map (lambda (pkg) | 141 | (map (lambda (pkg) |
