futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: mate-polkit-for-xfce: Break circular top-level references.

Browse Source 
Fixes <https://issues.guix.gnu.org/61911>.
Reported by Maxime Devos <maximedevos@telenet.be>.

* gnu/packages/xfce.scm (mate-polkit-for-xfce): Move to...
* gnu/packages/mate.scm (mate-polkit-for-xfce): ... here.
This commit is contained in:
Ludovic Courtès 2023-03-06 23:52:45 +01:00
parent f88a0bb0db
commit 0d96387527
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gnu/packages/mate.scm
View File

@ -1470,6 +1470,23 @@ MATE Desktop to monitor your system resources and usage.")
used to bring up authentication dialogs.") used to bring up authentication dialogs.")
(license license:lgpl2.1))) (license license:lgpl2.1)))
(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 mate (define-public mate
(package (package
(name "mate") (name "mate")

17
gnu/packages/xfce.scm
View File

@ -1152,23 +1152,6 @@ search feature works like Xfce's app finder and makes it convenient to search
for and start applications.") for and start applications.")
(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")