gnu: gnome-shell-extension-gsconnect: Update to 55.

* 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
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

gnu/packages/gnome-xyz.scm

@@ -766,7 +766,7 @@ faster window switching.")
 (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
@@ -776,34 +776,34 @@ faster window switching.")
               (file-name (git-file-name name version))
               (sha256
                (base32
-                "0vg87fdihs5kp7apgyd32ldjmwzmrxaimsc005yjyy8m3f65sjmr"))))
+                "158qbjl6m807g0fy15dvhwwwy6z8r0g7kh9gjyhm7n3y14v5p8wz"))))
     (build-system meson-build-system)
     (arguments
-     `(#:tests? #f ;; every test fails
+     (list
+      #:tests? #f ;; every test fails
       #:configure-flags
-       (let* ((out (assoc-ref %outputs "out"))
+      #~(let ((out #$output)
-              (name+version (strip-store-file-name out))
+              (gnome-shell #$(this-package-input "gnome-shell"))
-              (gschema-dir (string-append out
+              (openssh #$(this-package-input "openssh"))
-                                          "/share/gsettings-schemas/"
+              (openssl #$(this-package-input "openssl")))
-                                          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")
+           (string-append "-Dsession_bus_services_dir=" out "/share/dbus-1/services")))
-          "-Dpost_install=true"))
       #:phases
-       (modify-phases %standard-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* ((glib (assoc-ref inputs "glib:bin"))
+              (let ((gapplication (search-input-file inputs "/bin/gapplication"))
-                    (gapplication (string-append glib "/bin/gapplication"))
                     (gi-typelib-path (getenv "GI_TYPELIB_PATH")))
                 (substitute* "data/org.gnome.Shell.Extensions.GSConnect.desktop.in"
                   (("gapplication") gapplication))
@@ -815,38 +815,38 @@ faster window switching.")
                                      "'" gi-typelib-path "'.split(':').forEach("
                                      "path => imports.gi.GIRepository.Repository."
                                      "prepend_search_path(path));"))))
-                '("src/extension.js" "src/prefs.js"))
+                 '("src/extension.js" "src/prefs.js")))))
-               #t)))
           (add-after 'install 'wrap-daemons
-           (lambda* (#:key inputs outputs #:allow-other-keys)
+            (lambda _
-             (let* ((out (assoc-ref outputs "out"))
+              (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)))
+                  `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))))))))
-               #t))))))
     (inputs
-     `(("at-spi2-core" ,at-spi2-core)
+     (list
-       ("caribou" ,caribou)
+      at-spi2-core
-       ("evolution-data-server" ,evolution-data-server)
+      caribou
-       ("gjs" ,gjs)
+      evolution-data-server
-       ("glib" ,glib)
+      gjs
-       ("glib:bin" ,glib "bin")
+      glib
-       ("gsound" ,gsound)
+      `(,glib "bin") ;for /bin/gapplication
-       ("gnome-shell" ,gnome-shell)
+      gsound
-       ("gtk+" ,gtk+)
+      gnome-shell
-       ("nautilus" ,nautilus)
+      gtk+
-       ("openssh" ,openssh)
+      nautilus
-       ("openssl" ,openssl)
+      openssh
-       ("python-pygobject" ,python-pygobject)
+      openssl
-       ("upower" ,upower)))
+      python-pygobject
+      upower))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
+     (list
-       ("gobject-introspection" ,gobject-introspection)
+      gettext-minimal
-       ("libxml2" ,libxml2)
+      gobject-introspection
-       ("pkg-config" ,pkg-config)))
+      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