[bug#68556] [PATCH gnome-team 00/25] Update the GNOME Shell extensions

[bug#68556] [PATCH gnome-team 00/25] Update the GNOME Shell extensions

[Vivien Kraus via Guix-patches via]

Dear Guix,

My GNOME shell now resembles a full airliner cockpit, but I have more or less checked
that the extensions work.

There is 1 exception though: the built-in Applications Menu extension (bundled with gnome-shell-extensions) displays a line of error. I cannot enable it:

    Requiring GMenu, version none: Typelib file for namespace 'GMenu' (any version) not found

As far as I remember, GMenu should be a GLib thing, and gnome-shell-extensions
already propagates glib. Do you have an idea? Should I wrap something? If so,
what?

I think we should not keep the extensions that have not been ported to the
oldstable GNOME 44. I removed them, but I updated the style before that in
case someone decides to port them after all.

Best regards,

Vivien

Vivien Kraus (25):
  gnu: gnome-shell-extension-dash-to-dock: Update to 79.
  gnu: gnome-shell-extension-hide-app-icon: Modernize style.
  gnu: Remove gnome-shell-extension-hide-app-icon.
  gnu: gnome-shell-extension-dash-to-panel: Update to 56.
  gnu: gnome-shell-extension-unite-shell: Update to 72.
  gnu: gnome-shell-extension-appindicator: Update to 53.
  gnu: gnome-shell-extension-clipboard-indicator: Update to 47.
  gnu: gnome-shell-extensions-customize-ibus: Update to 86.
  gnu: gnome-shell-extension-topicons-redux: Update style.
  gnu: gnome-shell-extension-gsconnect: Update to 55.
  gnu: gnome-shell-extension-blur-my-shell: Update to 47.
  gnu: gnome-shell-extension-burn-my-windows: Update to 40.
  gnu: gnome-shell-extension-radio: Update to 21.
  gnu: gnome-shell-extension-jiggle: Update style.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: gnome-shell-extension-just-perfection: Update to 26.0.
  gnu: gnome-shell-extension-night-theme-switcher: Update to 74.
  gnu: gnome-shell-extension-noannoyance: Update style.
  gnu: Remove gnome-shell-extension-noannoyance.
  gnu: gnome-shell-extension-paperwm: Update to 44.17.0.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.
  gnu: Remove gnome-shell-extension-topicons-redux.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: gnome-shell-extension-vertical-overview: Update style.
  gnu: Remove gnome-shell-extension-vertical-overview.

 gnu/packages/gnome-xyz.scm | 643 +++++++++++--------------------------
 1 file changed, 196 insertions(+), 447 deletions(-)


base-commit: 2cbb1a6e1e2679c7db74b6b906d223fb3661d09f
-- 
2.41.0

[bug#68556] [PATCH gnome-team 01/25] gnu: gnome-shell-extension-dash-to-dock: Update to 79.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-dash-to-dock): Update to
79.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.

Change-Id: I327027d8a0ffc2bc7d234fe6517724fd218b947c
---
 gnu/packages/gnome-xyz.scm | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 100018a2dc..f41048c55e 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -722,7 +722,7 @@ (define-public gnome-shell-extension-topicons-redux
 (define-public gnome-shell-extension-dash-to-dock
   (package
     (name "gnome-shell-extension-dash-to-dock")
-    (version "73")
+    (version "79")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -731,23 +731,25 @@ (define-public gnome-shell-extension-dash-to-dock
                                            version))))
               (sha256
                (base32
-                "1l0isbrgfc8v46l1yc5l4myz7qnlxzyfyiifipp86z9d79d8klzw"))
+                "0fsfhgpg8441x28jzhjspb9i9c5502c2fcgdvfggcsmz0sf3v95y"))
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f
-       #:make-flags (list (string-append "INSTALLBASE="
-                                         (assoc-ref %outputs "out")
-                                         "/share/gnome-shell/extensions"))
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'bootstrap)
-         (delete 'configure))))
+     (list
+      #:tests? #f
+      #:make-flags #~(list (string-append "INSTALLBASE="
+                                          #$output
+                                          "/share/gnome-shell/extensions"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'bootstrap)
+          (delete 'configure))))
     (native-inputs
-     `(("glib:bin" ,glib "bin")
-       ("intltool" ,intltool)
-       ("pkg-config" ,pkg-config)
-       ("sassc" ,sassc)))
+     (list
+      `(,glib "bin")
+      intltool
+      pkg-config
+      sassc))
     (propagated-inputs
      (list glib))
     (synopsis "Transforms GNOME's dash into a dock")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 02/25] gnu: gnome-shell-extension-hide-app-icon: Modernize style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-hide-app-icon)
[arguments]: Convert to list of G-Expressions.

Change-Id: Ifd937163d7e7fce95c4bed1a2a856487ed225d2d
---
 gnu/packages/gnome-xyz.scm | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index f41048c55e..2488e93eb9 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -870,20 +870,19 @@ (define-public gnome-shell-extension-hide-app-icon
          (file-name (git-file-name name version))))
       (build-system gnu-build-system)
       (arguments
-       '(#:tests? #f                ; no test target
-         #:make-flags (list (string-append "EXTENSIONS_DIR="
-                                           (assoc-ref %outputs "out")
-                                           "/share/gnome-shell/extensions"))
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure)      ; no configure script
-           (replace 'install
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out"))
-                     (pre "/share/gnome-shell/extensions/")
-                     (dir "hide-app-icon@mrapp.sourceforge.com"))
-                 (copy-recursively dir (string-append out pre dir))
-                 #t))))))
+       (list
+        #:tests? #f                ; no test target
+        #:make-flags #~(list (string-append "EXTENSIONS_DIR="
+                                            #$output
+                                            "/share/gnome-shell/extensions"))
+        #:phases
+        #~(modify-phases %standard-phases
+            (delete 'configure)      ; no configure script
+            (replace 'install
+              (lambda _
+                (let ((pre "/share/gnome-shell/extensions/")
+                      (dir "hide-app-icon@mrapp.sourceforge.com"))
+                  (copy-recursively dir (string-append #$output pre dir))))))))
       (native-inputs
        (list `(,glib "bin") intltool))
       (propagated-inputs
-- 
2.41.0

[bug#68556] [PATCH gnome-team 04/25] gnu: gnome-shell-extension-dash-to-panel: Update to 56.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-dash-to-panel): Update to
56.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Add `(,glib "bin").
[propagated-inputs]: Remove `(,glib "bin").

Change-Id: I24a83766b750feb1004bbaf2f5badc9e21f1c30e
---
 gnu/packages/gnome-xyz.scm | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d96cf953c6..d4028cd913 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -905,7 +905,7 @@ (define-public gnome-shell-extension-just-perfection
 (define-public gnome-shell-extension-dash-to-panel
   (package
     (name "gnome-shell-extension-dash-to-panel")
-    (version "56")
+    (version "56") ;Compatible with GNOME 44
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -917,22 +917,24 @@ (define-public gnome-shell-extension-dash-to-panel
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f
-       #:make-flags (list (string-append "INSTALLBASE="
-                                         (assoc-ref %outputs "out")
-                                         "/share/gnome-shell/extensions")
-                          (string-append "VERSION="
-                                         ,(package-version
-                                           gnome-shell-extension-dash-to-panel)))
+     (list
+      #:tests? #f
+      #:make-flags #~(list (string-append "INSTALLBASE="
+                                          #$output
+                                          "/share/gnome-shell/extensions")
+                           (string-append "VERSION="
+                                          #$version))
        #:phases
-       (modify-phases %standard-phases
-         (delete 'bootstrap)
-         (delete 'configure))))
+       #~(modify-phases %standard-phases
+           (delete 'bootstrap)
+           (delete 'configure))))
     (native-inputs
-     (list intltool pkg-config))
+     (list
+      `(,glib "bin")
+      intltool
+      pkg-config))
     (propagated-inputs
-     (list glib
-           `(,glib "bin")))
+     (list glib))
     (synopsis "Icon taskbar for GNOME Shell")
     (description "This extension moves the dash into the gnome main
 panel so that the application launchers and system tray are combined
-- 
2.41.0

[bug#68556] [PATCH gnome-team 05/25] gnu: gnome-shell-extension-unite-shell: Update to 72.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-unite-shell): Update to 72.

Change-Id: Ie91c004cb0ab3f81d8ad7c4a15bb357d939d8508
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d4028cd913..ff45ae3419 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -541,7 +541,7 @@ (define-public portfolio
 (define-public gnome-shell-extension-unite-shell
   (package
     (name "gnome-shell-extension-unite-shell")
-    (version "69")
+    (version "72") ;Listed as compatible on extensions.gnome.org
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -550,7 +550,7 @@ (define-public gnome-shell-extension-unite-shell
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "10yh6ylyp43ykcza180iak08wfypay3raqf3p0vrj9ngm98qzq70"))))
+                "006m54ribfbqij0p3zzglzqjw1rbvw0f9468j7p6zdaf43vdvhgc"))))
     (build-system copy-build-system)
     (native-inputs (list `(,glib "bin") gettext-minimal))
     (inputs (list xprop))
-- 
2.41.0

[bug#68556] [PATCH gnome-team 06/25] gnu: gnome-shell-extension-appindicator: Update to 53.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-appindicator): Update to 53.

Change-Id: Ifc3ae680b8f1d66068ce03e94d991de0d479da4e
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index ff45ae3419..4b6717d58b 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -579,7 +579,7 @@ (define-public gnome-shell-extension-unite-shell
 (define-public gnome-shell-extension-appindicator
   (package
     (name "gnome-shell-extension-appindicator")
-    (version "42")
+    (version "53")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -588,7 +588,7 @@ (define-public gnome-shell-extension-appindicator
                     (commit (string-append "v" version))))
               (sha256
                (base32
-                "1lf3aqb924nzhj87rhy2zvm5pcfqcklhfw21m6ic3i7wzd9r7cnc"))
+                "0lyfznsq5x287vpz133y593s7s4mz9i4x2491sgqvir891zwsivy"))
               (file-name (git-file-name name version))))
     (build-system meson-build-system)
     (native-inputs (list jq gnu-gettext
-- 
2.41.0

[bug#68556] [PATCH gnome-team 07/25] gnu: gnome-shell-extension-clipboard-indicator: Update to 47.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-clipboard-indicator):
Update to 47.
[arguments]: Convert to a list of G-Expressions.

Change-Id: Ie982a1820dab1f01b2e8198cd6914d1e676865ad
---
 gnu/packages/gnome-xyz.scm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 4b6717d58b..75c7bb9ed0 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -603,7 +603,7 @@ (define-public gnome-shell-extension-appindicator
 (define-public gnome-shell-extension-clipboard-indicator
   (package
     (name "gnome-shell-extension-clipboard-indicator")
-    (version "42")
+    (version "47")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -615,7 +615,7 @@ (define-public gnome-shell-extension-clipboard-indicator
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0wf2k33pbwjdf8i4y3aw32fgvjbh751qh7504lwhnl02rcq5dc88"))
+                "00v0v454y6hblzsx06aaysxbs6aky89vnkf7ydzxrddns24c2wix"))
               (modules '((guix build utils)))
               (snippet
                ;; Remove pre-compiled settings schemas and translations from
@@ -628,15 +628,16 @@ (define-public gnome-shell-extension-clipboard-indicator
                             (find-files "locale" "\\.mo$"))))))
     (build-system copy-build-system)
     (arguments
-     '(#:install-plan
-       '(("." "share/gnome-shell/extensions/clipboard-indicator@tudmotu.com"
-          #:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.mo$" "\\.xml$")))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'install 'compile-schemas
-           (lambda _
-             (with-directory-excursion "schemas"
-               (invoke "glib-compile-schemas" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." "share/gnome-shell/extensions/clipboard-indicator@tudmotu.com"
+           #:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.mo$" "\\.xml$")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 'compile-schemas
+            (lambda _
+              (with-directory-excursion "schemas"
+                (invoke "glib-compile-schemas" ".")))))))
     (native-inputs
      (list `(,glib "bin") gettext-minimal))
     (home-page "https://github.com/Tudmotu/gnome-shell-extension-clipboard-indicator")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 08/25] gnu: gnome-shell-extensions-customize-ibus: Update to 86.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-customize-ibus): Update to
86.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.
[propagated-inputs]: Add ibus.

Change-Id: I48dbc2bd9a8dea7e7a2b161089b433e1d72a8ff1
---
 gnu/packages/gnome-xyz.scm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 75c7bb9ed0..fea25ab63f 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -61,6 +61,7 @@ (define-module (gnu packages gnome-xyz)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages ibus)
   #:use-module (gnu packages inkscape)
   #:use-module (gnu packages image)
   #:use-module (gnu packages pkg-config)
@@ -649,7 +650,7 @@ (define-public gnome-shell-extension-clipboard-indicator
 (define-public gnome-shell-extension-customize-ibus
   (package
     (name "gnome-shell-extension-customize-ibus")
-    (version "82")
+    (version "86")
     (source
      (origin
        (method git-fetch)
@@ -658,21 +659,23 @@ (define-public gnome-shell-extension-customize-ibus
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "00brnyahphl4ql9yh74wpb9kmzyb4b5k4rkw40hvxvqw4qwgs24r"))))
+        (base32 "1psnbhqbqrp68dri0q98y7ikwz9z3701lcy8vvgixb2bh71y7519"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:make-flags
-       (list (string-append "VERSION=" ,version)
-             (string-append "INSTALLBASE=" (assoc-ref %outputs "out")
-                            "/share/gnome-shell/extensions"))
+     (list
+      #:make-flags
+       #~(list (string-append "VERSION=" #$version)
+               (string-append "INSTALLBASE=" #$output
+                              "/share/gnome-shell/extensions"))
        #:tests? #f ; No test target
        #:phases
-       (modify-phases %standard-phases
+       #~(modify-phases %standard-phases
          (delete 'bootstrap)
          (delete 'configure))))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("glib:bin" ,glib "bin")))
+     (list gettext-minimal `(,glib "bin")))
+    (propagated-inputs
+     (list ibus))
     (home-page "https://github.com/openSUSE/Customize-IBus")
     (synopsis "GNOME Shell Extension for IBus Customization")
     (description "Customize IBus provides full customization of appearance,
-- 
2.41.0

[bug#68556] [PATCH gnome-team 09/25] gnu: gnome-shell-extension-topicons-redux: Update style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux)
[arguments]: Convert to list of G-Expressions.
<#:phases>: Do not replace 'install.
<#:make-flags>: Add INSTALL_PATH.

Change-Id: Iddccb8dd959ccd9edcefc9b76b5b2b4808e5b231
---
 gnu/packages/gnome-xyz.scm | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index fea25ab63f..efe040c37e 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -699,20 +699,15 @@ (define-public gnome-shell-extension-topicons-redux
     (native-inputs
      (list `(,glib "bin")))
     (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
+     (list
+      #:tests? #f                      ;no test defined in the project
+      #:make-flags
+      #~(list (string-append "INSTALL_PATH=" #$output
+                             "/share/gnome-shell/extensions"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (delete 'build))))
     (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
     (synopsis "Display legacy tray icons in the GNOME Shell top panel")
     (description "Many applications, such as chat clients, downloaders, and
-- 
2.41.0

[bug#68556] [PATCH gnome-team 10/25] gnu: gnome-shell-extension-gsconnect: Update to 55.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-gsconnect): Update to 55.
[arguments]: Convert to list of G-Expressions.
[#:configure-flags]: Do not set settings_schemadir nor post_install anymore.
[#:phase 'skip-post-installation]: New phase.
[inputs]: Drop labels.
[native-inputs]: Drop labels.

Change-Id: I63933e43815826a8ab91a472ecda235173486dae
---
 gnu/packages/gnome-xyz.scm | 134 ++++++++++++++++++-------------------
 1 file changed, 67 insertions(+), 67 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index efe040c37e..519a5cda30 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -761,7 +761,7 @@ (define-public gnome-shell-extension-dash-to-dock
 (define-public gnome-shell-extension-gsconnect
   (package
     (name "gnome-shell-extension-gsconnect")
-    (version "50")       ; See GNOME Shell supported versions in metadata.json
+    (version "55")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -771,77 +771,77 @@ (define-public gnome-shell-extension-gsconnect
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0vg87fdihs5kp7apgyd32ldjmwzmrxaimsc005yjyy8m3f65sjmr"))))
+                "158qbjl6m807g0fy15dvhwwwy6z8r0g7kh9gjyhm7n3y14v5p8wz"))))
     (build-system meson-build-system)
     (arguments
-     `(#:tests? #f ;; every test fails
-       #:configure-flags
-       (let* ((out (assoc-ref %outputs "out"))
-              (name+version (strip-store-file-name out))
-              (gschema-dir (string-append out
-                                          "/share/gsettings-schemas/"
-                                          name+version
-                                          "/glib-2.0/schemas"))
-              (gnome-shell (assoc-ref %build-inputs "gnome-shell"))
-              (openssh (assoc-ref %build-inputs "openssh"))
-              (openssl (assoc-ref %build-inputs "openssl")))
-         (list
-          (string-append "-Dgnome_shell_libdir=" gnome-shell "/lib")
-          (string-append "-Dgsettings_schemadir=" gschema-dir)
-          (string-append "-Dopenssl_path=" openssl "/bin/openssl")
-          (string-append "-Dsshadd_path=" openssh "/bin/ssh-add")
-          (string-append "-Dsshkeygen_path=" openssh "/bin/ssh-keygen")
-          (string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")
-          "-Dpost_install=true"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'fix-paths
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((glib (assoc-ref inputs "glib:bin"))
-                    (gapplication (string-append glib "/bin/gapplication"))
-                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
-               (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
-                 (("gapplication") gapplication))
-               (for-each
-                (lambda (file)
-                  (substitute* file
-                    (("'use strict';")
-                     (string-append "'use strict';\n\n"
-                                    "'" gi-typelib-path "'.split(':').forEach("
-                                    "path => imports.gi.GIRepository.Repository."
-                                    "prepend_search_path(path));"))))
-                '("src/extension.js" "src/prefs.js"))
-               #t)))
-         (add-after 'install 'wrap-daemons
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (service-dir
-                     (string-append out "/share/gnome-shell/extensions"
-                                    "/gsconnect@andyholmes.github.io/service"))
+     (list
+      #:tests? #f ;; every test fails
+      #:configure-flags
+      #~(let ((out #$output)
+              (gnome-shell #$(this-package-input "gnome-shell"))
+              (openssh #$(this-package-input "openssh"))
+              (openssl #$(this-package-input "openssl")))
+          (list
+           (string-append "-Dgnome_shell_libdir=" gnome-shell "/lib")
+           (string-append "-Dopenssl_path=" openssl "/bin/openssl")
+           (string-append "-Dsshadd_path=" openssh "/bin/ssh-add")
+           (string-append "-Dsshkeygen_path=" openssh "/bin/ssh-keygen")
+           (string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'skip-post-installation
+            (lambda _
+              (substitute* "meson.build"
+                (("gtk_update_icon_cache: true")
+                 "gtk_update_icon_cache: false")
+                (("update_desktop_database: true")
+                 "update_desktop_database: false"))))
+          (add-before 'configure 'fix-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((gapplication (search-input-file inputs "/bin/gapplication"))
                     (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
-               (wrap-program (string-append service-dir "/daemon.js")
-                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
-               #t))))))
+                (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
+                  (("gapplication") gapplication))
+                (for-each
+                 (lambda (file)
+                   (substitute* file
+                     (("'use strict';")
+                      (string-append "'use strict';\n\n"
+                                     "'" gi-typelib-path "'.split(':').forEach("
+                                     "path => imports.gi.GIRepository.Repository."
+                                     "prepend_search_path(path));"))))
+                 '("src/extension.js" "src/prefs.js")))))
+          (add-after 'install 'wrap-daemons
+            (lambda _
+              (let* ((out #$output)
+                     (service-dir
+                      (string-append out "/share/gnome-shell/extensions"
+                                     "/gsconnect@andyholmes.github.io/service"))
+                     (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
+                (wrap-program (string-append service-dir "/daemon.js")
+                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
     (inputs
-     `(("at-spi2-core" ,at-spi2-core)
-       ("caribou" ,caribou)
-       ("evolution-data-server" ,evolution-data-server)
-       ("gjs" ,gjs)
-       ("glib" ,glib)
-       ("glib:bin" ,glib "bin")
-       ("gsound" ,gsound)
-       ("gnome-shell" ,gnome-shell)
-       ("gtk+" ,gtk+)
-       ("nautilus" ,nautilus)
-       ("openssh" ,openssh)
-       ("openssl" ,openssl)
-       ("python-pygobject" ,python-pygobject)
-       ("upower" ,upower)))
+     (list
+      at-spi2-core
+      caribou
+      evolution-data-server
+      gjs
+      glib
+      `(,glib "bin") ;for /bin/gapplication
+      gsound
+      gnome-shell
+      gtk+
+      nautilus
+      openssh
+      openssl
+      python-pygobject
+      upower))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("gobject-introspection" ,gobject-introspection)
-       ("libxml2" ,libxml2)
-       ("pkg-config" ,pkg-config)))
+     (list
+      gettext-minimal
+      gobject-introspection
+      libxml2
+      pkg-config))
     (home-page "https://github.com/GSConnect/gnome-shell-extension-gsconnect/wiki")
     (synopsis "Connect GNOME Shell with your Android phone")
     (description "GSConnect is a complete implementation of KDE Connect
-- 
2.41.0

[bug#68556] [PATCH gnome-team 03/25] gnu: Remove gnome-shell-extension-hide-app-icon.

[Vivien Kraus via Guix-patches via]

This extension does not work with GNOME 44, and has not received any work.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-hide-app-icon): Remove variable.

Change-Id: I6af14b6c9e1db7176d9be6bec2b90f77e7db36c1
---
 gnu/packages/gnome-xyz.scm | 47 --------------------------------------
 1 file changed, 47 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2488e93eb9..d96cf953c6 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -851,53 +851,6 @@ (define-public gnome-shell-extension-gsconnect
 control.")
     (license license:gpl2)))
 
-(define-public gnome-shell-extension-hide-app-icon
-  (let ((commit "4188aa5f4ba24901a053a0c3eb0d83baa8625eab")
-        (revision "0"))
-    (package
-      (name "gnome-shell-extension-hide-app-icon")
-      (version (git-version "2.7" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/michael-rapp"
-                                   "/gnome-shell-extension-hide-app-icon.git"))
-               (commit commit)))
-         (sha256
-          (base32
-           "1i28n4bz6wrhn07vpxkr6l1ljyn7g8frp5xrr11z3z32h2hxxcd6"))
-         (file-name (git-file-name name version))))
-      (build-system gnu-build-system)
-      (arguments
-       (list
-        #:tests? #f                ; no test target
-        #:make-flags #~(list (string-append "EXTENSIONS_DIR="
-                                            #$output
-                                            "/share/gnome-shell/extensions"))
-        #:phases
-        #~(modify-phases %standard-phases
-            (delete 'configure)      ; no configure script
-            (replace 'install
-              (lambda _
-                (let ((pre "/share/gnome-shell/extensions/")
-                      (dir "hide-app-icon@mrapp.sourceforge.com"))
-                  (copy-recursively dir (string-append #$output pre dir))))))))
-      (native-inputs
-       (list `(,glib "bin") intltool))
-      (propagated-inputs
-       (list glib))
-      (synopsis "Hide app icon from GNOME's panel")
-      (description "This extension hides the icon and/or title of the
-currently focused application in the top panel of the GNOME shell.")
-      (home-page
-       "https://github.com/michael-rapp/gnome-shell-extension-hide-app-icon/")
-      (license
-        ;; README.md and LICENSE.txt disagree -- the former claims v3, the
-        ;; latter v2.  No mention of "or later" in either place or in the code.
-        (list license:gpl2
-              license:gpl3)))))
-
 (define-public gnome-shell-extension-just-perfection
   (package
     (name "gnome-shell-extension-just-perfection")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 11/25] gnu: gnome-shell-extension-blur-my-shell: Update to 47.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-blur-my-shell): Update to 47.

Change-Id: I528579d9bd02361501977cbad6f9e752403ff37e
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 519a5cda30..3accae4aaf 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1212,7 +1212,7 @@ (define-public gnome-shell-extension-burn-my-windows
 (define-public gnome-shell-extension-blur-my-shell
   (package
     (name "gnome-shell-extension-blur-my-shell")
-    (version "44")
+    (version "47")
     (source
      (origin
        (method git-fetch)
@@ -1222,7 +1222,7 @@ (define-public gnome-shell-extension-blur-my-shell
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "0h7yfvrrg5r821mzrp42c09jws06mw6v9avvkfykqj8n8qnslmyx"))))
+         "1a8prh6893zk8rnfi9q7waga2x7kx564jzmsdyhiffdbazbv8p6y"))))
     (build-system copy-build-system)
     (arguments
      '(#:install-plan
-- 
2.41.0

[bug#68556] [PATCH gnome-team 12/25] gnu: gnome-shell-extension-burn-my-windows: Update to 40.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-burn-my-windows): Update
to 40.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ib9551096437aeea0ff56e5e1ea6371ab72d61b02
---
 gnu/packages/gnome-xyz.scm | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 3accae4aaf..7f84dc7590 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1173,7 +1173,7 @@ (define-public gnome-shell-extension-jiggle
 (define-public gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-    (version "22")
+    (version "40")
     (source
      (origin
        (method git-fetch)
@@ -1182,25 +1182,26 @@ (define-public gnome-shell-extension-burn-my-windows
              (commit (string-append "v" version))))
        (sha256
         (base32
-         "185xrf330d9bflmk0l61cnzlylnppb2v4yz6v6ygkk4zpwyil8np"))
+         "16n6ilszdn67835clqlr4flna69x9k00k5qrm55765dv2ny9jdcq"))
        (file-name (git-file-name name version))))
     (build-system copy-build-system)
     (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "burn-my-windows@schneegans.github.com")
-          #: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")))
-         (add-before 'install 'compile-schemas
-           (lambda _
-             (with-directory-excursion "schemas"
-               (invoke "glib-compile-schemas" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." #$(string-append
+                  "share/gnome-shell/extensions/"
+                  "burn-my-windows@schneegans.github.com")
+           #: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")))
+          (add-before 'install 'compile-schemas
+            (lambda _
+              (with-directory-excursion "schemas"
+                (invoke "glib-compile-schemas" ".")))))))
     (native-inputs
      (list `(,glib "bin")))  ; for glib-compile-resources
     (home-page "https://github.com/Schneegans/Burn-My-Windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 13/25] gnu: gnome-shell-extension-radio: Update to 21.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-radio): Update to 21.

Change-Id: I11aab4c80c96d1237112bb9a089763bd3c331d1a
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7f84dc7590..aeadd443bd 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1252,7 +1252,7 @@ (define-public gnome-shell-extension-blur-my-shell
 (define-public gnome-shell-extension-radio
   (package
     (name "gnome-shell-extension-radio")
-    (version "20")
+    (version "21")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -1262,7 +1262,7 @@ (define-public gnome-shell-extension-radio
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "01dmziad9g7bs3hr59aaz3mivkc6rqfyb9bz2v202zk22vcr5a2y"))))
+                "1ghk95q3lhliz3his58hh2ql4p9csh6llzip412vwf29zdkr58s2"))))
     (build-system copy-build-system)
     (arguments
      (list
-- 
2.41.0

[bug#68556] [PATCH gnome-team 14/25] gnu: gnome-shell-extension-jiggle: Update style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle) [arguments]:
Convert to list of G-Expressions.

Change-Id: I633c31a9112df9e5077e91e396683fb69f440703
---
 gnu/packages/gnome-xyz.scm | 33 +++++++++++++++++----------------
 1 file changed, 17 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index aeadd443bd..e6ca29cd63 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1146,22 +1146,23 @@ (define-public gnome-shell-extension-jiggle
         '(begin (delete-file "schemas/gschemas.compiled")))))
     (build-system copy-build-system)
     (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." #$(string-append
+                  "share/gnome-shell/extensions/"
+                  "jiggle@jeffchannell.com")
+           #: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" ".")))))))
     (native-inputs
      (list `(,glib "bin")))  ; for glib-compile-resources
     (home-page "https://github.com/jeffchannell/jiggle")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 16/25] gnu: gnome-shell-extension-just-perfection: Update to 26.0.

[Vivien Kraus via Guix-patches via]

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

Change-Id: Ib02ab984310705bfa435ab1ea8d47c74a6162db0
---
 gnu/packages/gnome-xyz.scm | 59 +++++++++++++++++++-------------------
 1 file changed, 30 insertions(+), 29 deletions(-)

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

[bug#68556] [PATCH gnome-team 15/25] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 43 --------------------------------------
 1 file changed, 43 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index e6ca29cd63..383d2d69b6 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1128,49 +1128,6 @@ (define-public gnome-shell-extension-vertical-overview
 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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     (list
-      #:install-plan
-      #~'(("." #$(string-append
-                  "share/gnome-shell/extensions/"
-                  "jiggle@jeffchannell.com")
-           #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 17/25] gnu: gnome-shell-extension-night-theme-switcher: Update to 74.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-night-theme-switcher):
Update to 74.

Change-Id: I712dad785d3d303252f35b4c73185b83b6e01e54
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 347424f35e..2882a5cfc6 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1009,7 +1009,7 @@ (define-public gnome-shell-extension-paperwm
 (define-public gnome-shell-extension-night-theme-switcher
   (package
     (name "gnome-shell-extension-night-theme-switcher")
-    (version "65")
+    (version "74")
     (source
      (origin
        (method git-fetch)
@@ -1018,7 +1018,7 @@ (define-public gnome-shell-extension-night-theme-switcher
               "https://gitlab.com/rmnvgr/nightthemeswitcher-gnome-shell-extension")
              (commit version)))
        (sha256
-        (base32 "0qhi2g2lh6m8vhrmmfi60977f0i4k9x1zj68lrvpzzlqndz8cgh9"))
+        (base32 "1hiydjyn7shc32i81r70sqip9p3hhig7pqq1h7hsz9bc4qlyri7b"))
        (file-name (git-file-name name version))))
     (build-system meson-build-system)
     (native-inputs (list pkg-config (list glib "bin")))
-- 
2.41.0

[bug#68556] [PATCH gnome-team 18/25] gnu: gnome-shell-extension-noannoyance: Update style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance) [arguments]:
Convert to list of G-Expressions.

Change-Id: Ic56a4aa24a4720a2898215160501264a4d10a485
---
 gnu/packages/gnome-xyz.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2882a5cfc6..8086b48ed6 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -961,8 +961,9 @@ (define-public gnome-shell-extension-noannoyance
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 19/25] gnu: Remove gnome-shell-extension-noannoyance.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Remove variable.

Change-Id: I8bce89a50e1896a365629a60714fd3a275e0be1b
---
 gnu/packages/gnome-xyz.scm | 28 ----------------------------
 1 file changed, 28 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 8086b48ed6..ad04d57ec9 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -942,34 +942,6 @@ (define-public gnome-shell-extension-dash-to-panel
     (home-page "https://github.com/home-sweet-gnome/dash-to-panel/")
     (license license:gpl2+)))
 
-(define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
-    (package
-      (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
-                      (commit commit)))
-                (sha256
-                 (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
-                (file-name (git-file-name name version))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
-      (synopsis "Remove 'Window is ready' annotation")
-      (description "One of the many extensions that remove this message.
-It uses ES6 syntax and claims to be more actively maintained than others.")
-      (home-page "https://extensions.gnome.org/extension/2182/noannoyance/")
-      (license license:gpl2))))
-
 (define-public gnome-shell-extension-paperwm
   (package
     (name "gnome-shell-extension-paperwm")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 20/25] gnu: gnome-shell-extension-paperwm: Update to 44.17.0.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-paperwm): Update to
44.17.0.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.

Change-Id: Ib4e42ade9f02a02a6ef5c775f78428aa0c1ead77
---
 gnu/packages/gnome-xyz.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index ad04d57ec9..091e8f89cb 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -945,33 +945,33 @@ (define-public gnome-shell-extension-dash-to-panel
 (define-public gnome-shell-extension-paperwm
   (package
     (name "gnome-shell-extension-paperwm")
-    (version "36.0")
+    (version "44.17.0")
     (source (origin
               (method git-fetch)
               (uri (git-reference
                     (url "https://github.com/paperwm/PaperWM")
-                    (commit version)))
+                    (commit (string-append "v" version))))
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1ssnabwxrns36c61ppspjkr9i3qifv08pf2jpwl7cjv3pvyn4kly"))
+                "1d91k9qih81wckqf6554kf8grv6q61rkk4g776g0ijpmf35ljdin"))
               (snippet
                '(begin (delete-file "schemas/gschemas.compiled")))))
     (build-system copy-build-system)
     (arguments
-     '(#:install-plan
-       '(("." "share/gnome-shell/extensions/paperwm@hedning:matrix.org"
-          #: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 "make"))
-             #t)))))
+     (list
+      #:install-plan
+      #~'(("." "share/gnome-shell/extensions/paperwm@hedning:matrix.org"
+           #: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 "make")))))))
     (native-inputs
-     `(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
+     (list `(,glib "bin"))) ; for glib-compile-schemas
     (home-page "https://github.com/paperwm/PaperWM")
     (synopsis "Tiled scrollable window management for GNOME Shell")
     (description "PaperWM is an experimental GNOME Shell extension providing
-- 
2.41.0

[bug#68556] [PATCH gnome-team 21/25] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 33 ---------------------------------
 1 file changed, 33 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 091e8f89cb..ad832d6752 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1213,39 +1213,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
-
 (define-public gnome-shell-extension-transparent-window
   (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
         (revision "45"))
-- 
2.41.0

[bug#68556] [PATCH gnome-team 22/25] gnu: Remove gnome-shell-extension-topicons-redux.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, but GNOME Shell already
displays tray icons.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Remove variable.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index ad832d6752..7321cdd882 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -682,42 +682,6 @@ (define-public gnome-shell-extension-customize-ibus
 behavior, system tray and input source indicator for IBus.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     (list
-      #:tests? #f                      ;no test defined in the project
-      #:make-flags
-      #~(list (string-append "INSTALL_PATH=" #$output
-                             "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases
-          (delete 'configure)
-          (delete 'build))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
-
 (define-public gnome-shell-extension-dash-to-dock
   (package
     (name "gnome-shell-extension-dash-to-dock")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 23/25] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7321cdd882..4eddecf472 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1177,37 +1177,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 24/25] gnu: gnome-shell-extension-vertical-overview: Update style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-overview)
[arguments]: Convert to list of G-Expressions.

Change-Id: I830854d7c2ce262906331e5aef59f6dd7af28c98
---
 gnu/packages/gnome-xyz.scm | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 4eddecf472..0bc7fe9b73 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1045,18 +1045,19 @@ (define-public gnome-shell-extension-vertical-overview
         '(begin (delete-file "schemas/gschemas.compiled")))))
     (build-system copy-build-system)
     (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "vertical-overview@RensAlthuis.github.com")
-          #: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" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." #$(string-append
+                  "share/gnome-shell/extensions/"
+                  "vertical-overview@RensAlthuis.github.com")
+           #: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" ".")))))))
     (native-inputs
      (list `(,glib "bin")))  ; for glib-compile-resources
     (home-page "https://github.com/RensAlthuis/vertical-overview")
-- 
2.41.0

[bug#68556] [PATCH gnome-team 24/25] gnu: gnome-shell-extension-vertical-overview: Update style.

[Liliana Marie Prikler]

Am Mittwoch, dem 17.01.2024 um 23:48 +0100 schrieb Vivien Kraus:
> * gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-
> overview)
> [arguments]: Convert to list of G-Expressions.
> 
> Change-Id: I830854d7c2ce262906331e5aef59f6dd7af28c98
Given that it's removed in the next commit, this is just noise. 
Probably same for the other removed extensions.

Do we have alternatives for these or is it just "extension no work"?

[bug#68556] [PATCH gnome-team 24/25] gnu: gnome-shell-extension-vertical-overview: Update style.

[Vivien Kraus via Guix-patches via]

Le jeudi 18 janvier 2024 à 06:24 +0100, Liliana Marie Prikler a écrit :
> Am Mittwoch, dem 17.01.2024 um 23:48 +0100 schrieb Vivien Kraus:
> > * gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-
> > overview)
> > [arguments]: Convert to list of G-Expressions.
> > 
> > Change-Id: I830854d7c2ce262906331e5aef59f6dd7af28c98
> Given that it's removed in the next commit, this is just noise. 
> Probably same for the other removed extensions.

I figured that it would be easier to revert and update if and when the
extension  is ported to a newer GNOME Shell. I agree though, if someone
wants to add the extension again, they probably won’t read the git log,
so it’s not very helpful.

> Do we have alternatives for these or is it just "extension no work"?
I don’t know much.

From what I understand, hide-app-icon is not replaced, but now the
application icons in the shell are symbolic and tiny, so maybe it’s not
needed anymore.

On the repository, people are talking about forking jiggle, but I don’t
know of any alternative.

NoAnnoyance has a fork that claims support for 44, maybe we should
package that, what do you think?
https://extensions.gnome.org/extension/6109/noannoyance-fork/

Sound output device chooser is obsolete because now with the shell you
can directly choose the audio device.

The panel already shows system tray icons, so Topicons Redux is not
needed anymore.

There is a candidate replacement for Transparent Window,
https://extensions.gnome.org/extension/1454/transparent-window/ but it
does not support GNOME 44 either.

Maybe V-Shell
https://extensions.gnome.org/extension/5177/vertical-workspaces/ can
replace Vertical overview?

I’m not a fan of removing packages like that, because guix upgrade will
quickly complain about profile collisions. But I would like to hear the
users about these candidate replacements for NoAnnoyance v2
(NoAnnoyance Fork) and Vertical overview (V-Shell) first, and the users
on the extensions forum do not seem to talk about these replacements.

What do you think?

Best regards,

Vivien

[bug#68556] [PATCH gnome-team 24/25] gnu: gnome-shell-extension-vertical-overview: Update style.

[Liliana Marie Prikler]

Am Donnerstag, dem 18.01.2024 um 12:38 +0100 schrieb Vivien Kraus:
> Le jeudi 18 janvier 2024 à 06:24 +0100, Liliana Marie Prikler a
> écrit :
> > Am Mittwoch, dem 17.01.2024 um 23:48 +0100 schrieb Vivien Kraus:
> > > * gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-
> > > overview)
> > > [arguments]: Convert to list of G-Expressions.
> > > 
> > > Change-Id: I830854d7c2ce262906331e5aef59f6dd7af28c98
> > Given that it's removed in the next commit, this is just noise. 
> > Probably same for the other removed extensions.
> 
> I figured that it would be easier to revert and update if and when
> the extension  is ported to a newer GNOME Shell. I agree though, if
> someone wants to add the extension again, they probably won’t read
> the git log, so it’s not very helpful.
Even then, people can just run `guix style' from that hypothetical
commit, and it might even have more features then.

> > Do we have alternatives for these or is it just "extension no
> > work"?
> I don’t know much.
> 
> From what I understand, hide-app-icon is not replaced, but now the
> application icons in the shell are symbolic and tiny, so maybe it’s
> not needed anymore.
As long as they're not gone, there's a need to replace them.  However,
another extension like just-perfection might do this.

> On the repository, people are talking about forking jiggle, but I
> don’t know of any alternative.
Let's keep looking, then.

> NoAnnoyance has a fork that claims support for 44, maybe we should
> package that, what do you think?
> https://extensions.gnome.org/extension/6109/noannoyance-fork/
Packaging forks is fair game.  We can revert to the original whenever.
Just leave a comment that it's a fork and why we're using it.

> Sound output device chooser is obsolete because now with the shell
> you can directly choose the audio device.
Good news for users, but awkward in terms of packaging.  I don't thing
(deprecated-package gnome …) will work as intended. 

> The panel already shows system tray icons, so Topicons Redux is not
> needed anymore.
> 
> There is a candidate replacement for Transparent Window,
> https://extensions.gnome.org/extension/1454/transparent-window/ but
> it does not support GNOME 44 either.
Bummer.

> Maybe V-Shell
> https://extensions.gnome.org/extension/5177/vertical-workspaces/ can
> replace Vertical overview?


> I’m not a fan of removing packages like that, because guix upgrade
> will quickly complain about profile collisions.  
Profile collisions come from propagated packages, not deprecated
packages.

> But I would like to hear the users about these candidate replacements
> for NoAnnoyance v2 (NoAnnoyance Fork) and Vertical overview (V-Shell)
> first, and the users on the extensions forum do not seem to talk
> about these replacements.
> 
> What do you think?
I don't think we'll get much feedback from elsewhere, but with gnome-
team building substitutes again, I can at least try some out.

Cheers

[bug#68556] [PATCH gnome-team 25/25] gnu: Remove gnome-shell-extension-vertical-overview.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-overview): Remove variable.

Change-Id: I7264bbdd5b5067d97d227576a520b3d90c448d2a
---
 gnu/packages/gnome-xyz.scm | 40 --------------------------------------
 1 file changed, 40 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 0bc7fe9b73..f9d11a63ae 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1027,46 +1027,6 @@ (define-public gpaste
 copies you now want to paste.")
     (license license:bsd-2)))
 
-(define-public gnome-shell-extension-vertical-overview
-  (package
-    (name "gnome-shell-extension-vertical-overview")
-    (version "10")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/RensAlthuis/vertical-overview")
-             (commit (string-append "v" version))))
-       (sha256
-        (base32
-         "1sqkbg93qqrq47wyfnh2flg7dpsmv5c2pmkx8kgqhnbl7j2kgi0l"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     (list
-      #:install-plan
-      #~'(("." #$(string-append
-                  "share/gnome-shell/extensions/"
-                  "vertical-overview@RensAlthuis.github.com")
-           #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/RensAlthuis/vertical-overview")
-    (synopsis "Provides a vertical overview in Gnome 40 and upper")
-    (description "This Gnome extension replaces the new horizontally oriented
-Gnome overview with something that resembles the old vertically oriented
-style.")
-    (license license:gpl3)))
-
 (define-public gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 00/23] Update extensions with 3 replacements

[Vivien Kraus via Guix-patches via]

Dear guix,

I took the liberty to introduce V-Shell to replace vertical-overview. Your
idea to use Just Perfection worked, and I packaged the fork for NoAnnoyance.

Now we need a solution for Jiggle and Transparent Window, a fix for the
built-in Applications Menu, and a way to deprecate more smoothly Sound Output
Device Chooser and Topicons Redux that are have been made redundant by the
default shell.

Best regards,

Vivien

Vivien Kraus (23):
  gnu: gnome-shell-extension-dash-to-dock: Update to 79.
  gnu: gnome-shell-extension-just-perfection: Update to 26.0.
  gnu: gnome-shell-extension-hide-app-icon: Deprecate.
  gnu: gnome-shell-extension-dash-to-panel: Update to 56.
  gnu: gnome-shell-extension-unite-shell: Update to 72.
  gnu: gnome-shell-extension-appindicator: Update to 53.
  gnu: gnome-shell-extension-clipboard-indicator: Update to 47.
  gnu: gnome-shell-extensions-customize-ibus: Update to 86.
  gnu: gnome-shell-extension-topicons-redux: Update style.
  gnu: gnome-shell-extension-gsconnect: Update to 55.
  gnu: gnome-shell-extension-blur-my-shell: Update to 47.
  gnu: gnome-shell-extension-burn-my-windows: Update to 40.
  gnu: gnome-shell-extension-radio: Update to 21.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: gnome-shell-extension-night-theme-switcher: Update to 74.
  gnu: Add gnome-shell-extension-noannoyance-fork.
  gnu: gnome-shell-extension-noannoyance: Deprecate.
  gnu: gnome-shell-extension-paperwm: Update to 44.17.0.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.
  gnu: Remove gnome-shell-extension-topicons-redux.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Add gnome-shell-extension-v-shell.
  gnu: gnome-shell-extension-vertical-overview: Deprecate.

 gnu/packages/gnome-xyz.scm | 653 ++++++++++++++-----------------------
 1 file changed, 239 insertions(+), 414 deletions(-)


base-commit: 17c2e26068c5c36eb8ee1ec39a8695ef66f75c55
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 01/23] gnu: gnome-shell-extension-dash-to-dock: Update to 79.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-dash-to-dock): Update to
79.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.

Change-Id: I327027d8a0ffc2bc7d234fe6517724fd218b947c
---
 gnu/packages/gnome-xyz.scm | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index a49442bdbe..c32dd3f3ee 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -722,7 +722,7 @@ (define-public gnome-shell-extension-topicons-redux
 (define-public gnome-shell-extension-dash-to-dock
   (package
     (name "gnome-shell-extension-dash-to-dock")
-    (version "73")
+    (version "79")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -731,23 +731,25 @@ (define-public gnome-shell-extension-dash-to-dock
                                            version))))
               (sha256
                (base32
-                "1l0isbrgfc8v46l1yc5l4myz7qnlxzyfyiifipp86z9d79d8klzw"))
+                "0fsfhgpg8441x28jzhjspb9i9c5502c2fcgdvfggcsmz0sf3v95y"))
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
-     '(#:tests? #f
-       #:make-flags (list (string-append "INSTALLBASE="
-                                         (assoc-ref %outputs "out")
-                                         "/share/gnome-shell/extensions"))
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'bootstrap)
-         (delete 'configure))))
+     (list
+      #:tests? #f
+      #:make-flags #~(list (string-append "INSTALLBASE="
+                                          #$output
+                                          "/share/gnome-shell/extensions"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'bootstrap)
+          (delete 'configure))))
     (native-inputs
-     `(("glib:bin" ,glib "bin")
-       ("intltool" ,intltool)
-       ("pkg-config" ,pkg-config)
-       ("sassc" ,sassc)))
+     (list
+      `(,glib "bin")
+      intltool
+      pkg-config
+      sassc))
     (propagated-inputs
      (list glib))
     (synopsis "Transforms GNOME's dash into a dock")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 04/23] gnu: gnome-shell-extension-dash-to-panel: Update to 56.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-dash-to-panel): Update to
56.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Add `(,glib "bin").
[propagated-inputs]: Remove `(,glib "bin").

Change-Id: I24a83766b750feb1004bbaf2f5badc9e21f1c30e
---
 gnu/packages/gnome-xyz.scm | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index c278f47263..1d204e9b6a 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -910,7 +910,7 @@ (define-public gnome-shell-extension-just-perfection
 (define-public gnome-shell-extension-dash-to-panel
   (package
     (name "gnome-shell-extension-dash-to-panel")
-    (version "56")
+    (version "56") ;Compatible with GNOME 44
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -922,22 +922,24 @@ (define-public gnome-shell-extension-dash-to-panel
               (file-name (git-file-name name version))))
     (build-system gnu-build-system)
     (arguments
-     `(#:tests? #f
-       #:make-flags (list (string-append "INSTALLBASE="
-                                         (assoc-ref %outputs "out")
-                                         "/share/gnome-shell/extensions")
-                          (string-append "VERSION="
-                                         ,(package-version
-                                           gnome-shell-extension-dash-to-panel)))
+     (list
+      #:tests? #f
+      #:make-flags #~(list (string-append "INSTALLBASE="
+                                          #$output
+                                          "/share/gnome-shell/extensions")
+                           (string-append "VERSION="
+                                          #$version))
        #:phases
-       (modify-phases %standard-phases
-         (delete 'bootstrap)
-         (delete 'configure))))
+       #~(modify-phases %standard-phases
+           (delete 'bootstrap)
+           (delete 'configure))))
     (native-inputs
-     (list intltool pkg-config))
+     (list
+      `(,glib "bin")
+      intltool
+      pkg-config))
     (propagated-inputs
-     (list glib
-           `(,glib "bin")))
+     (list glib))
     (synopsis "Icon taskbar for GNOME Shell")
     (description "This extension moves the dash into the gnome main
 panel so that the application launchers and system tray are combined
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 05/23] gnu: gnome-shell-extension-unite-shell: Update to 72.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-unite-shell): Update to 72.

Change-Id: Ie91c004cb0ab3f81d8ad7c4a15bb357d939d8508
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 1d204e9b6a..d926bb7857 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -541,7 +541,7 @@ (define-public portfolio
 (define-public gnome-shell-extension-unite-shell
   (package
     (name "gnome-shell-extension-unite-shell")
-    (version "69")
+    (version "72") ;Listed as compatible on extensions.gnome.org
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -550,7 +550,7 @@ (define-public gnome-shell-extension-unite-shell
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "10yh6ylyp43ykcza180iak08wfypay3raqf3p0vrj9ngm98qzq70"))))
+                "006m54ribfbqij0p3zzglzqjw1rbvw0f9468j7p6zdaf43vdvhgc"))))
     (build-system copy-build-system)
     (native-inputs (list `(,glib "bin") gettext-minimal))
     (inputs (list xprop))
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 06/23] gnu: gnome-shell-extension-appindicator: Update to 53.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-appindicator): Update to 53.

Change-Id: Ifc3ae680b8f1d66068ce03e94d991de0d479da4e
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d926bb7857..75abe51b91 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -579,7 +579,7 @@ (define-public gnome-shell-extension-unite-shell
 (define-public gnome-shell-extension-appindicator
   (package
     (name "gnome-shell-extension-appindicator")
-    (version "42")
+    (version "53")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -588,7 +588,7 @@ (define-public gnome-shell-extension-appindicator
                     (commit (string-append "v" version))))
               (sha256
                (base32
-                "1lf3aqb924nzhj87rhy2zvm5pcfqcklhfw21m6ic3i7wzd9r7cnc"))
+                "0lyfznsq5x287vpz133y593s7s4mz9i4x2491sgqvir891zwsivy"))
               (file-name (git-file-name name version))))
     (build-system meson-build-system)
     (native-inputs (list jq gnu-gettext
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 07/23] gnu: gnome-shell-extension-clipboard-indicator: Update to 47.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-clipboard-indicator):
Update to 47.
[arguments]: Convert to a list of G-Expressions.

Change-Id: Ie982a1820dab1f01b2e8198cd6914d1e676865ad
---
 gnu/packages/gnome-xyz.scm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 75abe51b91..2479ebb2bd 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -603,7 +603,7 @@ (define-public gnome-shell-extension-appindicator
 (define-public gnome-shell-extension-clipboard-indicator
   (package
     (name "gnome-shell-extension-clipboard-indicator")
-    (version "42")
+    (version "47")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -615,7 +615,7 @@ (define-public gnome-shell-extension-clipboard-indicator
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0wf2k33pbwjdf8i4y3aw32fgvjbh751qh7504lwhnl02rcq5dc88"))
+                "00v0v454y6hblzsx06aaysxbs6aky89vnkf7ydzxrddns24c2wix"))
               (modules '((guix build utils)))
               (snippet
                ;; Remove pre-compiled settings schemas and translations from
@@ -628,15 +628,16 @@ (define-public gnome-shell-extension-clipboard-indicator
                             (find-files "locale" "\\.mo$"))))))
     (build-system copy-build-system)
     (arguments
-     '(#:install-plan
-       '(("." "share/gnome-shell/extensions/clipboard-indicator@tudmotu.com"
-          #:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.mo$" "\\.xml$")))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'install 'compile-schemas
-           (lambda _
-             (with-directory-excursion "schemas"
-               (invoke "glib-compile-schemas" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." "share/gnome-shell/extensions/clipboard-indicator@tudmotu.com"
+           #:include-regexp ("\\.css$" "\\.compiled$" "\\.js(on)?$" "\\.mo$" "\\.xml$")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 'compile-schemas
+            (lambda _
+              (with-directory-excursion "schemas"
+                (invoke "glib-compile-schemas" ".")))))))
     (native-inputs
      (list `(,glib "bin") gettext-minimal))
     (home-page "https://github.com/Tudmotu/gnome-shell-extension-clipboard-indicator")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 08/23] gnu: gnome-shell-extensions-customize-ibus: Update to 86.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-customize-ibus): Update to
86.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.
[propagated-inputs]: Add ibus.

Change-Id: I48dbc2bd9a8dea7e7a2b161089b433e1d72a8ff1
---
 gnu/packages/gnome-xyz.scm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2479ebb2bd..a7cd784d78 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -61,6 +61,7 @@ (define-module (gnu packages gnome-xyz)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
   #:use-module (gnu packages gtk)
+  #:use-module (gnu packages ibus)
   #:use-module (gnu packages inkscape)
   #:use-module (gnu packages image)
   #:use-module (gnu packages pkg-config)
@@ -649,7 +650,7 @@ (define-public gnome-shell-extension-clipboard-indicator
 (define-public gnome-shell-extension-customize-ibus
   (package
     (name "gnome-shell-extension-customize-ibus")
-    (version "82")
+    (version "86")
     (source
      (origin
        (method git-fetch)
@@ -658,21 +659,23 @@ (define-public gnome-shell-extension-customize-ibus
              (commit (string-append "v" version))))
        (file-name (git-file-name name version))
        (sha256
-        (base32 "00brnyahphl4ql9yh74wpb9kmzyb4b5k4rkw40hvxvqw4qwgs24r"))))
+        (base32 "1psnbhqbqrp68dri0q98y7ikwz9z3701lcy8vvgixb2bh71y7519"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:make-flags
-       (list (string-append "VERSION=" ,version)
-             (string-append "INSTALLBASE=" (assoc-ref %outputs "out")
-                            "/share/gnome-shell/extensions"))
+     (list
+      #:make-flags
+       #~(list (string-append "VERSION=" #$version)
+               (string-append "INSTALLBASE=" #$output
+                              "/share/gnome-shell/extensions"))
        #:tests? #f ; No test target
        #:phases
-       (modify-phases %standard-phases
+       #~(modify-phases %standard-phases
          (delete 'bootstrap)
          (delete 'configure))))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("glib:bin" ,glib "bin")))
+     (list gettext-minimal `(,glib "bin")))
+    (propagated-inputs
+     (list ibus))
     (home-page "https://github.com/openSUSE/Customize-IBus")
     (synopsis "GNOME Shell Extension for IBus Customization")
     (description "Customize IBus provides full customization of appearance,
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 09/23] gnu: gnome-shell-extension-topicons-redux: Update style.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux)
[arguments]: Convert to list of G-Expressions.
<#:phases>: Do not replace 'install.
<#:make-flags>: Add INSTALL_PATH.

Change-Id: Iddccb8dd959ccd9edcefc9b76b5b2b4808e5b231
---
 gnu/packages/gnome-xyz.scm | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index a7cd784d78..80462d6e08 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -699,20 +699,15 @@ (define-public gnome-shell-extension-topicons-redux
     (native-inputs
      (list `(,glib "bin")))
     (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
+     (list
+      #:tests? #f                      ;no test defined in the project
+      #:make-flags
+      #~(list (string-append "INSTALL_PATH=" #$output
+                             "/share/gnome-shell/extensions"))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (delete 'build))))
     (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
     (synopsis "Display legacy tray icons in the GNOME Shell top panel")
     (description "Many applications, such as chat clients, downloaders, and
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 10/23] gnu: gnome-shell-extension-gsconnect: Update to 55.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-gsconnect): Update to 55.
[arguments]: Convert to list of G-Expressions.
[#:configure-flags]: Do not set settings_schemadir nor post_install anymore.
[#:phase 'skip-post-installation]: New phase.
[inputs]: Drop labels.
[native-inputs]: Drop labels.

Change-Id: I63933e43815826a8ab91a472ecda235173486dae
---
 gnu/packages/gnome-xyz.scm | 134 ++++++++++++++++++-------------------
 1 file changed, 67 insertions(+), 67 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 80462d6e08..b5816e62b6 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -761,7 +761,7 @@ (define-public gnome-shell-extension-dash-to-dock
 (define-public gnome-shell-extension-gsconnect
   (package
     (name "gnome-shell-extension-gsconnect")
-    (version "50")       ; See GNOME Shell supported versions in metadata.json
+    (version "55")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -771,77 +771,77 @@ (define-public gnome-shell-extension-gsconnect
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0vg87fdihs5kp7apgyd32ldjmwzmrxaimsc005yjyy8m3f65sjmr"))))
+                "158qbjl6m807g0fy15dvhwwwy6z8r0g7kh9gjyhm7n3y14v5p8wz"))))
     (build-system meson-build-system)
     (arguments
-     `(#:tests? #f ;; every test fails
-       #:configure-flags
-       (let* ((out (assoc-ref %outputs "out"))
-              (name+version (strip-store-file-name out))
-              (gschema-dir (string-append out
-                                          "/share/gsettings-schemas/"
-                                          name+version
-                                          "/glib-2.0/schemas"))
-              (gnome-shell (assoc-ref %build-inputs "gnome-shell"))
-              (openssh (assoc-ref %build-inputs "openssh"))
-              (openssl (assoc-ref %build-inputs "openssl")))
-         (list
-          (string-append "-Dgnome_shell_libdir=" gnome-shell "/lib")
-          (string-append "-Dgsettings_schemadir=" gschema-dir)
-          (string-append "-Dopenssl_path=" openssl "/bin/openssl")
-          (string-append "-Dsshadd_path=" openssh "/bin/ssh-add")
-          (string-append "-Dsshkeygen_path=" openssh "/bin/ssh-keygen")
-          (string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")
-          "-Dpost_install=true"))
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'configure 'fix-paths
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((glib (assoc-ref inputs "glib:bin"))
-                    (gapplication (string-append glib "/bin/gapplication"))
-                    (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
-               (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
-                 (("gapplication") gapplication))
-               (for-each
-                (lambda (file)
-                  (substitute* file
-                    (("'use strict';")
-                     (string-append "'use strict';\n\n"
-                                    "'" gi-typelib-path "'.split(':').forEach("
-                                    "path => imports.gi.GIRepository.Repository."
-                                    "prepend_search_path(path));"))))
-                '("src/extension.js" "src/prefs.js"))
-               #t)))
-         (add-after 'install 'wrap-daemons
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let* ((out (assoc-ref outputs "out"))
-                    (service-dir
-                     (string-append out "/share/gnome-shell/extensions"
-                                    "/gsconnect@andyholmes.github.io/service"))
+     (list
+      #:tests? #f ;; every test fails
+      #:configure-flags
+      #~(let ((out #$output)
+              (gnome-shell #$(this-package-input "gnome-shell"))
+              (openssh #$(this-package-input "openssh"))
+              (openssl #$(this-package-input "openssl")))
+          (list
+           (string-append "-Dgnome_shell_libdir=" gnome-shell "/lib")
+           (string-append "-Dopenssl_path=" openssl "/bin/openssl")
+           (string-append "-Dsshadd_path=" openssh "/bin/ssh-add")
+           (string-append "-Dsshkeygen_path=" openssh "/bin/ssh-keygen")
+           (string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'skip-post-installation
+            (lambda _
+              (substitute* "meson.build"
+                (("gtk_update_icon_cache: true")
+                 "gtk_update_icon_cache: false")
+                (("update_desktop_database: true")
+                 "update_desktop_database: false"))))
+          (add-before 'configure 'fix-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let ((gapplication (search-input-file inputs "/bin/gapplication"))
                     (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
-               (wrap-program (string-append service-dir "/daemon.js")
-                 `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))
-               #t))))))
+                (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
+                  (("gapplication") gapplication))
+                (for-each
+                 (lambda (file)
+                   (substitute* file
+                     (("'use strict';")
+                      (string-append "'use strict';\n\n"
+                                     "'" gi-typelib-path "'.split(':').forEach("
+                                     "path => imports.gi.GIRepository.Repository."
+                                     "prepend_search_path(path));"))))
+                 '("src/extension.js" "src/prefs.js")))))
+          (add-after 'install 'wrap-daemons
+            (lambda _
+              (let* ((out #$output)
+                     (service-dir
+                      (string-append out "/share/gnome-shell/extensions"
+                                     "/gsconnect@andyholmes.github.io/service"))
+                     (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
+                (wrap-program (string-append service-dir "/daemon.js")
+                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
     (inputs
-     `(("at-spi2-core" ,at-spi2-core)
-       ("caribou" ,caribou)
-       ("evolution-data-server" ,evolution-data-server)
-       ("gjs" ,gjs)
-       ("glib" ,glib)
-       ("glib:bin" ,glib "bin")
-       ("gsound" ,gsound)
-       ("gnome-shell" ,gnome-shell)
-       ("gtk+" ,gtk+)
-       ("nautilus" ,nautilus)
-       ("openssh" ,openssh)
-       ("openssl" ,openssl)
-       ("python-pygobject" ,python-pygobject)
-       ("upower" ,upower)))
+     (list
+      at-spi2-core
+      caribou
+      evolution-data-server
+      gjs
+      glib
+      `(,glib "bin") ;for /bin/gapplication
+      gsound
+      gnome-shell
+      gtk+
+      nautilus
+      openssh
+      openssl
+      python-pygobject
+      upower))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("gobject-introspection" ,gobject-introspection)
-       ("libxml2" ,libxml2)
-       ("pkg-config" ,pkg-config)))
+     (list
+      gettext-minimal
+      gobject-introspection
+      libxml2
+      pkg-config))
     (home-page "https://github.com/GSConnect/gnome-shell-extension-gsconnect/wiki")
     (synopsis "Connect GNOME Shell with your Android phone")
     (description "GSConnect is a complete implementation of KDE Connect
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 03/23] gnu: gnome-shell-extension-hide-app-icon: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension does not work with GNOME 44, and has not received any
work. However, Just Perfection seems to have an option to hide application
icons.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-hide-app-icon): Deprecate
in favor of gnome-shell-extension-hide-app-icon.

Change-Id: I6af14b6c9e1db7176d9be6bec2b90f77e7db36c1
---
 gnu/packages/gnome-xyz.scm | 48 ++------------------------------------
 1 file changed, 2 insertions(+), 46 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 1ba5162597..c278f47263 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -852,52 +852,8 @@ (define-public gnome-shell-extension-gsconnect
     (license license:gpl2)))
 
 (define-public gnome-shell-extension-hide-app-icon
-  (let ((commit "4188aa5f4ba24901a053a0c3eb0d83baa8625eab")
-        (revision "0"))
-    (package
-      (name "gnome-shell-extension-hide-app-icon")
-      (version (git-version "2.7" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/michael-rapp"
-                                   "/gnome-shell-extension-hide-app-icon.git"))
-               (commit commit)))
-         (sha256
-          (base32
-           "1i28n4bz6wrhn07vpxkr6l1ljyn7g8frp5xrr11z3z32h2hxxcd6"))
-         (file-name (git-file-name name version))))
-      (build-system gnu-build-system)
-      (arguments
-       '(#:tests? #f                ; no test target
-         #:make-flags (list (string-append "EXTENSIONS_DIR="
-                                           (assoc-ref %outputs "out")
-                                           "/share/gnome-shell/extensions"))
-         #:phases
-         (modify-phases %standard-phases
-           (delete 'configure)      ; no configure script
-           (replace 'install
-             (lambda* (#:key outputs #:allow-other-keys)
-               (let ((out (assoc-ref outputs "out"))
-                     (pre "/share/gnome-shell/extensions/")
-                     (dir "hide-app-icon@mrapp.sourceforge.com"))
-                 (copy-recursively dir (string-append out pre dir))
-                 #t))))))
-      (native-inputs
-       (list `(,glib "bin") intltool))
-      (propagated-inputs
-       (list glib))
-      (synopsis "Hide app icon from GNOME's panel")
-      (description "This extension hides the icon and/or title of the
-currently focused application in the top panel of the GNOME shell.")
-      (home-page
-       "https://github.com/michael-rapp/gnome-shell-extension-hide-app-icon/")
-      (license
-        ;; README.md and LICENSE.txt disagree -- the former claims v3, the
-        ;; latter v2.  No mention of "or later" in either place or in the code.
-        (list license:gpl2
-              license:gpl3)))))
+  (deprecated-package "gnome-shell-extension-hide-app-icon"
+                      gnome-shell-extension-just-perfection))
 
 (define-public gnome-shell-extension-just-perfection
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 03/23] gnu: gnome-shell-extension-hide-app-icon: Deprecate.

[Vivien Kraus via Guix-patches via]

Le mercredi 17 janvier 2024 à 17:20 +0100, Vivien Kraus a écrit :
> +  (deprecated-package "gnome-shell-extension-hide-app-icon"
> +                      gnome-shell-extension-just-perfection))
>  
>  (define-public gnome-shell-extension-just-perfection
>    (package

There’s a mishap here: you have to swap the order of gnome-shell-
extension-hide-app-icon and gnome-shell-extension-just-perfection in
the file.

Sorry.

Vivien

[bug#68556] [PATCH gnome-team v2 11/23] gnu: gnome-shell-extension-blur-my-shell: Update to 47.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-blur-my-shell): Update to 47.

Change-Id: I528579d9bd02361501977cbad6f9e752403ff37e
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b5816e62b6..89ba3cdbb7 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1217,7 +1217,7 @@ (define-public gnome-shell-extension-burn-my-windows
 (define-public gnome-shell-extension-blur-my-shell
   (package
     (name "gnome-shell-extension-blur-my-shell")
-    (version "44")
+    (version "47")
     (source
      (origin
        (method git-fetch)
@@ -1227,7 +1227,7 @@ (define-public gnome-shell-extension-blur-my-shell
        (file-name (git-file-name name version))
        (sha256
         (base32
-         "0h7yfvrrg5r821mzrp42c09jws06mw6v9avvkfykqj8n8qnslmyx"))))
+         "1a8prh6893zk8rnfi9q7waga2x7kx564jzmsdyhiffdbazbv8p6y"))))
     (build-system copy-build-system)
     (arguments
      '(#:install-plan
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 12/23] gnu: gnome-shell-extension-burn-my-windows: Update to 40.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-burn-my-windows): Update
to 40.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ib9551096437aeea0ff56e5e1ea6371ab72d61b02
---
 gnu/packages/gnome-xyz.scm | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 89ba3cdbb7..b9d0d29706 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1178,7 +1178,7 @@ (define-public gnome-shell-extension-jiggle
 (define-public gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-    (version "22")
+    (version "40")
     (source
      (origin
        (method git-fetch)
@@ -1187,25 +1187,26 @@ (define-public gnome-shell-extension-burn-my-windows
              (commit (string-append "v" version))))
        (sha256
         (base32
-         "185xrf330d9bflmk0l61cnzlylnppb2v4yz6v6ygkk4zpwyil8np"))
+         "16n6ilszdn67835clqlr4flna69x9k00k5qrm55765dv2ny9jdcq"))
        (file-name (git-file-name name version))))
     (build-system copy-build-system)
     (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "burn-my-windows@schneegans.github.com")
-          #: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")))
-         (add-before 'install 'compile-schemas
-           (lambda _
-             (with-directory-excursion "schemas"
-               (invoke "glib-compile-schemas" ".")))))))
+     (list
+      #:install-plan
+      #~'(("." #$(string-append
+                  "share/gnome-shell/extensions/"
+                  "burn-my-windows@schneegans.github.com")
+           #: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")))
+          (add-before 'install 'compile-schemas
+            (lambda _
+              (with-directory-excursion "schemas"
+                (invoke "glib-compile-schemas" ".")))))))
     (native-inputs
      (list `(,glib "bin")))  ; for glib-compile-resources
     (home-page "https://github.com/Schneegans/Burn-My-Windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 13/23] gnu: gnome-shell-extension-radio: Update to 21.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-radio): Update to 21.

Change-Id: I11aab4c80c96d1237112bb9a089763bd3c331d1a
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b9d0d29706..7cd0feeded 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1257,7 +1257,7 @@ (define-public gnome-shell-extension-blur-my-shell
 (define-public gnome-shell-extension-radio
   (package
     (name "gnome-shell-extension-radio")
-    (version "20")
+    (version "21")
     (source (origin
               (method git-fetch)
               (uri (git-reference
@@ -1267,7 +1267,7 @@ (define-public gnome-shell-extension-radio
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "01dmziad9g7bs3hr59aaz3mivkc6rqfyb9bz2v202zk22vcr5a2y"))))
+                "1ghk95q3lhliz3his58hh2ql4p9csh6llzip412vwf29zdkr58s2"))))
     (build-system copy-build-system)
     (arguments
      (list
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 02/23] gnu: gnome-shell-extension-just-perfection: Update to 26.0.

[Vivien Kraus via Guix-patches via]

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

Change-Id: Ib02ab984310705bfa435ab1ea8d47c74a6162db0
---
 gnu/packages/gnome-xyz.scm | 59 +++++++++++++++++++-------------------
 1 file changed, 30 insertions(+), 29 deletions(-)

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

[bug#68556] [PATCH gnome-team v2 14/23] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7cd0feeded..7e06f693e5 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1133,48 +1133,6 @@ (define-public gnome-shell-extension-vertical-overview
 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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 15/23] gnu: gnome-shell-extension-night-theme-switcher: Update to 74.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-night-theme-switcher):
Update to 74.

Change-Id: I712dad785d3d303252f35b4c73185b83b6e01e54
---
 gnu/packages/gnome-xyz.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7e06f693e5..0f71e0e242 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1013,7 +1013,7 @@ (define-public gnome-shell-extension-paperwm
 (define-public gnome-shell-extension-night-theme-switcher
   (package
     (name "gnome-shell-extension-night-theme-switcher")
-    (version "65")
+    (version "74")
     (source
      (origin
        (method git-fetch)
@@ -1022,7 +1022,7 @@ (define-public gnome-shell-extension-night-theme-switcher
               "https://gitlab.com/rmnvgr/nightthemeswitcher-gnome-shell-extension")
              (commit version)))
        (sha256
-        (base32 "0qhi2g2lh6m8vhrmmfi60977f0i4k9x1zj68lrvpzzlqndz8cgh9"))
+        (base32 "1hiydjyn7shc32i81r70sqip9p3hhig7pqq1h7hsz9bc4qlyri7b"))
        (file-name (git-file-name name version))))
     (build-system meson-build-system)
     (native-inputs (list pkg-config (list glib "bin")))
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 16/23] gnu: Add gnome-shell-extension-noannoyance-fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance-fork): New variable.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 0f71e0e242..3f1d9342c0 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -946,6 +946,34 @@ (define-public gnome-shell-extension-dash-to-panel
     (home-page "https://github.com/home-sweet-gnome/dash-to-panel/")
     (license license:gpl2+)))
 
+(define-public gnome-shell-extension-noannoyance-fork
+  (let ((revision "1")
+        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
+    (package
+      ;; This is the “fork” version:
+      ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/
+      (name "gnome-shell-extension-noannoyance-fork")
+      (version (git-version "1" revision commit))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/jirkavrba/noannoyance")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
+                (file-name (git-file-name name version))))
+      (build-system copy-build-system)
+      (arguments
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
+      (synopsis "Remove 'Window is ready' annotation")
+      (description "One of the many extensions that remove this message.
+It uses ES6 syntax and claims to be more actively maintained than others.")
+      (home-page "https://extensions.gnome.org/extension/2182/noannoyance/")
+      (license license:gpl2))))
+
 (define-public gnome-shell-extension-noannoyance
   (let ((revision "1")
         (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 16/23] gnu: Add gnome-shell-extension-noannoyance-fork.

[Liliana Marie Prikler]

Am Mittwoch, dem 17.01.2024 um 23:32 +0100 schrieb Vivien Kraus:
> The NoAnnoyance “v2” project has not been ported to GNOME 44, so we
> switch to a maintained fork.
> 
> * gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance-
> fork): New variable.
> 
> Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
> ---
Instead of introducing another variable and deprecating the former, it
makes sense to just update the origin, version, hash, etc.

Cheers

[bug#68556] [PATCH gnome-team v2 16/23] gnu: Add gnome-shell-extension-noannoyance-fork.

[Vivien Kraus via Guix-patches via]

Le vendredi 19 janvier 2024 à 23:33 +0100, Liliana Marie Prikler a
écrit :
> Am Mittwoch, dem 17.01.2024 um 23:32 +0100 schrieb Vivien Kraus:
> > The NoAnnoyance “v2” project has not been ported to GNOME 44, so we
> > switch to a maintained fork.
> > 
> > * gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance-
> > fork): New variable.
> > 
> > Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
> > ---
> Instead of introducing another variable and deprecating the former,
> it
> makes sense to just update the origin, version, hash, etc.

The version number restarts at 1 (according to extensions.gnome.org),
won’t that be a problem?

Vivien

[bug#68556] [PATCH gnome-team v2 16/23] gnu: Add gnome-shell-extension-noannoyance-fork.

[Liliana Marie Prikler]

Am Freitag, dem 19.01.2024 um 23:35 +0100 schrieb Vivien Kraus:
> Le vendredi 19 janvier 2024 à 23:33 +0100, Liliana Marie Prikler a
> écrit :
> > Am Mittwoch, dem 17.01.2024 um 23:32 +0100 schrieb Vivien Kraus:
> > > The NoAnnoyance “v2” project has not been ported to GNOME 44, so
> > > we switch to a maintained fork.
> > > 
> > > * gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance-
> > > fork): New variable.
> > > 
> > > Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
> > > ---
> > Instead of introducing another variable and deprecating the former,
> > it makes sense to just update the origin, version, hash, etc.
> 
> The version number restarts at 1 (according to extensions.gnome.org),
> won’t that be a problem?
I think we can count this as 16 - revision - commit, since it was
forked somewhere around there.

Cheers

[bug#68556] [PATCH gnome-team v2 18/23] gnu: gnome-shell-extension-paperwm: Update to 44.17.0.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-paperwm): Update to
44.17.0.
[arguments]: Convert to list of G-Expressions.
[native-inputs]: Drop labels.

Change-Id: Ib4e42ade9f02a02a6ef5c775f78428aa0c1ead77
---
 gnu/packages/gnome-xyz.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 47b521dd28..94ab817bfe 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -981,33 +981,33 @@ (define-public gnome-shell-extension-noannoyance
 (define-public gnome-shell-extension-paperwm
   (package
     (name "gnome-shell-extension-paperwm")
-    (version "36.0")
+    (version "44.17.0")
     (source (origin
               (method git-fetch)
               (uri (git-reference
                     (url "https://github.com/paperwm/PaperWM")
-                    (commit version)))
+                    (commit (string-append "v" version))))
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "1ssnabwxrns36c61ppspjkr9i3qifv08pf2jpwl7cjv3pvyn4kly"))
+                "1d91k9qih81wckqf6554kf8grv6q61rkk4g776g0ijpmf35ljdin"))
               (snippet
                '(begin (delete-file "schemas/gschemas.compiled")))))
     (build-system copy-build-system)
     (arguments
-     '(#:install-plan
-       '(("." "share/gnome-shell/extensions/paperwm@hedning:matrix.org"
-          #: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 "make"))
-             #t)))))
+     (list
+      #:install-plan
+      #~'(("." "share/gnome-shell/extensions/paperwm@hedning:matrix.org"
+           #: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 "make")))))))
     (native-inputs
-     `(("glib:bin" ,glib "bin"))) ; for glib-compile-schemas
+     (list `(,glib "bin"))) ; for glib-compile-schemas
     (home-page "https://github.com/paperwm/PaperWM")
     (synopsis "Tiled scrollable window management for GNOME Shell")
     (description "PaperWM is an experimental GNOME Shell extension providing
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 18/23] gnu: gnome-shell-extension-paperwm: Update to 44.17.0.

[Liliana Marie Prikler]

Am Mittwoch, dem 17.01.2024 um 23:36 +0100 schrieb Vivien Kraus:
> * gnu/packages/gnome-xyz.scm (gnome-shell-extension-paperwm): Update
> to
> 44.17.0.
> [arguments]: Convert to list of G-Expressions.
> [native-inputs]: Drop labels.
> 
> Change-Id: Ib4e42ade9f02a02a6ef5c775f78428aa0c1ead77
> ---
This patch appears to have been independently submitted for master [1].
We might reduce the scope of gnome-team by one patch if we take the
other :)

[1] https://issues.guix.gnu.org/68574

[bug#68556] [PATCH gnome-team v2 19/23] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 33 ---------------------------------
 1 file changed, 33 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 94ab817bfe..0e3c5f9ab7 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1249,39 +1249,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
-
 (define-public gnome-shell-extension-transparent-window
   (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
         (revision "45"))
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 20/23] gnu: Remove gnome-shell-extension-topicons-redux.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, but GNOME Shell already
displays tray icons.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Remove variable.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 0e3c5f9ab7..7d9d3fa78e 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -682,42 +682,6 @@ (define-public gnome-shell-extension-customize-ibus
 behavior, system tray and input source indicator for IBus.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     (list
-      #:tests? #f                      ;no test defined in the project
-      #:make-flags
-      #~(list (string-append "INSTALL_PATH=" #$output
-                             "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases
-          (delete 'configure)
-          (delete 'build))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
-
 (define-public gnome-shell-extension-dash-to-dock
   (package
     (name "gnome-shell-extension-dash-to-dock")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 21/23] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7d9d3fa78e..89a5426e98 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1213,37 +1213,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 22/23] gnu: Add gnome-shell-extension-v-shell.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-v-shell): New variable.

Change-Id: Ib7e3cf5cffed621e2ccd54c84004c5ab8504fa9a
---
 gnu/packages/gnome-xyz.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 89a5426e98..bc1f3dd51f 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1063,6 +1063,42 @@ (define-public gpaste
 copies you now want to paste.")
     (license license:bsd-2)))
 
+(define-public gnome-shell-extension-v-shell
+  (package
+    (name "gnome-shell-extension-v-shell")
+    (version "37")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/G-dH/vertical-workspaces")
+             (commit (string-append "v" version))))
+       (sha256
+        (base32
+         "1h9f3g1dswxkka0yyj51610w86mwl46ylch19b51gj5mmxlyvzlv"))
+       (file-name (git-file-name name version))))
+    (build-system copy-build-system)
+    (arguments
+     (list
+      #:install-plan
+      #~'(("." #$(string-append
+                  "share/gnome-shell/extensions/"
+                  "vertical-workspaces@G-dH.github.com")
+           #:include-regexp ("\\.js(on)?$" "\\.css$" "\\.ui$" "\\.png$"
+                             "\\.xml$" "\\.compiled$" "\\.gresource$")))
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'install 'build
+            (lambda _
+              (invoke "make" "all"))))))
+    (native-inputs
+     (list gettext-minimal `(,glib "bin")))
+    (home-page "https://github.com/G-dH/vertical-workspaces")
+    (synopsis "Shell configuration with horizontal or vertical workspaces")
+    (description "V-Shell (Vertical Workspaces) lets the user configure different parts of the
+shell, including panels, corners, workspaces.")
+    (license license:gpl3)))
+
 (define-public gnome-shell-extension-vertical-overview
   (package
     (name "gnome-shell-extension-vertical-overview")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 23/23] gnu: gnome-shell-extension-vertical-overview: Deprecate.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-vertical-overview):
Replace with gnome-shell-extension-v-shell.

Change-Id: I1c6539fd6532046f8445ee33b286645b9e68a053
---
 gnu/packages/gnome-xyz.scm | 39 ++------------------------------------
 1 file changed, 2 insertions(+), 37 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index bc1f3dd51f..71069540dd 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1100,43 +1100,8 @@ (define-public gnome-shell-extension-v-shell
     (license license:gpl3)))
 
 (define-public gnome-shell-extension-vertical-overview
-  (package
-    (name "gnome-shell-extension-vertical-overview")
-    (version "10")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/RensAlthuis/vertical-overview")
-             (commit (string-append "v" version))))
-       (sha256
-        (base32
-         "1sqkbg93qqrq47wyfnh2flg7dpsmv5c2pmkx8kgqhnbl7j2kgi0l"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "vertical-overview@RensAlthuis.github.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/RensAlthuis/vertical-overview")
-    (synopsis "Provides a vertical overview in Gnome 40 and upper")
-    (description "This Gnome extension replaces the new horizontally oriented
-Gnome overview with something that resembles the old vertically oriented
-style.")
-    (license license:gpl3)))
+  (deprecated-package "gnome-shell-extension-vertical-overview"
+                      gnome-shell-extension-v-shell))
 
 (define-public gnome-shell-extension-burn-my-windows
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 17/23] gnu: gnome-shell-extension-noannoyance: Deprecate.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Deprecate in
favor of gnome-shell-extension-noannoyance-fork.
---
 gnu/packages/gnome-xyz.scm | 27 ++-------------------------
 1 file changed, 2 insertions(+), 25 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 3f1d9342c0..47b521dd28 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -975,31 +975,8 @@ (define-public gnome-shell-extension-noannoyance-fork
       (license license:gpl2))))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
-    (package
-      (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
-      (source (origin
-                (method git-fetch)
-                (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
-                      (commit commit)))
-                (sha256
-                 (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
-                (file-name (git-file-name name version))))
-      (build-system copy-build-system)
-      (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
-      (synopsis "Remove 'Window is ready' annotation")
-      (description "One of the many extensions that remove this message.
-It uses ES6 syntax and claims to be more actively maintained than others.")
-      (home-page "https://extensions.gnome.org/extension/2182/noannoyance/")
-      (license license:gpl2))))
+  (deprecated-package "gnome-shell-extension-noannoyance"
+                      gnome-shell-extension-noannoyance-fork))
 
 (define-public gnome-shell-extension-paperwm
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v2 00/23] Update extensions with 3 replacements

[Liliana Marie Prikler]

Am Freitag, dem 19.01.2024 um 22:50 +0100 schrieb Vivien Kraus:
> Dear guix,
> 
> I took the liberty to introduce V-Shell to replace vertical-overview.
> Your idea to use Just Perfection worked, and I packaged the fork for
> NoAnnoyance.
> 
> Now we need a solution for Jiggle and Transparent Window, a fix for
> the built-in Applications Menu, and a way to deprecate more smoothly
> Sound Output Device Chooser and Topicons Redux that are have been
> made redundant by the default shell.
I pushed the non-controversial patches to gnome-team now.  Feel free to
rebase and reduce the series for v3 :)

Cheers

[bug#68556] [PATCH gnome-team v3 0/7] [PATCH gnome-team v3 0/7] Update extensions (2/5 replaced, 2/5 no solution, 1/5 redundant)

[Vivien Kraus via Guix-patches via]

Dear Guix,

In this V3, the Applications Menu built-in extension is fixed by installing
typelibs for gnome-menus. Since the extension requires it, I figured it should
be a propagated-input. However, it is already propagated by
gnome-desktop. Should we propagate it in both gnome-desktop and
gnome-shell-extensions?

The noannoyance extension now has an updated origin, preserving the same
package.

The paperwm extension requires to be updated for GNOME 44, see
https://issues.guix.gnu.org/68574 for a candidate patch.

I still have no solution for Jiggle and Transparent Window. For the former, I
was reminded that there is a standard option to make your pointer more visible
if you press the control key, but I am not sure this is desirable as a Jiggle
replacement.

Now sound-output-device-chooser has a greatly decreased utility, since you can
choose the output device directly from the shell.

Best regards,

Vivien

Vivien Kraus (7):
  gnu: gnome-menus: Build GObject Introspection data.
  gnu: gnome-shell-extensions: Propagate gnome-menus.
  gnu: gnome-shell-extension-noannoyance: Switch to fork.
  gnu: gnome-shell-extension-topicons-redux: Deprecate.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.

 gnu/packages/gnome-xyz.scm | 161 +++----------------------------------
 gnu/packages/gnome.scm     |  16 +++-
 2 files changed, 24 insertions(+), 153 deletions(-)


base-commit: 49897f2dde7f469c83c496fad2699d3a05f72701
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 5/7] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index feef78c63a..3cfd87400b 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1103,48 +1103,6 @@ (define-public gnome-shell-extension-vertical-overview
   (deprecated-package "gnome-shell-extension-vertical-overview"
                       gnome-shell-extension-v-shell))
 
-(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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 5/7] gnu: Remove gnome-shell-extension-jiggle.

[Liliana Marie Prikler]

Am Mittwoch, dem 17.01.2024 um 23:26 +0100 schrieb Vivien Kraus:
> This extension has not been made compatible with GNOME 44.
> 
> * gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove
> variable.
> 
> Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
> ---
>  gnu/packages/gnome-xyz.scm | 42 ------------------------------------
> --
>  1 file changed, 42 deletions(-)
> 
> diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
> index feef78c63a..3cfd87400b 100644
> --- a/gnu/packages/gnome-xyz.scm
> +++ b/gnu/packages/gnome-xyz.scm
> @@ -1103,48 +1103,6 @@ (define-public gnome-shell-extension-vertical-
> overview
>    (deprecated-package "gnome-shell-extension-vertical-overview"
>                        gnome-shell-extension-v-shell))
>  
> -(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"))
> -       (file-name (git-file-name name version))
> -       (snippet
> -        '(begin (delete-file "schemas/gschemas.compiled")))))
> -    (build-system copy-build-system)
> -    (arguments
> -     `(#:install-plan
> -       '(("." ,(string-append
> -                "share/gnome-shell/extensions/"
> -                "jiggle@jeffchannell.com")
> -          #: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\""))))
For the record, you have tried updating these, before removing the
extension, right?
> -         (add-before 'install 'compile-schemas
> -           (lambda _
> -             (with-directory-excursion "schemas"
> -               (invoke "glib-compile-schemas" ".")))))))
> -    (native-inputs
> -     (list `(,glib "bin")))  ; for glib-compile-resources
> -    (home-page "https://github.com/jeffchannell/jiggle")
> -    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
>    (package
>      (name "gnome-shell-extension-burn-my-windows")

Cheers

[bug#68556] [PATCH gnome-team v3 5/7] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

Le samedi 20 janvier 2024 à 01:41 +0100, Liliana Marie Prikler a
écrit :
> > -         (add-after 'unpack 'fix-version
> > -           (lambda _
> > -             (substitute* "metadata.json"
> > -               (("\"40.0\"") "\"40\", \"41\""))))
> For the record, you have tried updating these, before removing the
> extension, right?

I had not; but now I did and they do not do their job at all.

[bug#68556] [PATCH gnome-team v3 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b6c1f6d3cb..7ba5ed1af4 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -953,25 +953,26 @@ (define-public gnome-shell-extension-dash-to-panel
 
 (define-public gnome-shell-extension-noannoyance
   (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
     (package
+      ;; This is the “fork” version:
+      ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
       (version (git-version "16" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Liliana Marie Prikler]

Am Mittwoch, dem 17.01.2024 um 23:32 +0100 schrieb Vivien Kraus:
> The NoAnnoyance “v2” project has not been ported to GNOME 44, so we
> switch to
> a maintained fork.
> 
> * gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance):
> Switch to
> the fork.
> [arguments]: Convert to list of G-Expressions.
> 
> Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
> ---
>  gnu/packages/gnome-xyz.scm | 15 ++++++++-------
>  1 file changed, 8 insertions(+), 7 deletions(-)
> 
> diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
> index b6c1f6d3cb..7ba5ed1af4 100644
> --- a/gnu/packages/gnome-xyz.scm
> +++ b/gnu/packages/gnome-xyz.scm
> @@ -953,25 +953,26 @@ (define-public gnome-shell-extension-dash-to-
> panel
>  
>  (define-public gnome-shell-extension-noannoyance
>    (let ((revision "1")
> -        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
> +        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
Remember to bump the revision.
>      (package
> +      ;; This is the “fork” version:
> +      ;;
> https://extensions.gnome.org/extension/6109/noannoyance-fork/
The comment here is not great.  What does "This is the fork version"
mean when standing alone?  To me, it means absolutely nothing, despite
knowing the context behind.

Maybe explain "While the original version at <first link> is not
updated to current gnome, this fork <fork link> supports newer
versions." or something like that.
>        (name "gnome-shell-extension-noannoyance")
> -      ;; XXX: There is no version noted anywhere in the source. 
> Thus, infer it
> -      ;;      from
> <https://extensions.gnome.org/extension/2182/noannoyance/>.
>        (version (git-version "16" revision commit))
>        (source (origin
>                  (method git-fetch)
>                  (uri (git-reference
> -                      (url "https://github.com/bdaase/noannoyance")
> +                      (url
> "https://github.com/jirkavrba/noannoyance")
>                        (commit commit)))
>                  (sha256
>                   (base32
> -                 
> "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
> +                 
> "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
>                  (file-name (git-file-name name version))))
>        (build-system copy-build-system)
>        (arguments
> -       '(#:install-plan
> -         '(("."
> "share/gnome-shell/extensions/noannoyance@daase.net"))))
> +       (list
> +        #:install-plan
> +        #~'(("."
> "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
>        (synopsis "Remove 'Window is ready' annotation")
>        (description "One of the many extensions that remove this
> message.
>  It uses ES6 syntax and claims to be more actively maintained than
> others.")

Cheers

[bug#68556] [PATCH gnome-team v3 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

[-- Attachment #1: Type: text/plain, Size: 1499 bytes --]

Hello!

Le samedi 20 janvier 2024 à 01:40 +0100, Liliana Marie Prikler a
écrit :
> >  (define-public gnome-shell-extension-noannoyance
> >    (let ((revision "1")
> > -        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
> > +        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
> Remember to bump the revision.
> >      (package
> > +      ;; This is the “fork” version:
> > +      ;;
> > https://extensions.gnome.org/extension/6109/noannoyance-fork/
> The comment here is not great.  What does "This is the fork version"
> mean when standing alone?  To me, it means absolutely nothing,
> despite
> knowing the context behind.
> 
> Maybe explain "While the original version at <first link> is not
> updated to current gnome, this fork <fork link> supports newer
> versions." or something like that.

The situation is not very easy to explain. I discovered that our commit
is 6 ahead of the commit published as version 17 for NoAnnoyance v2. I
don’t really want to know how it relates to “NoAnnoyance” the original
extension, because it has been forked around 2017 between f21d09a
(“change to GPL v2 license”) and 866084e (“Rewrite”), which may be
something like version 4 in extensions.gnome.org.

In any case, since we are continuing the version number scheme of
NoAnnoyance v2, this is version 17-6. I tried to explain this as
quickly as possible, what do you think?

Best regards,

Vivien

[-- Attachment #2: 0001-gnu-gnome-shell-extension-noannoyance-Switch-to-fork.patch --]
[-- Type: text/x-patch, Size: 3365 bytes --]

From 9d1d9c5f74f43ea60ed2ce9842cf821529ad6f27 Mon Sep 17 00:00:00 2001
Message-ID: <9d1d9c5f74f43ea60ed2ce9842cf821529ad6f27.1705740965.git.vivien@planete-kraus.eu>
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Wed, 17 Jan 2024 23:32:42 +0100
Subject: [PATCH] gnu: gnome-shell-extension-noannoyance: Switch to fork.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.  The version number is computed in continuity with
NoAnnoyance v2.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.  Bump version to 17 and revision to 6.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b6c1f6d3cb..026aaefd64 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -952,26 +952,32 @@ (define-public gnome-shell-extension-dash-to-panel
     (license license:gpl2+)))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+  ;; There are different forks of the NoAnnoyance extension. This is the one
+  ;; named “NoAnnoyance (fork)” at
+  ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/ because it
+  ;; supports newer GNOME Shell versions than the previously used “NoAnnoyance
+  ;; v2”.
+  (let ((revision "6")
+        ;; “NoAnnoyance v2” version 17 correlates with
+        ;; c6804a47063659f9f48d13a0942b78ce98aac72b
+        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
     (package
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
+      (version (git-version "17" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")

base-commit: 49897f2dde7f469c83c496fad2699d3a05f72701
prerequisite-patch-id: 3faeeda7e58b64d088b388b6ebb44b927964912b
prerequisite-patch-id: bc167ce608743cf16b648091eb5775e57b9e0953
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Liliana Marie Prikler]

Am Samstag, dem 20.01.2024 um 10:06 +0100 schrieb Vivien Kraus:
> Hello!
> 
> Le samedi 20 janvier 2024 à 01:40 +0100, Liliana Marie Prikler a
> écrit :
> > >  (define-public gnome-shell-extension-noannoyance
> > >    (let ((revision "1")
> > > -        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
> > > +        (commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e"))
> > Remember to bump the revision.
> > >      (package
> > > +      ;; This is the “fork” version:
> > > +      ;;
> > > https://extensions.gnome.org/extension/6109/noannoyance-fork/
> > The comment here is not great.  What does "This is the fork
> > version"
> > mean when standing alone?  To me, it means absolutely nothing,
> > despite
> > knowing the context behind.
> > 
> > Maybe explain "While the original version at <first link> is not
> > updated to current gnome, this fork <fork link> supports newer
> > versions." or something like that.
> 
> The situation is not very easy to explain. I discovered that our
> commit is 6 ahead of the commit published as version 17 for
> NoAnnoyance v2.
> I don’t really want to know how it relates to “NoAnnoyance” the
> original extension, because it has been forked around 2017 between
> f21d09a (“change to GPL v2 license”) and 866084e (“Rewrite”), which
> may be something like version 4 in extensions.gnome.org.
> 
> In any case, since we are continuing the version number scheme of
> NoAnnoyance v2, this is version 17-6. I tried to explain this as
> quickly as possible, what do you think?
LGTM, but you might also want to explain that we're counting commits
since the common fork (maybe it's easier to swap commit and revision in
the let).

Cheers

[bug#68556] [PATCH gnome-team v3 7/7] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 76f6bbfb27..b6a8882f52 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1214,38 +1214,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
 
 (define-public gnome-shell-extension-vitals
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 4/7] gnu: gnome-shell-extension-topicons-redux: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The appindicator extension
exhibits a similar feature.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Deprecate
in favor of gnome-shell-extension-appindicator.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 41 ++------------------------------------
 1 file changed, 2 insertions(+), 39 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7ba5ed1af4..feef78c63a 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -683,45 +683,8 @@ (define-public gnome-shell-extension-customize-ibus
     (license license:gpl3+)))
 
 (define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
+  (deprecated-package "gnome-shell-extension-topicons-redux"
+                      gnome-shell-extension-appindicator))
 
 (define-public gnome-shell-extension-dash-to-dock
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 6/7] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 3cfd87400b..76f6bbfb27 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1247,37 +1247,6 @@ (define-public gnome-shell-extension-sound-output-device-chooser
 Speakers etc. of the same device are also displayed for selection.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 2/7] gnu: gnome-shell-extensions: Propagate gnome-menus.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-shell-extensions) [propagated-inputs]: Add gnome-menus.

Change-Id: I6d2582352b499dd7012d3c0642a3cb48ded68e07
---
 gnu/packages/gnome.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 1e08e027c3..1627e7832f 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10731,7 +10731,8 @@ (define-public gnome-shell-extensions
            gettext-minimal
            pkg-config))
     (propagated-inputs
-     (list glib))
+     ;; gnome-menus is required for the built-in Applications Menu extension.
+     (list glib gnome-menus))
     (synopsis "Extensions for GNOME Shell")
     (description "GNOME Shell extensions modify and extend GNOME Shell
 functionality and behavior.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 1/7] gnu: gnome-menus: Build GObject Introspection data.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-menus) [native-inputs]: Add gobject-introspection.

Change-Id: I8cf485955dbad29cec781af9b5fada4c5bcb1ba6
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 3d89f06d6a..1e08e027c3 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1812,8 +1812,19 @@ (define-public gnome-menus
                (base32
                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-introspection-install-dir
+            (lambda _
+              (substitute* "libmenu/Makefile.in"
+                (("@INTROSPECTION_GIRDIR@")
+                 (string-append #$output "/share/gir-1.0/"))
+                (("@INTROSPECTION_TYPELIBDIR@")
+                 (string-append #$output "/lib/girepository-1.0/"))))))))
     (native-inputs
-     (list gettext-minimal glib pkg-config))
+     (list gettext-minimal glib gobject-introspection pkg-config))
     (synopsis "Menu support for GNOME desktop")
     (description "GNOME Menus contains the libgnome-menu library, the layout
 configuration files for the GNOME menu, as well as a simple menu editor.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v3 0/7] [PATCH gnome-team v3 0/7] Update extensions (2/5 replaced, 2/5 no solution, 1/5 redundant)

[Liliana Marie Prikler]

Am Samstag, dem 20.01.2024 um 01:11 +0100 schrieb Vivien Kraus:
> Dear Guix,
> 
> In this V3, the Applications Menu built-in extension is fixed by
> installing typelibs for gnome-menus. Since the extension requires it,
> I figured it should be a propagated-input. However, it is already
> propagated by gnome-desktop. Should we propagate it in both gnome-
> desktop and gnome-shell-extensions?
Instead of propagating it, we should perhaps just wrap GI_TYPELIB_PATH?

> The noannoyance extension now has an updated origin, preserving the
> same package.
> 
> The paperwm extension requires to be updated for GNOME 44, see
> https://issues.guix.gnu.org/68574 for a candidate patch.
More accurately, it is already outdated for GNOME 42(?) and the
supplied patch also works for GNOME 44.

> I still have no solution for Jiggle and Transparent Window. For the
> former, I was reminded that there is a standard option to make your
> pointer more visible if you press the control key, but I am not sure
> this is desirable as a Jiggle replacement.
Let's keep this open for review then.

> Now sound-output-device-chooser has a greatly decreased utility,
> since you can choose the output device directly from the shell.

Cheers

[bug#68556] [PATCH gnome-team v4 0/8] Update the gnome-shell extensions and wrap more

[Vivien Kraus via Guix-patches via]

Dear guix,

I wrapped the built-in gnome-shell extensions. One commit only wraps to avoid
propagating gnome-menus, and the next commit wraps all the extensions.

I also updated the wording in noannoyance.

We are still looking for solutions wrt Jiggle, Transparent window, and to a
lesser extent, sound output device chooser.

Best regards,

Vivien

Vivien Kraus (8):
  gnu: gnome-menus: Build GObject Introspection data.
  gnu: gnome-shell-extensions: Wrap apps-menu.
  gnu: gnome-shell-extensions: Wrap all the extensions.
  gnu: gnome-shell-extension-noannoyance: Switch to fork.
  gnu: gnome-shell-extension-topicons-redux: Deprecate.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.

 gnu/packages/gnome-xyz.scm | 171 ++++---------------------------------
 gnu/packages/gnome.scm     |  52 ++++++++++-
 2 files changed, 66 insertions(+), 157 deletions(-)


base-commit: 49897f2dde7f469c83c496fad2699d3a05f72701
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 6/8] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index c78525673f..d4209bc347 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1109,48 +1109,6 @@ (define-public gnome-shell-extension-vertical-overview
   (deprecated-package "gnome-shell-extension-vertical-overview"
                       gnome-shell-extension-v-shell))
 
-(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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 4/8] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.  The version number is computed in continuity with
NoAnnoyance v2.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.  Bump version to 17 and revision to 6.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b6c1f6d3cb..2a5df81ca8 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -952,26 +952,33 @@ (define-public gnome-shell-extension-dash-to-panel
     (license license:gpl2+)))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+  ;; There are different forks of the NoAnnoyance extension. This is the one
+  ;; named “NoAnnoyance (fork)” at
+  ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/ because it
+  ;; supports newer GNOME Shell versions than the previously used “NoAnnoyance
+  ;; v2”.
+  (let ((commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e")
+        ;; “NoAnnoyance v2” version 17 correlates with
+        ;; c6804a47063659f9f48d13a0942b78ce98aac72b, from which we count
+        ;; commits.
+        (revision "6"))
     (package
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
+      (version (git-version "17" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 8/8] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 085cde7738..716ce92348 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1220,38 +1220,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
 
 (define-public gnome-shell-extension-vitals
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 5/8] gnu: gnome-shell-extension-topicons-redux: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The appindicator extension
exhibits a similar feature.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Deprecate
in favor of gnome-shell-extension-appindicator.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 41 ++------------------------------------
 1 file changed, 2 insertions(+), 39 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2a5df81ca8..c78525673f 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -683,45 +683,8 @@ (define-public gnome-shell-extension-customize-ibus
     (license license:gpl3+)))
 
 (define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
+  (deprecated-package "gnome-shell-extension-topicons-redux"
+                      gnome-shell-extension-appindicator))
 
 (define-public gnome-shell-extension-dash-to-dock
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 7/8] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d4209bc347..085cde7738 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1253,37 +1253,6 @@ (define-public gnome-shell-extension-sound-output-device-chooser
 Speakers etc. of the same device are also displayed for selection.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 2/8] gnu: gnome-shell-extensions: Wrap apps-menu.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phases]: Add
'wrap-applications-menu.
[inputs]: Add gobject-introspection and gnome-menus.

Change-Id: I58b79ca92fbceebb9bbb150102fa428022e3eb63
---
 gnu/packages/gnome.scm | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 1e08e027c3..b449ed55db 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10725,11 +10725,35 @@ (define-public gnome-shell-extensions
                 "1aq1n75m1svsv0ppg66n9qch26rhjxcv3q33a3skf7hsydr5wd4c"))))
     (build-system meson-build-system)
     (arguments
-     '(#:configure-flags '("-Dextension_set=all")))
+     (list
+      #:configure-flags #~'("-Dextension_set=all")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'wrap-applications-menu
+            (lambda _
+              (use-modules (ice-9 textual-ports))
+              (call-with-output-file "extensions/apps-menu/extension.js-wrapped"
+                (lambda (out)
+                  (format out "'~a'.split(':').forEach("
+                          (getenv "GI_TYPELIB_PATH"))
+                  (display
+                   (string-append "path => imports.gi.GIRepository.Repository"
+                                  ".prepend_search_path(path));\n")
+                   out)
+                  (display
+                   (call-with-input-file "extensions/apps-menu/extension.js"
+                     get-string-all)
+                   out)))
+              (rename-file "extensions/apps-menu/extension.js-wrapped"
+                           "extensions/apps-menu/extension.js"))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
            pkg-config))
+    (inputs
+     (list gobject-introspection ;to set GI_TYPELIB_PATH
+           gnome-menus ;for Applications Menu
+           ))
     (propagated-inputs
      (list glib))
     (synopsis "Extensions for GNOME Shell")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 1/8] gnu: gnome-menus: Build GObject Introspection data.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-menus) [native-inputs]: Add gobject-introspection.

Change-Id: I8cf485955dbad29cec781af9b5fada4c5bcb1ba6
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 3d89f06d6a..1e08e027c3 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1812,8 +1812,19 @@ (define-public gnome-menus
                (base32
                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-introspection-install-dir
+            (lambda _
+              (substitute* "libmenu/Makefile.in"
+                (("@INTROSPECTION_GIRDIR@")
+                 (string-append #$output "/share/gir-1.0/"))
+                (("@INTROSPECTION_TYPELIBDIR@")
+                 (string-append #$output "/lib/girepository-1.0/"))))))))
     (native-inputs
-     (list gettext-minimal glib pkg-config))
+     (list gettext-minimal glib gobject-introspection pkg-config))
     (synopsis "Menu support for GNOME desktop")
     (description "GNOME Menus contains the libgnome-menu library, the layout
 configuration files for the GNOME menu, as well as a simple menu editor.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v4 3/8] gnu: gnome-shell-extensions: Wrap all the extensions.

[Vivien Kraus via Guix-patches via]

The top-level modules that are wrapped are the /extension.js and /prefs.js of
every extension sub-directory.

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phase
'wrap-applications-menu]: Rename to 'wrap-extensions. Wrap every top-level
module.
[inputs]: Add glib.
[propagated-imputs]: Remove glib.

Change-Id: I88634970321aa8847857e45b369b4ba285caa87d
---
 gnu/packages/gnome.scm | 43 +++++++++++++++++++++++++-----------------
 1 file changed, 26 insertions(+), 17 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index b449ed55db..0f9b2d89c6 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10729,33 +10729,42 @@ (define-public gnome-shell-extensions
       #:configure-flags #~'("-Dextension_set=all")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'wrap-applications-menu
+          (add-after 'unpack 'wrap-extensions
             (lambda _
               (use-modules (ice-9 textual-ports))
-              (call-with-output-file "extensions/apps-menu/extension.js-wrapped"
-                (lambda (out)
-                  (format out "'~a'.split(':').forEach("
-                          (getenv "GI_TYPELIB_PATH"))
-                  (display
-                   (string-append "path => imports.gi.GIRepository.Repository"
-                                  ".prepend_search_path(path));\n")
-                   out)
-                  (display
-                   (call-with-input-file "extensions/apps-menu/extension.js"
-                     get-string-all)
-                   out)))
-              (rename-file "extensions/apps-menu/extension.js-wrapped"
-                           "extensions/apps-menu/extension.js"))))))
+              (let list-extensions ((dir (opendir "extensions")))
+                (let ((extension (readdir dir)))
+                  (unless (eof-object? extension)
+                    (for-each
+                     (lambda (file-to-wrap)
+                       (when (file-exists? file-to-wrap)
+                         (call-with-output-file
+                             (string-append file-to-wrap "-wrapped")
+                           (lambda (out)
+                             (format out "'~a'.split(':').forEach("
+                                     (getenv "GI_TYPELIB_PATH"))
+                             (display
+                              (string-append "path => imports.gi.GIRepository.Repository"
+                                             ".prepend_search_path(path));\n")
+                              out)
+                             (display
+                              (call-with-input-file file-to-wrap
+                                get-string-all)
+                              out)))
+                         (rename-file (string-append file-to-wrap "-wrapped")
+                                      file-to-wrap)))
+                     (list (string-append "extensions/" extension "/extension.js")
+                           (string-append "extensions/" extension "/prefs.js")))
+                    (list-extensions dir)))))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
            pkg-config))
     (inputs
      (list gobject-introspection ;to set GI_TYPELIB_PATH
+           glib
            gnome-menus ;for Applications Menu
            ))
-    (propagated-inputs
-     (list glib))
     (synopsis "Extensions for GNOME Shell")
     (description "GNOME Shell extensions modify and extend GNOME Shell
 functionality and behavior.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 0/8] Wrap gnome-shell-extensions with gobject-introspection in native-inputs

[Vivien Kraus via Guix-patches via]

Dear guix,

I think I made a mistake. gobject-introspection should probably be in
native-inputs. We only use this package so that GI_TYPELIB_PATH is set up at
build time. Gjs probably has all the girepository infrastructure it needs
already.

What do you think?

Best regards,

Vivien

Vivien Kraus (8):
  gnu: gnome-menus: Build GObject Introspection data.
  gnu: gnome-shell-extensions: Wrap apps-menu.
  gnu: gnome-shell-extensions: Wrap all the extensions.
  gnu: gnome-shell-extension-noannoyance: Switch to fork.
  gnu: gnome-shell-extension-topicons-redux: Deprecate.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.

 gnu/packages/gnome-xyz.scm | 171 ++++---------------------------------
 gnu/packages/gnome.scm     |  51 ++++++++++-
 2 files changed, 65 insertions(+), 157 deletions(-)


base-commit: 2e7d78b1f02a8eae82c34e5183134c9d1a0d02b3
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 6/8] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index c78525673f..d4209bc347 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1109,48 +1109,6 @@ (define-public gnome-shell-extension-vertical-overview
   (deprecated-package "gnome-shell-extension-vertical-overview"
                       gnome-shell-extension-v-shell))
 
-(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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 4/8] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.  The version number is computed in continuity with
NoAnnoyance v2.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.  Bump version to 17 and revision to 6.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index b6c1f6d3cb..2a5df81ca8 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -952,26 +952,33 @@ (define-public gnome-shell-extension-dash-to-panel
     (license license:gpl2+)))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+  ;; There are different forks of the NoAnnoyance extension. This is the one
+  ;; named “NoAnnoyance (fork)” at
+  ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/ because it
+  ;; supports newer GNOME Shell versions than the previously used “NoAnnoyance
+  ;; v2”.
+  (let ((commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e")
+        ;; “NoAnnoyance v2” version 17 correlates with
+        ;; c6804a47063659f9f48d13a0942b78ce98aac72b, from which we count
+        ;; commits.
+        (revision "6"))
     (package
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
+      (version (git-version "17" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 8/8] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 085cde7738..716ce92348 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1220,38 +1220,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
 
 (define-public gnome-shell-extension-vitals
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 5/8] gnu: gnome-shell-extension-topicons-redux: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The appindicator extension
exhibits a similar feature.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Deprecate
in favor of gnome-shell-extension-appindicator.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 41 ++------------------------------------
 1 file changed, 2 insertions(+), 39 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 2a5df81ca8..c78525673f 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -683,45 +683,8 @@ (define-public gnome-shell-extension-customize-ibus
     (license license:gpl3+)))
 
 (define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
+  (deprecated-package "gnome-shell-extension-topicons-redux"
+                      gnome-shell-extension-appindicator))
 
 (define-public gnome-shell-extension-dash-to-dock
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 7/8] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d4209bc347..085cde7738 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1253,37 +1253,6 @@ (define-public gnome-shell-extension-sound-output-device-chooser
 Speakers etc. of the same device are also displayed for selection.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 2/8] gnu: gnome-shell-extensions: Wrap apps-menu.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phases]: Add
'wrap-applications-menu.
[native-inputs]: Add gobject-introspection.
[inputs]: Add gnome-menus.

Change-Id: I58b79ca92fbceebb9bbb150102fa428022e3eb63
---
 gnu/packages/gnome.scm | 25 ++++++++++++++++++++++++-
 1 file changed, 24 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 1e08e027c3..04fc0500cd 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10725,11 +10725,34 @@ (define-public gnome-shell-extensions
                 "1aq1n75m1svsv0ppg66n9qch26rhjxcv3q33a3skf7hsydr5wd4c"))))
     (build-system meson-build-system)
     (arguments
-     '(#:configure-flags '("-Dextension_set=all")))
+     (list
+      #:configure-flags #~'("-Dextension_set=all")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'wrap-applications-menu
+            (lambda _
+              (use-modules (ice-9 textual-ports))
+              (call-with-output-file "extensions/apps-menu/extension.js-wrapped"
+                (lambda (out)
+                  (format out "'~a'.split(':').forEach("
+                          (getenv "GI_TYPELIB_PATH"))
+                  (display
+                   (string-append "path => imports.gi.GIRepository.Repository"
+                                  ".prepend_search_path(path));\n")
+                   out)
+                  (display
+                   (call-with-input-file "extensions/apps-menu/extension.js"
+                     get-string-all)
+                   out)))
+              (rename-file "extensions/apps-menu/extension.js-wrapped"
+                           "extensions/apps-menu/extension.js"))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
+           gobject-introspection ;to set GI_TYPELIB_PATH
            pkg-config))
+    (inputs
+     (list gnome-menus)) ;for Applications Menu
     (propagated-inputs
      (list glib))
     (synopsis "Extensions for GNOME Shell")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 1/8] gnu: gnome-menus: Build GObject Introspection data.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-menus) [native-inputs]: Add gobject-introspection.

Change-Id: I8cf485955dbad29cec781af9b5fada4c5bcb1ba6
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 3d89f06d6a..1e08e027c3 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1812,8 +1812,19 @@ (define-public gnome-menus
                (base32
                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-introspection-install-dir
+            (lambda _
+              (substitute* "libmenu/Makefile.in"
+                (("@INTROSPECTION_GIRDIR@")
+                 (string-append #$output "/share/gir-1.0/"))
+                (("@INTROSPECTION_TYPELIBDIR@")
+                 (string-append #$output "/lib/girepository-1.0/"))))))))
     (native-inputs
-     (list gettext-minimal glib pkg-config))
+     (list gettext-minimal glib gobject-introspection pkg-config))
     (synopsis "Menu support for GNOME desktop")
     (description "GNOME Menus contains the libgnome-menu library, the layout
 configuration files for the GNOME menu, as well as a simple menu editor.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 3/8] gnu: gnome-shell-extensions: Wrap all the extensions.

[Vivien Kraus via Guix-patches via]

The top-level modules that are wrapped are the /extension.js and /prefs.js of
every extension sub-directory.

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phase
'wrap-applications-menu]: Rename to 'wrap-extensions. Wrap every top-level
module.
[inputs]: Add glib.
[propagated-imputs]: Remove glib.

Change-Id: I88634970321aa8847857e45b369b4ba285caa87d
---
 gnu/packages/gnome.scm | 45 +++++++++++++++++++++++++-----------------
 1 file changed, 27 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 04fc0500cd..8bc0491230 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10729,32 +10729,41 @@ (define-public gnome-shell-extensions
       #:configure-flags #~'("-Dextension_set=all")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'wrap-applications-menu
+          (add-after 'unpack 'wrap-extensions
             (lambda _
               (use-modules (ice-9 textual-ports))
-              (call-with-output-file "extensions/apps-menu/extension.js-wrapped"
-                (lambda (out)
-                  (format out "'~a'.split(':').forEach("
-                          (getenv "GI_TYPELIB_PATH"))
-                  (display
-                   (string-append "path => imports.gi.GIRepository.Repository"
-                                  ".prepend_search_path(path));\n")
-                   out)
-                  (display
-                   (call-with-input-file "extensions/apps-menu/extension.js"
-                     get-string-all)
-                   out)))
-              (rename-file "extensions/apps-menu/extension.js-wrapped"
-                           "extensions/apps-menu/extension.js"))))))
+              (let list-extensions ((dir (opendir "extensions")))
+                (let ((extension (readdir dir)))
+                  (unless (eof-object? extension)
+                    (for-each
+                     (lambda (file-to-wrap)
+                       (when (file-exists? file-to-wrap)
+                         (call-with-output-file
+                             (string-append file-to-wrap "-wrapped")
+                           (lambda (out)
+                             (format out "'~a'.split(':').forEach("
+                                     (getenv "GI_TYPELIB_PATH"))
+                             (display
+                              (string-append "path => imports.gi.GIRepository.Repository"
+                                             ".prepend_search_path(path));\n")
+                              out)
+                             (display
+                              (call-with-input-file file-to-wrap
+                                get-string-all)
+                              out)))
+                         (rename-file (string-append file-to-wrap "-wrapped")
+                                      file-to-wrap)))
+                     (list (string-append "extensions/" extension "/extension.js")
+                           (string-append "extensions/" extension "/prefs.js")))
+                    (list-extensions dir)))))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
            gobject-introspection ;to set GI_TYPELIB_PATH
            pkg-config))
     (inputs
-     (list gnome-menus)) ;for Applications Menu
-    (propagated-inputs
-     (list glib))
+     (list glib
+           gnome-menus)) ;for Applications Menu
     (synopsis "Extensions for GNOME Shell")
     (description "GNOME Shell extensions modify and extend GNOME Shell
 functionality and behavior.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v5 3/8] gnu: gnome-shell-extensions: Wrap all the extensions.

[Liliana Marie Prikler]

Am Samstag, dem 20.01.2024 um 11:38 +0100 schrieb Vivien Kraus:
> The top-level modules that are wrapped are the /extension.js and
> /prefs.js of every extension sub-directory.
> 
> * gnu/packages/gnome.scm (gnome-shell-extensions) [#:phase
> 'wrap-applications-menu]: Rename to 'wrap-extensions. Wrap every top-
> level module.
> [inputs]: Add glib.
> [propagated-imputs]: Remove glib.
> 
> Change-Id: I88634970321aa8847857e45b369b4ba285caa87d
> ---
IMHO you should squash this and 2/8 into one patch.

>  gnu/packages/gnome.scm | 45 +++++++++++++++++++++++++---------------
> --
>  1 file changed, 27 insertions(+), 18 deletions(-)
> 
> diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
> index 04fc0500cd..8bc0491230 100644
> --- a/gnu/packages/gnome.scm
> +++ b/gnu/packages/gnome.scm
> @@ -10729,32 +10729,41 @@ (define-public gnome-shell-extensions
>        #:configure-flags #~'("-Dextension_set=all")
>        #:phases
>        #~(modify-phases %standard-phases
> -          (add-after 'unpack 'wrap-applications-menu
> +          (add-after 'unpack 'wrap-extensions
>              (lambda _
>                (use-modules (ice-9 textual-ports))
> -              (call-with-output-file "extensions/apps-
> menu/extension.js-wrapped"
> -                (lambda (out)
> -                  (format out "'~a'.split(':').forEach("
> -                          (getenv "GI_TYPELIB_PATH"))
> -                  (display
> -                   (string-append "path =>
> imports.gi.GIRepository.Repository"
> -                                  ".prepend_search_path(path));\n")
> -                   out)
> -                  (display
> -                   (call-with-input-file "extensions/apps-
> menu/extension.js"
> -                     get-string-all)
> -                   out)))
> -              (rename-file "extensions/apps-menu/extension.js-
> wrapped"
> -                           "extensions/apps-menu/extension.js"))))))
> +              (let list-extensions ((dir (opendir "extensions")))
> +                (let ((extension (readdir dir)))
> +                  (unless (eof-object? extension)
> +                    (for-each
> +                     (lambda (file-to-wrap)
> +                       (when (file-exists? file-to-wrap)
> +                         (call-with-output-file
> +                             (string-append file-to-wrap "-wrapped")
> +                           (lambda (out)
> +                             (format out "'~a'.split(':').forEach("
> +                                     (getenv "GI_TYPELIB_PATH"))
> +                             (display
> +                              (string-append "path =>
> imports.gi.GIRepository.Repository"
> +                                            
> ".prepend_search_path(path));\n")
> +                              out)
> +                             (display
> +                              (call-with-input-file file-to-wrap
> +                                get-string-all)
> +                              out)))
> +                         (rename-file (string-append file-to-wrap "-
> wrapped")
> +                                      file-to-wrap)))
> +                     (list (string-append "extensions/" extension
> "/extension.js")
> +                           (string-append "extensions/" extension
> "/prefs.js")))
> +                    (list-extensions dir)))))))))
You can use with-atomic-file-replacement to accomplish the same.  Also
try (find-files "extensions" "(extension|prefs)\\.js") 
>      (native-inputs
>       (list `(,glib "bin")
>             gettext-minimal
>             gobject-introspection ;to set GI_TYPELIB_PATH
>             pkg-config))
>      (inputs
> -     (list gnome-menus)) ;for Applications Menu
> -    (propagated-inputs
> -     (list glib))
> +     (list glib
> +           gnome-menus)) ;for Applications Menu
Do you use Emacs?  If so, use M-; to pad inline comments to a suitable
length.
If not, it ought to be
           gobject-introspection        ; to set GI_TYPELIB_PATH
I personally prefer a space after the semicolon, but I've also seen
people prefer the opposite.
>      (synopsis "Extensions for GNOME Shell")
>      (description "GNOME Shell extensions modify and extend GNOME
> Shell
>  functionality and behavior.")
Cheers

[bug#68556] [PATCH gnome-team v5 0/8] Wrap gnome-shell-extensions with gobject-introspection in native-inputs

[Liliana Marie Prikler]

Am Montag, dem 29.01.2024 um 20:56 +0100 schrieb Vivien Kraus:
> Dear guix,
> 
> I think I made a mistake. gobject-introspection should probably be in
> native-inputs.  We only use this package so that GI_TYPELIB_PATH is
> set up at build time.  Gjs probably has all the girepository
> infrastructure it needs already.
> 
> What do you think?
Note: if you set GI_TYPELIB_PATH at build time, you could get
confusions between build/host libs.  It's unlikely, but you might want
to make sure that your paths are sound.

Anyhow, this series mostly LGTM on first glance.  Does this issue also
affect the extensions already pushed?


Cheers

[bug#68556] [PATCH gnome-team v5 0/8] Wrap gnome-shell-extensions with gobject-introspection in native-inputs

[Vivien Kraus via Guix-patches via]

Le lundi 29 janvier 2024 à 21:53 +0100, Liliana Marie Prikler a écrit :
> Am Montag, dem 29.01.2024 um 20:56 +0100 schrieb Vivien Kraus:
> > Dear guix,
> > 
> > I think I made a mistake. gobject-introspection should probably be
> > in native-inputs.  We only use this package so that GI_TYPELIB_PATH
> > is set up at build time.  Gjs probably has all the girepository
> > infrastructure it needs already.
> > 
> > What do you think?
> Note: if you set GI_TYPELIB_PATH at build time, you could get
> confusions between build/host libs.  It's unlikely, but you might
> want
> to make sure that your paths are sound.
Is there a solution for this? As far as I understand, GI_TYPELIB_PATH
at build time has a mix of native inputs and inputs + propagated
inputs, and we only want the latter. If I understand correctly, we
can’t use search-input-directory because it would be from only 1
package.

> Does this issue also affect the extensions already pushed?
Other shell extension wrap their code for GI_TYPELIB_PATH, by getting
the environment variable value at build time.

Vivien

[bug#68556] [PATCH gnome-team v6 0/7] Wrap the extensions with (guix build utils) tools

[Vivien Kraus via Guix-patches via]

Dear Guix,

Now all the extensions are wrapped with a couple of clever functions from
'(guix build utils) that I discovered today.

Best regards,

Vivien

Vivien Kraus (7):
  gnu: gnome-menus: Build GObject Introspection data.
  gnu: gnome-shell-extensions: Wrap the extensions.
  gnu: gnome-shell-extension-noannoyance: Switch to fork.
  gnu: gnome-shell-extension-topicons-redux: Deprecate.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.

 gnu/packages/gnome-xyz.scm | 171 ++++---------------------------------
 gnu/packages/gnome.scm     |  45 +++++++++-
 2 files changed, 59 insertions(+), 157 deletions(-)


base-commit: e6c847defb6cb25c65172dec46a322e5d3d45088
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 5/7] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d369e92c23..7a672c507b 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1109,48 +1109,6 @@ (define-public gnome-shell-extension-vertical-overview
   (deprecated-package "gnome-shell-extension-vertical-overview"
                       gnome-shell-extension-v-shell))
 
-(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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.  The version number is computed in continuity with
NoAnnoyance v2.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.  Bump version to 17 and revision to 6.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index da674e4856..d6bf3f6227 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -952,26 +952,33 @@ (define-public gnome-shell-extension-dash-to-panel
     (license license:gpl2+)))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+  ;; There are different forks of the NoAnnoyance extension. This is the one
+  ;; named “NoAnnoyance (fork)” at
+  ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/ because it
+  ;; supports newer GNOME Shell versions than the previously used “NoAnnoyance
+  ;; v2”.
+  (let ((commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e")
+        ;; “NoAnnoyance v2” version 17 correlates with
+        ;; c6804a47063659f9f48d13a0942b78ce98aac72b, from which we count
+        ;; commits.
+        (revision "6"))
     (package
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
+      (version (git-version "17" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 7/7] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7aa4275ceb..72f1ffe5ab 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1220,38 +1220,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
 
 (define-public gnome-shell-extension-vitals
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 4/7] gnu: gnome-shell-extension-topicons-redux: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The appindicator extension
exhibits a similar feature.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Deprecate
in favor of gnome-shell-extension-appindicator.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 41 ++------------------------------------
 1 file changed, 2 insertions(+), 39 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d6bf3f6227..d369e92c23 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -683,45 +683,8 @@ (define-public gnome-shell-extension-customize-ibus
     (license license:gpl3+)))
 
 (define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
+  (deprecated-package "gnome-shell-extension-topicons-redux"
+                      gnome-shell-extension-appindicator))
 
 (define-public gnome-shell-extension-dash-to-dock
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 6/7] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7a672c507b..7aa4275ceb 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1253,37 +1253,6 @@ (define-public gnome-shell-extension-sound-output-device-chooser
 Speakers etc. of the same device are also displayed for selection.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 2/7] gnu: gnome-shell-extensions: Wrap the extensions.

[Vivien Kraus via Guix-patches via]

The top-level modules that are wrapped are the /extension.js and /prefs.js of
every extension sub-directory. The GI_TYPELIB_PATH used contains glib for
every extension, and gnome-menus for Applications Menu.

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phases]: Add
'wrap-extensions.
[native-inputs]: Add gobject-introspection.
[inputs]: Add gnome-menus and glib.
[propagated-imputs]: Remove glib.

Change-Id: I58b79ca92fbceebb9bbb150102fa428022e3eb63
---
 gnu/packages/gnome.scm | 32 +++++++++++++++++++++++++++++---
 1 file changed, 29 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 6919576eae..b92cea6b17 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10726,13 +10726,39 @@ (define-public gnome-shell-extensions
                 "1aq1n75m1svsv0ppg66n9qch26rhjxcv3q33a3skf7hsydr5wd4c"))))
     (build-system meson-build-system)
     (arguments
-     '(#:configure-flags '("-Dextension_set=all")))
+     (list
+      #:configure-flags #~'("-Dextension_set=all")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'wrap-extensions
+            (lambda _
+              (use-modules (ice-9 textual-ports)
+                           (guix build utils))
+              (for-each
+               (lambda (file-to-wrap)
+                 (with-atomic-file-replacement file-to-wrap
+                   (lambda (source wrapped)
+                     (format wrapped "'~a'.split(':').forEach("
+                             (getenv "GI_TYPELIB_PATH"))
+                     (display
+                      (string-append "path => imports.gi.GIRepository.Repository"
+                                     ".prepend_search_path(path));\n")
+                      wrapped)
+                     (let ((input-size
+                            (begin
+                              (seek source 0 SEEK_END)
+                              (ftell source))))
+                       (seek source 0 SEEK_SET)
+                       (sendfile wrapped source input-size)))))
+               (find-files "extensions" "(extension|prefs)\\.js")))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
+           gobject-introspection        ; to set GI_TYPELIB_PATH
            pkg-config))
-    (propagated-inputs
-     (list glib))
+    (inputs
+     (list glib
+           gnome-menus))                ; for Applications Menu
     (synopsis "Extensions for GNOME Shell")
     (description "GNOME Shell extensions modify and extend GNOME Shell
 functionality and behavior.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v6 2/7] gnu: gnome-shell-extensions: Wrap the extensions.

[Liliana Marie Prikler]

Am Freitag, dem 19.01.2024 um 23:36 +0100 schrieb Vivien Kraus:
> The top-level modules that are wrapped are the /extension.js and
> /prefs.js of
> every extension sub-directory. The GI_TYPELIB_PATH used contains glib
> for
> every extension, and gnome-menus for Applications Menu.
> 
> * gnu/packages/gnome.scm (gnome-shell-extensions) [#:phases]: Add
> 'wrap-extensions.
> [native-inputs]: Add gobject-introspection.
> [inputs]: Add gnome-menus and glib.
> [propagated-imputs]: Remove glib.
> 
> Change-Id: I58b79ca92fbceebb9bbb150102fa428022e3eb63
> ---
>  gnu/packages/gnome.scm | 32 +++++++++++++++++++++++++++++---
>  1 file changed, 29 insertions(+), 3 deletions(-)
> 
> diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
> index 6919576eae..b92cea6b17 100644
> --- a/gnu/packages/gnome.scm
> +++ b/gnu/packages/gnome.scm
> @@ -10726,13 +10726,39 @@ (define-public gnome-shell-extensions
>                 
> "1aq1n75m1svsv0ppg66n9qch26rhjxcv3q33a3skf7hsydr5wd4c"))))
>      (build-system meson-build-system)
>      (arguments
> -     '(#:configure-flags '("-Dextension_set=all")))
> +     (list
> +      #:configure-flags #~'("-Dextension_set=all")
> +      #:phases
> +      #~(modify-phases %standard-phases
> +          (add-after 'unpack 'wrap-extensions
> +            (lambda _
> +              (use-modules (ice-9 textual-ports)
> +                           (guix build utils))
> +              (for-each
> +               (lambda (file-to-wrap)
> +                 (with-atomic-file-replacement file-to-wrap
> +                   (lambda (source wrapped)
> +                     (format wrapped "'~a'.split(':').forEach("
> +                             (getenv "GI_TYPELIB_PATH"))
> +                     (display
> +                      (string-append "path =>
> imports.gi.GIRepository.Repository"
> +                                    
> ".prepend_search_path(path));\n")
> +                      wrapped)
> +                     (let ((input-size
> +                            (begin
> +                              (seek source 0 SEEK_END)
> +                              (ftell source))))
> +                       (seek source 0 SEEK_SET)
> +                       (sendfile wrapped source input-size)))))
Why send-file instead of dump-port?
> +               (find-files "extensions"
> "(extension|prefs)\\.js")))))))
>      (native-inputs
>       (list `(,glib "bin")
>             gettext-minimal
> +           gobject-introspection        ; to set GI_TYPELIB_PATH
>             pkg-config))
> -    (propagated-inputs
> -     (list glib))
> +    (inputs
> +     (list glib
> +           gnome-menus))                ; for Applications Menu
>      (synopsis "Extensions for GNOME Shell")
>      (description "GNOME Shell extensions modify and extend GNOME
> Shell
>  functionality and behavior.")
Cheers

[bug#68556] [PATCH gnome-team v6 1/7] gnu: gnome-menus: Build GObject Introspection data.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-menus) [native-inputs]: Add gobject-introspection.

Change-Id: I8cf485955dbad29cec781af9b5fada4c5bcb1ba6
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 526833eaf5..6919576eae 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1812,8 +1812,19 @@ (define-public gnome-menus
                (base32
                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-introspection-install-dir
+            (lambda _
+              (substitute* "libmenu/Makefile.in"
+                (("@INTROSPECTION_GIRDIR@")
+                 (string-append #$output "/share/gir-1.0/"))
+                (("@INTROSPECTION_TYPELIBDIR@")
+                 (string-append #$output "/lib/girepository-1.0/"))))))))
     (native-inputs
-     (list gettext-minimal glib pkg-config))
+     (list gettext-minimal glib gobject-introspection pkg-config))
     (synopsis "Menu support for GNOME desktop")
     (description "GNOME Menus contains the libgnome-menu library, the layout
 configuration files for the GNOME menu, as well as a simple menu editor.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 0/7] Wrap all the extensions at once with dump-port

[Vivien Kraus via Guix-patches via]

Dear guix,

In this revision, I use the guix “dump-port” function instead of the
guile/libc “sendfile”, as suggested. The result is byte-identical.

Best regards,

Vivien

Vivien Kraus (7):
  gnu: gnome-menus: Build GObject Introspection data.
  gnu: gnome-shell-extensions: Wrap the extensions.
  gnu: gnome-shell-extension-noannoyance: Switch to fork.
  gnu: gnome-shell-extension-topicons-redux: Deprecate.
  gnu: Remove gnome-shell-extension-jiggle.
  gnu: Remove gnome-shell-extension-transparent-window.
  gnu: Remove gnome-shell-extension-sound-output-device-chooser.

 gnu/packages/gnome-xyz.scm | 171 ++++---------------------------------
 gnu/packages/gnome.scm     |  40 ++++++++-
 2 files changed, 54 insertions(+), 157 deletions(-)


base-commit: 4947b773535db94521b92f6ce2244da384743d54
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 5/7] gnu: Remove gnome-shell-extension-jiggle.

[Vivien Kraus via Guix-patches via]

This extension has not been made compatible with GNOME 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-jiggle): Remove variable.

Change-Id: I9afa9c2fe110ba883524eb9ca9acab42fbdd8f00
---
 gnu/packages/gnome-xyz.scm | 42 --------------------------------------
 1 file changed, 42 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d369e92c23..7a672c507b 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1109,48 +1109,6 @@ (define-public gnome-shell-extension-vertical-overview
   (deprecated-package "gnome-shell-extension-vertical-overview"
                       gnome-shell-extension-v-shell))
 
-(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"))
-       (file-name (git-file-name name version))
-       (snippet
-        '(begin (delete-file "schemas/gschemas.compiled")))))
-    (build-system copy-build-system)
-    (arguments
-     `(#:install-plan
-       '(("." ,(string-append
-                "share/gnome-shell/extensions/"
-                "jiggle@jeffchannell.com")
-          #: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" ".")))))))
-    (native-inputs
-     (list `(,glib "bin")))  ; for glib-compile-resources
-    (home-page "https://github.com/jeffchannell/jiggle")
-    (synopsis "Mouse cursor enlargement for 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 gnome-shell-extension-burn-my-windows
   (package
     (name "gnome-shell-extension-burn-my-windows")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 3/7] gnu: gnome-shell-extension-noannoyance: Switch to fork.

[Vivien Kraus via Guix-patches via]

The NoAnnoyance “v2” project has not been ported to GNOME 44, so we switch to
a maintained fork.  The version number is computed in continuity with
NoAnnoyance v2.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-noannoyance): Switch to
the fork.  Bump version to 17 and revision to 6.
[arguments]: Convert to list of G-Expressions.

Change-Id: Ic74d832020dfe3857e1abf450f5d7876cc921a28
---
 gnu/packages/gnome-xyz.scm | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index da674e4856..d6bf3f6227 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -952,26 +952,33 @@ (define-public gnome-shell-extension-dash-to-panel
     (license license:gpl2+)))
 
 (define-public gnome-shell-extension-noannoyance
-  (let ((revision "1")
-        (commit "b759d10fd2799bc084007fdd927b62637c3dbd2c"))
+  ;; There are different forks of the NoAnnoyance extension. This is the one
+  ;; named “NoAnnoyance (fork)” at
+  ;; https://extensions.gnome.org/extension/6109/noannoyance-fork/ because it
+  ;; supports newer GNOME Shell versions than the previously used “NoAnnoyance
+  ;; v2”.
+  (let ((commit "5e9e6a1878d2a1d961f5d59505f15339c5b7e17e")
+        ;; “NoAnnoyance v2” version 17 correlates with
+        ;; c6804a47063659f9f48d13a0942b78ce98aac72b, from which we count
+        ;; commits.
+        (revision "6"))
     (package
       (name "gnome-shell-extension-noannoyance")
-      ;; XXX: There is no version noted anywhere in the source.  Thus, infer it
-      ;;      from <https://extensions.gnome.org/extension/2182/noannoyance/>.
-      (version (git-version "16" revision commit))
+      (version (git-version "17" revision commit))
       (source (origin
                 (method git-fetch)
                 (uri (git-reference
-                      (url "https://github.com/bdaase/noannoyance")
+                      (url "https://github.com/jirkavrba/noannoyance")
                       (commit commit)))
                 (sha256
                  (base32
-                  "0hh7fdqvx54h9j41ia2jl0nq1d5i66k7blw41ya6hkh7201r4anp"))
+                  "0br9zrwvn499kh3db84hhw1kl02jpchwb5ldfp892p15vwih8yrf"))
                 (file-name (git-file-name name version))))
       (build-system copy-build-system)
       (arguments
-       '(#:install-plan
-         '(("." "share/gnome-shell/extensions/noannoyance@daase.net"))))
+       (list
+        #:install-plan
+        #~'(("." "share/gnome-shell/extensions/noannoyance@vrba.dev"))))
       (synopsis "Remove 'Window is ready' annotation")
       (description "One of the many extensions that remove this message.
 It uses ES6 syntax and claims to be more actively maintained than others.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 7/7] gnu: Remove gnome-shell-extension-sound-output-device-chooser.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44, because you can switch the
audio output directly in the shell.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-sound-output-device-chooser):
Remove variable.

Change-Id: Iae51c7d284b85f630b5874445c6695b32b5d523e
---
 gnu/packages/gnome-xyz.scm | 32 --------------------------------
 1 file changed, 32 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7aa4275ceb..72f1ffe5ab 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1220,38 +1220,6 @@ (define-public gnome-shell-extension-radio
 directly inside GNOME Shell.  It can manage stations and play streams.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-sound-output-device-chooser
-  (package
-    (name "gnome-shell-extension-sound-output-device-chooser")
-    (version "43")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://github.com/kgshank/gse-sound-output-device-chooser")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32
-         "1qk6ypyqbv8zwwlky6cgk9hgp1zh32jmzw4wza200g4v94ifkwm9"))))
-    (build-system gnu-build-system)
-    (arguments
-     (list
-      #:tests? #f ; no check target
-      #:make-flags #~(list (string-append "INSTALL_DIR="
-                                          #$output
-                                          "/share/gnome-shell/extensions"))
-      #:phases
-      #~(modify-phases %standard-phases (delete 'configure))))
-    (native-inputs (list gettext-minimal `(,glib "bin")))
-    (inputs (list python))
-    (home-page
-     "https://extensions.gnome.org/extension/906/sound-output-device-chooser")
-    (synopsis "Sound output chooser for GNOME Shell")
-    (description "This extension shows a list of sound output and input devices
-in the status menu below the volume slider.  Various active ports like HDMI,
-Speakers etc. of the same device are also displayed for selection.")
-    (license license:gpl3+)))
 
 (define-public gnome-shell-extension-vitals
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 4/7] gnu: gnome-shell-extension-topicons-redux: Deprecate.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The appindicator extension
exhibits a similar feature.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-topicons-redux): Deprecate
in favor of gnome-shell-extension-appindicator.

Change-Id: I3152f0f0117db56ce89dad659cc779a1ba174378
---
 gnu/packages/gnome-xyz.scm | 41 ++------------------------------------
 1 file changed, 2 insertions(+), 39 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index d6bf3f6227..d369e92c23 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -683,45 +683,8 @@ (define-public gnome-shell-extension-customize-ibus
     (license license:gpl3+)))
 
 (define-public gnome-shell-extension-topicons-redux
-  (package
-    (name "gnome-shell-extension-topicons-redux")
-    (version "6")
-    (source
-     (origin
-       (method git-fetch)
-       (uri (git-reference
-             (url "https://gitlab.com/pop-planet/TopIcons-Redux.git")
-             (commit version)))
-       (file-name (git-file-name name version))
-       (sha256
-        (base32 "1dli9xb545n3xlj6q4wl0y5gzkm903zs47p8fiq71pdvbr6v38rj"))))
-    (build-system gnu-build-system)
-    (native-inputs
-     (list `(,glib "bin")))
-    (arguments
-     `(#:tests? #f                      ;no test defined in the project
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (delete 'build)
-         (replace 'install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out")))
-               (invoke "make"
-                       "install"
-                       (string-append
-                        "INSTALL_PATH="
-                        out
-                        "/share/gnome-shell/extensions"))))))))
-    (home-page "https://gitlab.com/pop-planet/TopIcons-Redux")
-    (synopsis "Display legacy tray icons in the GNOME Shell top panel")
-    (description "Many applications, such as chat clients, downloaders, and
-some media players, are meant to run long-term in the background even after you
-close their window.  These applications remain accessible by adding an icon to
-the GNOME Shell Legacy Tray.  However, the Legacy Tray was removed in GNOME
-3.26.  TopIcons Redux brings those icons back into the top panel so that it's
-easier to keep track of applications running in the background.")
-    (license license:gpl2+)))
+  (deprecated-package "gnome-shell-extension-topicons-redux"
+                      gnome-shell-extension-appindicator))
 
 (define-public gnome-shell-extension-dash-to-dock
   (package
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 6/7] gnu: Remove gnome-shell-extension-transparent-window.

[Vivien Kraus via Guix-patches via]

This extension has not been ported to GNOME 44. The master branch has
compatibility for 43 but not 44.

* gnu/packages/gnome-xyz.scm (gnome-shell-extension-transparent-window):
Remove variable.

Change-Id: If57da6bb16f53968f5f694392a69118b85b3823c
---
 gnu/packages/gnome-xyz.scm | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/gnu/packages/gnome-xyz.scm b/gnu/packages/gnome-xyz.scm
index 7a672c507b..7aa4275ceb 100644
--- a/gnu/packages/gnome-xyz.scm
+++ b/gnu/packages/gnome-xyz.scm
@@ -1253,37 +1253,6 @@ (define-public gnome-shell-extension-sound-output-device-chooser
 Speakers etc. of the same device are also displayed for selection.")
     (license license:gpl3+)))
 
-(define-public gnome-shell-extension-transparent-window
-  (let ((commit "cc9bc70c192dd565fa6f1d1b28d9a20f99684f2a")
-        (revision "45"))
-    (package
-      (name "gnome-shell-extension-transparent-window")
-      (version (git-version "0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url (string-append "https://github.com/pbxqdown/"
-                                   "gnome-shell-extension-transparent-window"))
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1f9iqqjpmmylqz0ws8cy5rs475bwzi7jy44q9ip44ig2acz2wxzp"))))
-      (build-system copy-build-system)
-      (arguments
-       (list
-        #:install-plan
-        #~'(("."
-             #$(string-append "/share/gnome-shell/extensions"
-                              "/transparent-window@pbxqdown.github.com")))))
-      (home-page
-       "https://github.com/pbxqdown/gnome-shell-extension-transparent-window")
-      (synopsis "Change the opacity of windows in GNOME Shell")
-      (description "This extension adds keybindings to change the opacity
-of windows.")
-      (license license:expat))))
-
 (define-public gnome-shell-extension-vitals
   (package
     (name "gnome-shell-extension-vitals")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 2/7] gnu: gnome-shell-extensions: Wrap the extensions.

[Vivien Kraus via Guix-patches via]

The top-level modules that are wrapped are the /extension.js and /prefs.js of
every extension sub-directory. The GI_TYPELIB_PATH used contains glib for
every extension, and gnome-menus for Applications Menu.

* gnu/packages/gnome.scm (gnome-shell-extensions) [#:phases]: Add
'wrap-extensions.
[native-inputs]: Add gobject-introspection.
[inputs]: Add gnome-menus and glib.
[propagated-imputs]: Remove glib.

Change-Id: I58b79ca92fbceebb9bbb150102fa428022e3eb63
---
 gnu/packages/gnome.scm | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 6919576eae..817d9c23cf 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -10726,13 +10726,34 @@ (define-public gnome-shell-extensions
                 "1aq1n75m1svsv0ppg66n9qch26rhjxcv3q33a3skf7hsydr5wd4c"))))
     (build-system meson-build-system)
     (arguments
-     '(#:configure-flags '("-Dextension_set=all")))
+     (list
+      #:configure-flags #~'("-Dextension_set=all")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'wrap-extensions
+            (lambda _
+              (use-modules (ice-9 textual-ports)
+                           (guix build utils))
+              (for-each
+               (lambda (file-to-wrap)
+                 (with-atomic-file-replacement file-to-wrap
+                   (lambda (source wrapped)
+                     (format wrapped "'~a'.split(':').forEach("
+                             (getenv "GI_TYPELIB_PATH"))
+                     (display
+                      (string-append "path => imports.gi.GIRepository.Repository"
+                                     ".prepend_search_path(path));\n")
+                      wrapped)
+                     (dump-port source wrapped))))
+               (find-files "extensions" "(extension|prefs)\\.js")))))))
     (native-inputs
      (list `(,glib "bin")
            gettext-minimal
+           gobject-introspection        ; to set GI_TYPELIB_PATH
            pkg-config))
-    (propagated-inputs
-     (list glib))
+    (inputs
+     (list glib
+           gnome-menus))                ; for Applications Menu
     (synopsis "Extensions for GNOME Shell")
     (description "GNOME Shell extensions modify and extend GNOME Shell
 functionality and behavior.")
-- 
2.41.0

[bug#68556] [PATCH gnome-team v7 1/7] gnu: gnome-menus: Build GObject Introspection data.

[Vivien Kraus via Guix-patches via]

* gnu/packages/gnome.scm (gnome-menus) [native-inputs]: Add gobject-introspection.

Change-Id: I8cf485955dbad29cec781af9b5fada4c5bcb1ba6
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 526833eaf5..6919576eae 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1812,8 +1812,19 @@ (define-public gnome-menus
                (base32
                 "07xvaf8s0fiv0035nk8zpzymn5www76w2a1vflrgqmp9plw8yd6r"))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-introspection-install-dir
+            (lambda _
+              (substitute* "libmenu/Makefile.in"
+                (("@INTROSPECTION_GIRDIR@")
+                 (string-append #$output "/share/gir-1.0/"))
+                (("@INTROSPECTION_TYPELIBDIR@")
+                 (string-append #$output "/lib/girepository-1.0/"))))))))
     (native-inputs
-     (list gettext-minimal glib pkg-config))
+     (list gettext-minimal glib gobject-introspection pkg-config))
     (synopsis "Menu support for GNOME desktop")
     (description "GNOME Menus contains the libgnome-menu library, the layout
 configuration files for the GNOME menu, as well as a simple menu editor.")
-- 
2.41.0

bug#68556: [PATCH gnome-team v7 0/7] Wrap all the extensions at once with dump-port

[Liliana Marie Prikler]

Am Sonntag, dem 04.02.2024 um 08:00 +0100 schrieb Vivien Kraus:
> Dear guix,
> 
> In this revision, I use the guix “dump-port” function instead of the
> guile/libc “sendfile”, as suggested. The result is byte-identical.
> 
> Best regards,
> 
> Vivien
Pushed at last.

There's probably some cosmetic changes that one can still do on top,
but for now let's leave it at that.  Looking forward to resolving the
rest of gnome-team soon.™

Cheers