diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-01-29 01:00:00 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-01-29 01:00:15 +0100 |
| commit | aed385e18ec7b68a0bc1bb4b173aeadc9cd97245 (patch) | |
| tree | bf08823c6699e5f679e4992e5ab5c374dc80b84d | |
| parent | ea6a2df77f553346f2060e6ba9fa1f833c1895ab (diff) | |
| download | guix-aed385e18ec7b68a0bc1bb4b173aeadc9cd97245.tar.gz | |
gnu: papirus-icon-theme: Reduce inode consumption.
* gnu/packages/gnome-xyz.scm (papirus-icon-theme)[arguments]: Add a new 'halve-inode-consumption phase.
| -rw-r--r-- | gnu/packages/gnome-xyz.scm | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm index 84b46fe89f..0cb4adac76 100644 --- a/gnu/packages/gnome-xyz.scm +++ b/gnu/packages/gnome-xyz.scm @@ -6,7 +6,7 @@ ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us> ;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech> -;;; Copyright © 2020 Tobias Geerinckx-Rice <me@tobias.gr> +;;; Copyright © 2020, 2023 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com> ;;; Copyright © 2020 Ellis Kenyo <me@elken.dev> ;;; Copyright © 2020 Stefan Reichör <stefan@xsteve.at> @@ -216,7 +216,23 @@ simple and consistent.") (modify-phases %standard-phases (delete 'bootstrap) (delete 'configure) - (delete 'build)))) + (delete 'build) + (add-after 'install 'halve-inode-consumption + ;; This package uses over 100K inodes, which is a lot. We can easily + ;; halve that number by using (hard) links, to no ill effect. + ;; See <https://logs.guix.gnu.org/guix/2023-01-31.log#171227>. + ;; However, the source checkout will still use the full amount! + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (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))))) + (find-files out symlink?)))))))) (native-inputs (list `(,gtk+ "bin"))) (home-page "https://git.io/papirus-icon-theme") |