gnu: redshift-wayland: Install redshift.desktop.

* gnu/packages/xdisorg.scm (redshift-wayland)[arguments]: New field.
This commit is contained in:
Marius Bakke 2020-05-24 00:01:15 +02:00
parent 21d3b765d9
commit b1affd4778
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -1238,6 +1238,24 @@ (define-public redshift-wayland
(base32
"0nbkcw3avmzjg1jr1g9yfpm80kzisy55idl09b6wvzv2sz27n957"))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(add-after 'install 'create-desktop-file
(lambda* (#:key outputs #:allow-other-keys)
;; For the GeoClue provider to work, a .desktop file
;; needs to be provided. A template is available,
;; but it only gets installed when the GUI is enabled.
;; Install it manually for this Wayland variant.
(let* ((out (assoc-ref outputs "out"))
(desktop-file
(string-append
out "/share/applications/redshift.desktop")))
(mkdir-p (dirname desktop-file))
(copy-file "data/applications/redshift.desktop.in"
desktop-file)
(substitute* desktop-file
(("^_") ""))
#t))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)