nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: udisks: Find the 'mount' command. 

* gnu/packages/freedesktop.scm (udisks)[inputs]: Add UTIL-LINUX.
  [arguments]: Add 'set-mount-file-name' phase.
This commit is contained in:
Ludovic Courtès 2015-11-01 17:43:50 +01:00
parent 222e3319bd
commit 5905114a10
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/freedesktop.scm
View File

@ -343,7 +343,8 @@ Analysis and Reporting Technology) functionality.")
`(("acl" ,acl) `(("acl" ,acl)
("libatasmart" ,libatasmart) ("libatasmart" ,libatasmart)
("libgudev" ,libgudev) ("libgudev" ,libgudev)
("polkit" ,polkit))) ("polkit" ,polkit)
("util-linux" ,util-linux)))
(arguments (arguments
`(#:tests? #f ; requiring system message dbus `(#:tests? #f ; requiring system message dbus
#:configure-flags #:configure-flags
@ -360,7 +361,18 @@ Analysis and Reporting Technology) functionality.")
(("girdir = .*") (("girdir = .*")
"girdir = $(datadir)/gir-1.0\n") "girdir = $(datadir)/gir-1.0\n")
(("typelibsdir = .*") (("typelibsdir = .*")
"typelibsdir = $(libdir)/girepository-1.0\n"))))))) "typelibsdir = $(libdir)/girepository-1.0\n"))))
(add-after 'install 'set-mount-file-name
(lambda* (#:key outputs inputs #:allow-other-keys)
;; Tell 'udisksd' where to find the 'mount' command.
(let ((out (assoc-ref outputs "out"))
(utils (assoc-ref inputs "util-linux")))
(wrap-program (string-append out "/libexec/udisks2/udisksd")
`("PATH" ":" prefix
(,(string-append utils "/bin") ;for 'mount'
"/run/current-system/profile/bin"
"/run/current-system/profile/sbin")))
#t))))))
(home-page "http://www.freedesktop.org/wiki/Software/udisks/") (home-page "http://www.freedesktop.org/wiki/Software/udisks/")
(synopsis "Disk manager service") (synopsis "Disk manager service")
(description (description