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: libblockdev: Use gexps.

Browse source 
* gnu/packages/disk.scm (libblockdev)
[phases]: Use gexps.
{patch-plugin-paths}: Use search-input-file.

Change-Id: I61f9b3dfdd4dc249fb0f59abb99826a8e759bb42
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Maxim Cournoyer 2024-10-07 22:12:31 +02:00 • committed by Ludovic Courtès
parent c3a8251f77
commit a8bd933362
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/packages/disk.scm
View file

@ -1191,19 +1191,26 @@ to create devices with respective mappings for the ATARAID sets discovered.")
"1ny2glwmb5dcdv2x0giinbyma9fhk59z8117k1kr15pm7yjk7jx5"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-configuration-directory
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-configuration-directory
(lambda _
(substitute* "src/lib/blockdev.c"
(("/etc/libblockdev/conf.d/" path) (string-append out path))))))
(add-after 'unpack 'patch-plugin-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "src/plugins" "\\.c$")
(("(gchar \\*arg.+\\{\")([^\"]+)" all start program)
;; XXX: Use 'search-input-file' when available.
(string-append start (or (which program) program)))))))))
(("/etc/libblockdev/conf.d/" path)
(string-append #$output path)))))
(add-after 'unpack 'patch-plugin-paths
(lambda* (#:key inputs #:allow-other-keys)
(substitute* (find-files "src/plugins" "\\.c$")
(("(gchar \\*arg.+\\{\")([^\"]+)" all start program)
(string-append
start (or (false-if-exception
(search-input-file inputs
(string-append "bin/" program)))
(false-if-exception
(search-input-file inputs
(string-append "sbin/" program)))
program)))))))))
(native-inputs
(list gobject-introspection
pkg-config