me/guix
Archived
1
0
Fork 0
Code Activity

gnu: gnome-shell-extension-just-perfection: Update to 26.0.

Browse source 
* gnu/packages/gnome-xyz.scm (gnome-shell-extension-just-perfection): Update
to 26.0.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ib02ab984310705bfa435ab1ea8d47c74a6162db0
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Vivien Kraus 2024-01-17 23:25:46 +01:00 • committed by Liliana Marie Prikler
parent 38d9f8c074
commit 72b1f2d335
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 30 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
gnu/packages/gnome-xyz.scm
View file

@ -906,7 +906,7 @@ currently focused application in the top panel of the GNOME shell.")
(define-public gnome-shell-extension-just-perfection (define-public gnome-shell-extension-just-perfection
(package (package
(name "gnome-shell-extension-just-perfection") (name "gnome-shell-extension-just-perfection")
(version "22.0") (version "26.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -915,36 +915,37 @@ currently focused application in the top panel of the GNOME shell.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"0r4rflppcp05kwhzmh07dzi7znc4kch4nc8mzw61arj3qsfq2qqj")))) "0dvq2mb04b557g9nz4pm90x2c2jc1dwwbg2is1gkx38yk0dsj6r3"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (arguments
`(#:install-plan (list
'(("src" #:install-plan
"share/gnome-shell/extensions/just-perfection-desktop@just-perfection" #~'(("src"
#:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.ui$")) "share/gnome-shell/extensions/just-perfection-desktop@just-perfection"
("locale" #:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.ui$"))
"share/gnome-shell/extensions/just-perfection-desktop@just-perfection/")) ("locale"
#:phases "share/gnome-shell/extensions/just-perfection-desktop@just-perfection/"))
(modify-phases %standard-phases #:phases
(add-after 'unpack 'drop-executable-bits #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'drop-executable-bits
(for-each (lambda _
(lambda (file) (for-each
(let ((stat (lstat file))) (lambda (file)
(chmod file (logand (stat:mode stat) (lognot #o111))))) (let ((stat (lstat file)))
(find-files "." #:directories? #f)))) (chmod file (logand (stat:mode stat) (lognot #o111)))))
(add-before 'install 'build (find-files "." #:directories? #f))))
(lambda _ (add-before 'install 'build
(invoke "glib-compile-schemas" "src/schemas") (lambda _
(for-each (invoke "glib-compile-schemas" "src/schemas")
(lambda (file) (for-each
(let* ((base (basename file)) (lambda (file)
(noext (substring base 0 (- (string-length base) 3))) (let* ((base (basename file))
(dest (string-append "locale/" noext "/LC_MESSAGES/")) (noext (substring base 0 (- (string-length base) 3)))
(out (string-append dest "just-perfection.mo"))) (dest (string-append "locale/" noext "/LC_MESSAGES/"))
(mkdir-p dest) (out (string-append dest "just-perfection.mo")))
(invoke "msgfmt" "-c" file "-o" out))) (mkdir-p dest)
(find-files "po" "\\.po$"))))))) (invoke "msgfmt" "-c" file "-o" out)))
(find-files "po" "\\.po$")))))))
(native-inputs (native-inputs
(list `(,glib "bin") gettext-minimal)) (list `(,glib "bin") gettext-minimal))
(home-page "https://gitlab.gnome.org/jrahmatzadeh/just-perfection") (home-page "https://gitlab.gnome.org/jrahmatzadeh/just-perfection")