diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-01-25 15:45:22 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2025-01-26 00:49:39 +0900 |
| commit | 3cf25893697137528056cc20d96796a9fbb175e6 (patch) | |
| tree | cfdf2e6509494525ab819dd1e417c1800b1b5866 /gnu/packages/freedesktop.scm | |
| parent | 0e8c8fd1a490a6eec4b80aa7651c789b097d4b4b (diff) | |
gnu: udisks: Patch eject and umount commands.
Since commit "96317d13ae60f1d9a5b1b40b8f72ad8ddc4e653c" (gnu: udisks: Remove
obsolete wrap-udisksd phase.), the eject and umount commands had to be found
on PATH, leading to errors such as "Error spawning command-line `eject [...]"
when atempting to eject a drive via Nautilus, for example.
* gnu/packages/freedesktop.scm (udisks) [arguments]
<phases>: Add new patch-commands phase.
Change-Id: Ia414393f0d9da2eedd1e28c3baaf6b83a76df34c
Diffstat (limited to 'gnu/packages/freedesktop.scm')
| -rw-r--r-- | gnu/packages/freedesktop.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/packages/freedesktop.scm b/gnu/packages/freedesktop.scm index c6f18e9949..e17dc74310 100644 --- a/gnu/packages/freedesktop.scm +++ b/gnu/packages/freedesktop.scm @@ -1865,6 +1865,16 @@ Analysis and Reporting Technology) functionality.") (string-append "--with-udevdir=" #$output "/lib/udev")) #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'patch-commands + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "src/udiskslinuxdrive.c" + (("\"eject %s\"") + (format #f "\"~a %s\"" + (search-input-file inputs "bin/eject")))) + (substitute* "src/udisksstate.c" + (("\"umount -l %s\"") + (format #f "\"~a -l %s\"" + (search-input-file inputs "bin/umount")))))) (add-before 'configure 'fix-girdir (lambda _ ;; Install introspection data to its own output. |