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

gnu: gsettings-desktop-schemas: Fix file name of default background.

Browse Source 
Reported by Alexandros Theodotou <alex@zrythm.org>
at <https://lists.gnu.org/archive/html/guix-devel/2019-11/msg00157.html>.

* gnu/packages/gnome.scm (gsettings-desktop-schemas)[arguments]: New
field.
[inputs]: Add GNOME-BACKGROUNDS.
This commit is contained in:
Ludovic Courtès 2019-11-17 22:34:30 +01:00
parent bead6dcb58
commit 65209ffabd
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/gnome.scm
View File

@ -861,8 +861,21 @@ on the GNOME Desktop with a single simple application.")
(base32 (base32
"0bshwm49cd01ighsxqlbqn10q0ch71ff99gcrx8pr2gyky2ad3pq")))) "0bshwm49cd01ighsxqlbqn10q0ch71ff99gcrx8pr2gyky2ad3pq"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(add-after 'unpack 'set-adwaita-theme-file-name
(lambda* (#:key inputs #:allow-other-keys)
;; Provide the correct file name of the default GNOME
;; background, 'adwaita-timed.xml'.
(let ((theme (assoc-ref inputs "gnome-backgrounds")))
(substitute* (find-files "schemas"
"\\.gschema\\.xml\\.in$")
(("@datadir@/backgrounds/gnome")
(string-append theme "/share/backgrounds/gnome")))
#t))))))
(inputs (inputs
`(("glib" ,glib))) `(("glib" ,glib)
("gnome-backgrounds" ,gnome-backgrounds)))
(native-inputs (native-inputs
`(("intltool" ,intltool) `(("intltool" ,intltool)
("glib" ,glib "bin") ; glib-compile-schemas, etc. ("glib" ,glib "bin") ; glib-compile-schemas, etc.