diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-01-29 01:00:00 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-02-12 01:00:00 +0100 |
| commit | 016eab3e29263045b1422289b7ec9382edc725f9 (patch) | |
| tree | 2b242a576db95345d545948ee981bab54c81a9d8 | |
| parent | 630b6e62d2c59ab6b869c36d47b53bf02a38a426 (diff) | |
gnu: papirus-icon-theme: Recursively resolve symlinks.
This follows up on commit aed385e18ec7b68a0bc1bb4b173aeadc9cd97245.
* gnu/packages/gnome-xyz.scm (papirus-icon-theme)[arguments]: Replace
READLINK with CANONICALIZE-PATH to resolve symlink chains.
| -rw-r--r-- | gnu/packages/gnome-xyz.scm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm index 0cb4adac76..e1d0e5ec07 100644 --- a/gnu/packages/gnome-xyz.scm +++ b/gnu/packages/gnome-xyz.scm @@ -227,11 +227,10 @@ simple and consistent.") (symlink? (lambda (_ stat) (eq? 'symlink (stat:type stat))))) (for-each (lambda (file) - (with-directory-excursion (dirname file) - (let ((target (readlink file))) - (when (eq? 'regular (stat:type (stat target))) - (delete-file file) - (link target file))))) + (let ((target (canonicalize-path file))) + (when (eq? 'regular (stat:type (stat target))) + (delete-file file) + (link target file)))) (find-files out symlink?)))))))) (native-inputs (list `(,gtk+ "bin"))) |