gnu: gnome-shell-extension-blur-my-shell: Update to 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-blur-my-shell): Update
to 44.
[source]: Remove snippet to delete compiled schemas.
[arguments]<#:install-plan>: Update accordingly.
<#:phases>: Remove ‘cd-src’.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Charles 2022-10-18 23:04:24 -05:00 committed by Liliana Marie Prikler
parent 863c228bfd
commit 2902def73e
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87

@ -996,7 +996,7 @@ animation of closing windowed applications.")
(define-public gnome-shell-extension-blur-my-shell (define-public gnome-shell-extension-blur-my-shell
(package (package
(name "gnome-shell-extension-blur-my-shell") (name "gnome-shell-extension-blur-my-shell")
(version "29") (version "44")
(source (source
(origin (origin
(method git-fetch) (method git-fetch)
@ -1006,22 +1006,21 @@ animation of closing windowed applications.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"13x7zgaj3dz7lypdv1bgmpmh0f2w53q567zxmhmqimi1gy5mjrvk")) "0h7yfvrrg5r821mzrp42c09jws06mw6v9avvkfykqj8n8qnslmyx"))))
(snippet
'(begin (delete-file "src/schemas/gschemas.compiled")))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
`(#:install-plan '(#:install-plan
'(("." ,(string-append (let ((extension "share/gnome-shell/extensions/blur-my-shell@aunetx"))
"share/gnome-shell/extensions/" `(("src/" ,extension)
"blur-my-shell@aunetx") ("resources/" ,extension
#:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$" #:include-regexp ("\\.svg$" "\\.ui"))
"\\.xml$" "\\.compiled$"))) ("." ,extension
#:exclude-regexp ("src/" "resources/")
#:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
"\\.xml$" "\\.compiled$"))))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'cd-src (add-after 'unpack 'compile-schemas
(lambda _ (chdir "src")))
(add-before 'install 'compile-schemas
(lambda _ (lambda _
(with-directory-excursion "schemas" (with-directory-excursion "schemas"
(invoke "glib-compile-schemas" "."))))))) (invoke "glib-compile-schemas" ".")))))))