amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: papirus-icon-theme: Reduce inode consumption.

Browse source 
* gnu/packages/gnome-xyz.scm (papirus-icon-theme)[arguments]:
Add a new 'halve-inode-consumption phase.
This commit is contained in:
Tobias Geerinckx-Rice 2023-01-29 01:00:00 +01:00
parent ea6a2df77f
commit aed385e18e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

20
gnu/packages/gnome-xyz.scm
View file

@ -6,7 +6,7 @@
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us> ;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2020 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2020 Ekaitz Zarraga <ekaitz@elenq.tech> ;;; 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 Ryan Prior <rprior@protonmail.com>
;;; Copyright © 2020 Ellis Kenyo <me@elken.dev> ;;; Copyright © 2020 Ellis Kenyo <me@elken.dev>
;;; Copyright © 2020 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2020 Stefan Reichör <stefan@xsteve.at>
@ -216,7 +216,23 @@ simple and consistent.")
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'bootstrap) (delete 'bootstrap)
(delete 'configure) (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 (native-inputs
(list `(,gtk+ "bin"))) (list `(,gtk+ "bin")))
(home-page "https://git.io/papirus-icon-theme") (home-page "https://git.io/papirus-icon-theme")