me/guix
Archived
1
0
Fork 0
Code Activity

gnu: spacefm: Fix privilege and disk management.

Browse source 
* gnu/packages/lxde.scm (spacefm)[inputs]: Remove dbus.
Add ktsuss.
[arguments]<#:phases>[patch-source-files]: New phase.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
Raghav Gururajan 2020-04-30 09:44:32 -04:00 • committed by Danny Milosavljevic
parent e06664da02
commit 53e8b852e9
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 27 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/packages/lxde.scm
View file

@ -27,6 +27,7 @@
(define-module (gnu packages lxde) (define-module (gnu packages lxde)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
#:use-module (gnu packages bash) #:use-module (gnu packages bash)
#:use-module (gnu packages disk) #:use-module (gnu packages disk)
@ -279,7 +280,6 @@ with freedesktop.org standard.")
`(("bash" ,bash) `(("bash" ,bash)
("cairo" ,cairo) ("cairo" ,cairo)
("curlftpfs" ,curlftpfs) ("curlftpfs" ,curlftpfs)
("dbus" ,dbus)
("eudev" ,eudev) ("eudev" ,eudev)
("fakeroot" ,fakeroot) ("fakeroot" ,fakeroot)
("ffmpegthumbnailer" ,ffmpegthumbnailer) ("ffmpegthumbnailer" ,ffmpegthumbnailer)
@ -288,6 +288,7 @@ with freedesktop.org standard.")
("gtk+" ,gtk+) ("gtk+" ,gtk+)
("ifuse" ,ifuse) ("ifuse" ,ifuse)
("jmtpfs" ,jmtpfs) ("jmtpfs" ,jmtpfs)
("ktsuss" ,ktsuss)
("libx11" ,libx11) ("libx11" ,libx11)
("lsof" ,lsof) ("lsof" ,lsof)
("pango" ,pango) ("pango" ,pango)
@ -297,7 +298,26 @@ with freedesktop.org standard.")
("util-linux" ,util-linux) ("util-linux" ,util-linux)
("wget" ,wget))) ("wget" ,wget)))
(arguments (arguments
`(#:configure-flags (list (string-append "--with-bash-path=" `(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-source-files
(lambda* (#:key inputs #:allow-other-keys)
;; Patch config file to load programs correctly.
(substitute* "etc/spacefm.conf"
(("#terminal_su=/bin/su")
"terminal_su=/run/setuid-programs/sudo")
(("#graphical_su=/usr/bin/gksu")
(string-append "graphical_su="
(string-append (assoc-ref inputs "ktsuss")
"/bin/ktsuss"))))
;; SpaceFM expects udevil to have uid set to root.
;; User has to manually add udevil to setuid-programs.
(substitute* "src/settings.c"
(("/usr/bin/udevil")
"/run/setuid-programs/udevil"))
#t)))
#:configure-flags (list
(string-append "--with-bash-path="
(assoc-ref %build-inputs "bash") (assoc-ref %build-inputs "bash")
"/bin/bash") "/bin/bash")
(string-append "--sysconfdir=" (string-append "--sysconfdir="