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: qdirstat: Improve package.

Browse source 
* gnu/packages/disk.scm (qdirstat): Apply G-expressions, shift order of
the fields.

Change-Id: I05a1df8d1b9d1106b64b465aeb2ee4a326ee50f3
This commit is contained in:
Sharlatan Hellseher 2025-06-27 12:04:30 +01:00
parent 751eab8919
commit 3ac3c0d636
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 16 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

34
gnu/packages/disk.scm
View file

@ -1802,24 +1802,22 @@ wrapper for disk usage querying and visualisation.")
(sha256 (sha256
(base32 (base32
"04vpdlwk01kgmc4r5rnrmrgd4sf2kfh1rjzb2rjkfxdd4pbghsy9")))) "04vpdlwk01kgmc4r5rnrmrgd4sf2kfh1rjzb2rjkfxdd4pbghsy9"))))
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(system* "qmake"
(string-append "INSTALL_PREFIX="
(assoc-ref outputs "out")))))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(wrap-program (string-append
(assoc-ref outputs "out")
"/bin/qdirstat-cache-writer")
`("PERL5LIB" ":" prefix
(,(string-append
(assoc-ref inputs "perl-uri-escape")
"/lib/perl5/site_perl")))))))))
(build-system qt-build-system) (build-system qt-build-system)
(arguments
(list
#:phases
#~(modify-phases %standard-phases
(replace 'configure
(lambda _
(system* "qmake" (string-append "INSTALL_PREFIX=" #$output))))
(add-after 'install 'wrap
(lambda _
(wrap-program (string-append #$output
"/bin/qdirstat-cache-writer")
`("PERL5LIB" ":" prefix
(,(string-append
#$(this-package-input "perl-uri-escape")
"/lib/perl5/site_perl")))))))))
(inputs (inputs
(list bash-minimal (list bash-minimal
perl perl
@ -1827,11 +1825,11 @@ wrapper for disk usage querying and visualisation.")
qtbase-5 qtbase-5
qtwayland-5 qtwayland-5
zlib)) zlib))
(home-page "https://github.com/shundhammer/qdirstat")
(synopsis "Storage utilisation visualization tool") (synopsis "Storage utilisation visualization tool")
(description (description
"QDirStat is a graphical application to show where your disk space has "QDirStat is a graphical application to show where your disk space has
gone and to help you to clean it up.") gone and to help you to clean it up.")
(home-page "https://github.com/shundhammer/qdirstat")
(license license:gpl2))) (license license:gpl2)))
(define-public nwipe (define-public nwipe