From 9eab32585fb16b41f2158ad21b43a032ca3c914d Mon Sep 17 00:00:00 2001
From: Brendan Tildesley <mail@brendan.scot>
Date: Mon, 19 Apr 2021 18:26:31 +1000
Subject: [PATCH 1/2] gnu: Add xfce-mate-polkit-autostart.

gnu/packages/xfce.scm (xfce-mate-polkit-autostart) New symbol.
---
 gnu/packages/xfce.scm | 45 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm
index 38240d7b9f..c7ba6218f1 100644
--- a/gnu/packages/xfce.scm
+++ b/gnu/packages/xfce.scm
@@ -48,6 +48,7 @@
   #:use-module (gnu packages inkscape)
   #:use-module (gnu packages libcanberra)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages mate)
   #:use-module (gnu packages pcre)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages photo)
@@ -948,6 +949,50 @@ menubar and the window decorations are hidden) that helps you to save space
 on your desktop.")
     (license gpl2+)))
 
+(define-public xfce-mate-polkit-autostart
+  (package
+    (name "xfce-mate-polkit-autostart")
+    (version "1")
+    (inputs `(("mate-polkit" ,mate-polkit)))
+    (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (delete 'unpack)
+         (delete 'bootstrap)
+         (delete 'patch-usr-bin-file)
+         (delete 'patch-source-shebangs)
+         (delete 'configure)
+         (delete 'patch-generated-file-shebangs)
+         (delete 'check)
+         (delete 'install)
+         (delete 'patch-shebangs)
+         (delete 'strip)
+         (delete 'validate-runpath)
+         (delete 'validate-documentation-location)
+         (delete 'delete-info-dir-file)
+         (delete 'patch-dot-desktop-files)
+         (delete 'install-license-files)
+         (delete 'reset-gzip-timestamps)
+         (delete 'compress-documentation)
+         (replace 'build
+           (lambda _
+             (let* ((mate-polkit (assoc-ref %build-inputs "mate-polkit"))
+                    (out (assoc-ref %outputs "out"))
+                    (dir (string-append out "/etc/xdg/autostart"))
+                    (desktop (string-append
+                              dir "/xfce4-polkit-mate-authentication-agent-1.desktop")))
+               (mkdir-p dir)
+               (copy-file (string-append
+                           mate-polkit "/etc/xdg/autostart/"
+                           "polkit-mate-authentication-agent-1.desktop")
+                          desktop)
+               (substitute* desktop
+                 (("^X-MATE.*") "")
+                 (("MATE") "XFCE"))))))))
+    (source #f) (home-page #f) (synopsis #f) (description #f) (license #f)
+    (properties `((hidden? . #t)))))
+
 (define-public xfce
   (package
     (name "xfce")
-- 
2.31.1