From 65209ffabd9245fac78eeb2caf5bcca3e4963937 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 17 Nov 2019 22:34:30 +0100 Subject: gnu: gsettings-desktop-schemas: Fix file name of default background. Reported by Alexandros Theodotou at . * gnu/packages/gnome.scm (gsettings-desktop-schemas)[arguments]: New field. [inputs]: Add GNOME-BACKGROUNDS. --- gnu/packages/gnome.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index f9126d18e1..d8545eaa58 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -861,8 +861,21 @@ (define-public gsettings-desktop-schemas (base32 "0bshwm49cd01ighsxqlbqn10q0ch71ff99gcrx8pr2gyky2ad3pq")))) (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 - `(("glib" ,glib))) + `(("glib" ,glib) + ("gnome-backgrounds" ,gnome-backgrounds))) (native-inputs `(("intltool" ,intltool) ("glib" ,glib "bin") ; glib-compile-schemas, etc. -- cgit v1.2.3