Subject: [bug#53198] Add & Update some gnome-shell extensions

From: Charles <[email-masked]>
Date: Tue, 11 Jan 2022 21:53:12 +0000

Empty Message

From 70b1008b0e903e46888e13bdaa66fd96548c7982 Mon Sep 17 00:00:00 2001
From: Charles <[email-masked]>
Date: Tue, 11 Jan 2022 15:24:08 -0600
Subject: [PATCH 1/4] gnu: gnome-xyz: Add
 gnome-shell-extension-vertical-overview.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-overview): New Variable.
---
 gnu/packages/gnome-xyz.scm | 39 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 8161db557d..be827463ac 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -14,6 +14,7 @@
 ;;; Copyright © 2021 Guillaume Le Vaillant <[email-masked]>
 ;;; Copyright © 2021 Songlin Jiang <[email-masked]>
 ;;; Copyright © 2021 Justin Veilleux <[email-masked]>
+;;; Copyright © 2021 Charles Jackson <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -686,6 +687,44 @@ (define-public gnome-shell-extension-paperwm
 notebooks and tiling window managers.")
     (license license:gpl3)))
 
+(define-public gnome-shell-extension-vertical-overview
+  (package
+    (name "gnome-shell-extension-vertical-overview")
+    (version "8")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/RensAlthuis/vertical-overview")
+             (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "01vz48p3bh7p3ybdyw0s0ahs18lk2kzk9x4ad46s0dnwmmsyhww9"))
+       (snippet
+        '(begin (delete-file "schemas/gschemas.compiled")))))
+    (build-system copy-build-system)
+    (arguments
+     `(#:install-plan
+       '(("." ,(string-append
+                "share/gnome-shell/extensions/"
+                "[email-masked]")
+          #:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
+                            "\\.xml$" "\\.compiled$")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'compile-schemas
+           (lambda _
+             (with-directory-excursion "schemas"
+               (invoke "glib-compile-schemas" "."))
+             #t)))))
+    (native-inputs
+     `(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
+    (home-page "https://github.com/RensAlthuis/vertical-overview")
+    (synopsis "Use a vertical overview in Gnome version 40+")
+    (description "Replace the new horizontally oriented Gnome overview with
+something that resembles the old vertically oriented style.")
+    (license license:gpl3)))
+
 (define-public arc-theme
   (package
     (name "arc-theme")
-- 
2.34.0

From 1df4b6938a55dc3a3087600660c4138c95f893a7 Mon Sep 17 00:00:00 2001
From: Charles <[email-masked]>
Date: Tue, 11 Jan 2022 15:26:11 -0600
Subject: [PATCH 2/4] gnu: gnome-xyz: Add gnome-shell-extension-jiggle.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): New Variable.
---
 gnu/packages/gnome-xyz.scm | 42 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index be827463ac..8772ef65db 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -725,6 +725,48 @@ (define-public gnome-shell-extension-vertical-overview
 something that resembles the old vertically oriented style.")
     (license license:gpl3)))
 
+(define-public gnome-shell-extension-jiggle
+  (package
+    (name "gnome-shell-extension-jiggle")
+    (version "8")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/jeffchannell/jiggle/")
+             (commit version)))
+       (sha256
+        (base32
+         "1wbdx2bp22bdwj51ckgivwglkmckr7z8kfwvc8nv4y376hjz5jxz"))
+       (snippet
+        '(begin (delete-file "schemas/gschemas.compiled")))))
+    (build-system copy-build-system)
+    (arguments
+     `(#:install-plan
+       '(("." ,(string-append
+                "share/gnome-shell/extensions/"
+                "[email-masked]")
+          #:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
+                            "\\.xml$" "\\.compiled$")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'fix-version
+           (lambda _
+             (substitute* "metadata.json"
+               (("\"40.0\"") "\"40\", \"41\""))))
+         (add-before 'install 'compile-schemas
+           (lambda _
+             (with-directory-excursion "schemas"
+               (invoke "glib-compile-schemas" "."))
+             #t)))))
+    (native-inputs
+     `(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
+    (home-page "https://github.com/jeffchannell/jiggle")
+    (synopsis "Mouse curosr enlargment with small and fast movements")
+    (description "Jiggle is a Gnome Shell extension that highlights the cursor
+position when the mouse is moved rapidly.")
+    (license license:gpl2)))
+
 (define-public arc-theme
   (package
     (name "arc-theme")
-- 
2.34.0

From b75cdc7e3a4be37360e058f05f0db1563d982f26 Mon Sep 17 00:00:00 2001
From: Charles <[email-masked]>
Date: Tue, 11 Jan 2022 15:26:38 -0600
Subject: [PATCH 3/4] gnu: gnome-xyz: Add
 gnome-shell-extension-burn-my-windows.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-burn-my-windows): New Variable.
---
 gnu/packages/gnome-xyz.scm | 40 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 8772ef65db..9a8f1e3bd5 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -767,6 +767,46 @@ (define-public gnome-shell-extension-jiggle
 position when the mouse is moved rapidly.")
     (license license:gpl2)))
 
+(define-public gnome-shell-extension-burn-my-windows
+  (package
+    (name "gnome-shell-extension-burn-my-windows")
+    (version "7")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/Schneegans/Burn-My-Windows/")
+             (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "1513kh6dfvnaj5jq2mm7rv1k54v91hjckgim1dpqlxwnv4gi9krd"))))
+    (build-system copy-build-system)
+    (arguments
+     `(#:install-plan
+       '(("." ,(string-append
+                "share/gnome-shell/extensions/"
+                "[email-masked]")
+          #:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
+                            "\\.xml$" "\\.compiled$" "\\.gresource$")))
+       #:phases
+       (modify-phases %standard-phases
+         (add-before 'install 'compile-resources
+           (lambda _
+             (invoke "make" "resources/burn-my-windows.gresource")
+             #t))
+         (add-before 'install 'compile-schemas
+           (lambda _
+             (with-directory-excursion "schemas"
+               (invoke "glib-compile-schemas" "."))
+             #t)))))
+    (native-inputs
+     `(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
+    (home-page "https://github.com/Schneegans/Burn-My-Windows")
+    (synopsis "Disintegrate your apps with style")
+    (description "Burn My Windows is a shell extension that stylizes the
+animation of closing windowed applications.")
+    (license license:gpl3)))
+
 (define-public arc-theme
   (package
     (name "arc-theme")
-- 
2.34.0

From dfde22ab691846677dd5605376951716a91af773 Mon Sep 17 00:00:00 2001
From: Charles <[email-masked]>
Date: Tue, 11 Jan 2022 15:28:50 -0600
Subject: [PATCH 4/4] gnu: gnome-xyz:
 gnome-shell-extension-clipboard-indicator: Update to 39.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-clipboard-indicator):
Update to version 39.
---
 gnu/packages/gnome-xyz.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 9a8f1e3bd5..0b0ee81385 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -242,7 +242,7 @@ (define-public gnome-shell-extension-appindicator
 (define-public gnome-shell-extension-clipboard-indicator
   (package
     (name "gnome-shell-extension-clipboard-indicator")
-    (version "34")
+    (version "39")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -252,7 +252,7 @@ (define-public gnome-shell-extension-clipboard-indicator
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0i00psc1ky70zljd14jzr627y7nd8xwnwrh4xpajl1f6djabh12s"))
+                "1kq6bzxki7lwmw690f4qml8pvfwafpqpsfnq2kyjhrp8nh39axwi"))
               (modules '((guix build utils)))
               (snippet
                ;; Remove pre-compiled settings schemas and translations from
@@ -273,10 +273,7 @@ (define-public gnome-shell-extension-clipboard-indicator
            (lambda _
              (with-directory-excursion "schemas"
                (invoke "glib-compile-schemas" "."))
-             #t))
-         (add-before 'install 'compile-locales
-           (lambda _ (invoke "./compile-locales.sh")
-                   #t)))))
+             #t)))))
     (native-inputs
      `(("gettext" ,gettext-minimal)
        ("glib:bin" ,glib "bin")))       ; for glib-compile-schemas
-- 
2.34.0