~ruther/guix-local: gnu: ktsuss: Revert to default su.

a632eeb86cea83957cae69e58e2120cbce598723 — Raghav Gururajan 6 years ago 4c88ae7

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>

patch browse .tar.gz .zip

1 files changed, 3 insertions(+), 6 deletions(-)

M gnu/packages/admin.scm

M gnu/packages/admin.scm => gnu/packages/admin.scm +3 -6

@@ 130,6 130,7 @@
   #: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 @@
        (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)