mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

34
gnu/packages/lxde.scm
View file

@ -27,6 +27,7 @@
(define-module (gnu packages lxde)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages autotools)
#:use-module (gnu packages bash)
#:use-module (gnu packages disk)
@ -279,7 +280,6 @@ (define-public spacefm
`(("bash" ,bash)
("cairo" ,cairo)
("curlftpfs" ,curlftpfs)
("dbus" ,dbus)
("eudev" ,eudev)
("fakeroot" ,fakeroot)
("ffmpegthumbnailer" ,ffmpegthumbnailer)
@ -288,6 +288,7 @@ (define-public spacefm
("gtk+" ,gtk+)
("ifuse" ,ifuse)
("jmtpfs" ,jmtpfs)
("ktsuss" ,ktsuss)
("libx11" ,libx11)
("lsof" ,lsof)
("pango" ,pango)
@ -297,12 +298,31 @@ (define-public spacefm
("util-linux" ,util-linux)
("wget" ,wget)))
(arguments
`(#:configure-flags (list (string-append "--with-bash-path="
(assoc-ref %build-inputs "bash")
"/bin/bash")
(string-append "--sysconfdir="
(assoc-ref %outputs "out")
"/etc"))))
`(#: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")
"/bin/bash")
(string-append "--sysconfdir="
(assoc-ref %outputs "out")
"/etc"))))
(home-page "https://ignorantguru.github.io/spacefm/")
(synopsis "Multi-panel tabbed file manager")
(description "SpaceFM is a graphical, multi-panel, tabbed file manager