me/guix
Archived
1
0
Fork 0
Code Activity

gnu: Add mate-polkit-for-xfce.

Browse source 
gnu/packages/xfce.scm (mate-polkit-for-xfce) New variable.

Signed-off-by: Leo Prikler <leo.prikler@student.tugraz.at>
This commit is contained in:
Brendan Tildesley 2021-04-19 18:26:31 +10:00 • committed by Leo Prikler
parent 13c4a377f5
commit 4213bee8de
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/packages/xfce.scm
View file

@ -14,6 +14,7 @@
;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com> ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de> ;;; Copyright © 2020 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de> ;;; Copyright © 2020, 2021 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -48,6 +49,7 @@
#:use-module (gnu packages inkscape) #:use-module (gnu packages inkscape)
#:use-module (gnu packages libcanberra) #:use-module (gnu packages libcanberra)
#:use-module (gnu packages linux) #:use-module (gnu packages linux)
#:use-module (gnu packages mate)
#:use-module (gnu packages pcre) #:use-module (gnu packages pcre)
#:use-module (gnu packages pdf) #:use-module (gnu packages pdf)
#:use-module (gnu packages photo) #: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.") on your desktop.")
(license gpl2+))) (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 (define-public xfce
(package (package
(name "xfce") (name "xfce")