From a632eeb86cea83957cae69e58e2120cbce598723 Mon Sep 17 00:00:00 2001 From: Raghav Gururajan Date: Thu, 7 May 2020 11:31:02 -0400 Subject: [PATCH] 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 --- gnu/packages/admin.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index cb3de79713..3222be2749 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -130,6 +130,7 @@ (define-module (gnu packages admin) #:use-module (gnu packages xml) #:use-module (gnu packages xorg)) +;; This package uses su instead of sudo (because of SpaceFM). (define-public ktsuss (package (name "ktsuss") @@ -146,17 +147,13 @@ (define-public ktsuss (file-name (git-file-name name version)))) (build-system glib-or-gtk-build-system) (arguments - `(#:configure-flags - (list "--enable-sudo=yes") - #:phases + `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-file-names (lambda _ (substitute* "configure.ac" (("supath=`which su 2>/dev/null`") - "supath=/run/setuid-programs/su") - (("sudopath=`which sudo 2>/dev/null`") - "sudopath=/run/setuid-programs/sudo")) + "supath=/run/setuid-programs/su")) #t))))) (native-inputs `(("autoconf" ,autoconf)