me
/
guix
Archived
1
0
Fork 0
Code

gnu: ktsuss: Revert to default su. 

* gnu/packages/admin.scm (ktsuss): Use su instead of sudo; for
compatiblity with SpaceFM.
[arguments]<#:configure-flags>: Remove "--enable-sudo=yes".
[arguments]<#:phases>[patch-file-names]: Remove sudopath from phases.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
master
Raghav Gururajan 2020-05-07 11:31:02 -04:00 committed by Danny Milosavljevic
parent 4c88ae7b03
commit a632eeb86c
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/admin.scm
View File

@ -130,6 +130,7 @@
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg)) #:use-module (gnu packages xorg))
;; This package uses su instead of sudo (because of SpaceFM).
(define-public ktsuss (define-public ktsuss
(package (package
(name "ktsuss") (name "ktsuss")
@ -146,17 +147,13 @@
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:configure-flags `(#:phases
(list "--enable-sudo=yes")
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-file-names (add-after 'unpack 'patch-file-names
(lambda _ (lambda _
(substitute* "configure.ac" (substitute* "configure.ac"
(("supath=`which su 2>/dev/null`") (("supath=`which su 2>/dev/null`")
"supath=/run/setuid-programs/su") "supath=/run/setuid-programs/su"))
(("sudopath=`which sudo 2>/dev/null`")
"sudopath=/run/setuid-programs/sudo"))
#t))))) #t)))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)