diff options
| author | Brendan Tildesley <mail@brendan.scot> | 2021-04-19 18:26:31 +1000 |
|---|---|---|
| committer | Leo Prikler <leo.prikler@student.tugraz.at> | 2021-04-21 10:31:02 +0200 |
| commit | 4213bee8de46cbf15cf0e6f9675a3f13c3dc9541 (patch) | |
| tree | cfbb9473be5bca05eb293f83ac52985606f65c1a /gnu | |
| parent | 13c4a377f5a2e1240790679f3d5643385b6d7635 (diff) | |
| download | guix-4213bee8de46cbf15cf0e6f9675a3f13c3dc9541.tar.gz guix-4213bee8de46cbf15cf0e6f9675a3f13c3dc9541.zip | |
gnu: Add mate-polkit-for-xfce.
gnu/packages/xfce.scm (mate-polkit-for-xfce) New variable.
Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/xfce.scm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 38240d7b9f..c13bf58a59 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -14,6 +14,7 @@ ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> +;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot> ;;; ;;; This file is part of GNU Guix. ;;; @@ -48,6 +49,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 +950,23 @@ menubar and the window decorations are hidden) that helps you to save space on your desktop.") (license gpl2+))) +(define-public mate-polkit-for-xfce + (package/inherit mate-polkit + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'patch-desktop + (lambda* (#:key outputs #:allow-other-keys) + (let* ((common (string-append + (assoc-ref outputs "out") "/etc/xdg/autostart/" + "polkit-mate-authentication-agent-")) + (old (string-append common "1.desktop")) + (new (string-append common "for-xfce-1.desktop"))) + (substitute* old (("MATE;") "XFCE;")) + ;; To avoid a conflict if both MATE and XFCE are installed. + (rename-file old new))))))) + (properties `((hidden? . #t))))) + (define-public xfce (package (name "xfce") |