ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: rmlint: Update package style.

Browse source 
* gnu/packages/disk.scm (rmlint)[arguments]:
Rewrite as G-expressions.
[native-inputs, inputs]: Remove input labels.
This commit is contained in:
Tobias Geerinckx-Rice 2023-08-06 02:00:00 +02:00
parent 02ccc57635
commit 3a1547db2e
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 34 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

71
gnu/packages/disk.scm
View file

@ -1143,45 +1143,42 @@ (define-public rmlint
"0sk4v1chnk2hvzi92svyf8qgamfs4fvial90qwx4a7dayxhkbsm4"))))
(build-system scons-build-system)
(arguments
`(#:scons ,scons-python2
#:scons-flags (list (string-append "--prefix=" %output)
(string-append "--actual-prefix=" %output))
#:tests? #f ; No tests?
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'scons-propagate-environment
(lambda* (#:key inputs #:allow-other-keys)
;; TODO: `rmlint --gui` fails with
;; "Failed to load shredder: No module named 'shredder'".
;; The GUI might also need extra dependencies, such as
;; python-gobject, python-cairo, dconf, librsvg, gtksourceview3.
(substitute* "lib/cmdline.c"
(("const char \\*commands\\[\\] = \\{\"python3\", \"python\", NULL\\};")
(string-append
"const char *commands[] = {\""
(assoc-ref inputs "python") "/bin/python"
"\", \"python\", NULL};")))
;; By design, SCons does not, by default, propagate
;; environment variables to subprocesses. See:
;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
;; Here, we modify the SConstruct file to arrange for
;; environment variables to be propagated.
(substitute* "SConstruct"
(("^env = Environment\\(.*\\)" all)
(string-append
all
"\nenv['ENV']=os.environ"))))))))
(list
#:scons scons-python2
#:scons-flags
#~(list (string-append "--prefix=" #$output)
(string-append "--actual-prefix=" #$output))
#:tests? #f ; no tests
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'scons-propagate-environment
(lambda* (#:key inputs #:allow-other-keys)
;; TODO: `rmlint --gui` fails with
;; "Failed to load shredder: No module named 'shredder'".
;; The GUI might also need extra dependencies, such as
;; python-gobject, python-cairo, dconf, librsvg, gtksourceview3.
(substitute* "lib/cmdline.c"
(("const char \\*commands\\[\\] = \\{\"python3\", \"python\", NULL\\};")
(string-append "const char *commands[] = {\""
(search-input-file inputs "/bin/python")
"\", \"python\", NULL};")))
;; By design, SCons does not, by default, propagate
;; environment variables to subprocesses. See:
;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
;; Here, we modify the SConstruct file to arrange for
;; environment variables to be propagated.
(substitute* "SConstruct"
(("^env = Environment\\(.*\\)" all)
(string-append all "\nenv['ENV']=os.environ"))))))))
(native-inputs
`(("pkg-config" ,pkg-config)
("glib:bin" ,glib "bin")
("python-sphinx" ,python-sphinx)))
(list `(,glib "bin") pkg-config python-sphinx))
(inputs
`(("python" ,python-wrapper)
("glib" ,glib)
("libelf" ,libelf)
("elfutils" ,elfutils)
("json-glib" ,json-glib)
("libblkid" ,util-linux "lib")))
(list elfutils
glib
json-glib
libelf
python-wrapper
`(,util-linux "lib")))
(home-page "https://rmlint.rtfd.org")
(synopsis "Remove duplicates and other lint from the file system")
(description "@command{rmlint} finds space waste and other broken things