gnu: gnome-authenticator: Switch to meson-build-system.

* gnu/packages/gnome.scm (gnome-authenticator)
[build-system]: Switch to meson-build-system.
[native-inputs]: Add rust, rust:cargo.
Add rust-sysroot when cross-compiling.
Remove meson, ninja.
[inputs]: Use ‘cargo-inputs’.
[arguments]: Remove #:install-source?, #:vendor, #:cargo-inputs.
<#:imported-modules, #:modules>: Remove explicit inclusion of
glib-or-gtk-build-system modules.
<#:phases>: Add 'prepare-cargo-build-system before 'configure.
Remove 'unpack-rust-crates.
Remove added phases that are part of meson-build-system's %standard-phases.
* gnu/packages/rust-crates.scm (lookup-cargo-inputs)[gnome-authenticator]: New
entry.

Change-Id: I98513dfb4ecb8d1ab7f1c808b79cd990d8b4259d

gnu/packages/gnome.scm

@@ -10558,61 +10558,16 @@ specified duration and save it as a GIF encoded animated image file.")
        (file-name (git-file-name name version))
        (sha256
         (base32 "0zavax35n048spx097ymiq31s8b879qwbg8xmcxcx73r6m823mic"))))
-    (build-system cargo-build-system)
+    (build-system meson-build-system)
     (arguments
      (list
-      #:install-source? #f
-      #:vendor-dir "vendor"
-      #:cargo-inputs
-      (list rust-aes-gcm-0.10
-            rust-anyhow-1
-            rust-async-std-1
-            rust-aperture-0.3
-            rust-ashpd-0.6
-            rust-data-encoding-2
-            rust-diesel-2
-            rust-diesel-migrations-2
-            rust-futures-channel-0.3
-            rust-futures-executor-0.3
-            rust-futures-util-0.3
-            rust-gettext-rs-0.7
-            rust-gtk4-0.7
-            rust-hex-0.4
-            rust-image-0.24
-            rust-libadwaita-0.5
-            rust-oo7-0.2
-            rust-percent-encoding-2
-            rust-prost-0.12
-            rust-qrencode-0.14
-            rust-quick-xml-0.30
-            rust-rand-0.8
-            rust-reqwest-0.11
-            rust-ring-0.17
-            rust-rust-argon2-2
-            rust-scrypt-0.11
-            rust-search-provider-0.6
-            rust-serde-1
-            rust-serde-json-1
-            rust-svg-metadata-0.4
-            rust-tokio-1
-            rust-tracing-0.1
-            rust-tracing-subscriber-0.3
-            rust-url-2
-            rust-uuid-1
-            rust-zbar-rust-0.0.23   ; any 0.0.*
-            rust-zeroize-1)
       #:imported-modules `(,@%meson-build-system-modules
-                           ,@%glib-or-gtk-build-system-modules
                            ,@%cargo-build-system-modules)
-      #:modules `((guix build cargo-build-system)
+      #:modules `(((guix build cargo-build-system) #:prefix cargo:)
-                  ((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:)
+                  (guix build meson-build-system)
-                  ((guix build meson-build-system) #:prefix meson:)
                   (guix build utils))
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'generate-gdk-pixbuf-loaders-cache-file
-            (assoc-ref glib-or-gtk:%standard-phases
-                       'generate-gdk-pixbuf-loaders-cache-file))
           (add-after 'unpack 'prepare-for-build
             (lambda _
               (substitute* "meson.build"
@@ -10624,51 +10579,43 @@ specified duration and save it as a GIF encoded animated image file.")
               (substitute* "src/meson.build"
                 (("'test'") "'test', cargo_options"))
               (delete-file "Cargo.lock")))
-          ;; Add meson-configure phase here and not before 'configure because
+          ;; The meson 'configure phase changes to a different directory and
-          ;; the meson 'configure phase changes to a different directory and
           ;; we need it created before unpacking the crates.
-          (add-before 'unpack-rust-crates 'meson-configure
+          (add-after 'configure 'prepare-cargo-build-system
             (lambda args
-              (apply (assoc-ref meson:%standard-phases 'configure)
+              (for-each
-                     #:build-type "debugoptimized"
+               (lambda (phase)
-                     #:configure-flags '()
+                 (format #t "Running cargo phase: ~a~%" phase)
-                     args)))
+                 (apply (assoc-ref cargo:%standard-phases phase)
-          (replace 'build
+                        #:vendor-dir "vendor"
-            (assoc-ref meson:%standard-phases 'build))
+                        #:cargo-target #$(cargo-triplet)
-          (replace 'check
+                        args))
-            (lambda args
+               '(unpack-rust-crates
-              (apply (assoc-ref meson:%standard-phases 'check)
+                 configure
-                     #:test-options '()
+                 check-for-pregenerated-files
-                     args)))
+                 patch-cargo-checksums)))))))
-          (replace 'install
+    (native-inputs
-            (assoc-ref meson:%standard-phases 'install))
+     (append
-          (add-after 'install 'glib-or-gtk-compile-schemas
+      (list gettext-minimal
-            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-compile-schemas))
+            `(,glib "bin") ; for glib-compile-schemas
-          (add-after 'install 'glib-or-gtk-wrap
+            pkg-config
-            (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap))
+            rust
-          (add-after 'glib-or-gtk-wrap 'wrap-extra-paths
+            `(,rust "cargo"))
-            (lambda _
+      (or (and=> (%current-target-system)
-              (let ((gst-plugins-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
+                 (compose list make-rust-sysroot))
-                (wrap-program (string-append #$output "/bin/authenticator")
+          '())))
-                 `("GST_PLUGIN_SYSTEM_PATH" ":" suffix (,gst-plugins-path))))))
+    (inputs (cons* bash-minimal
-          (add-after 'strip 'shrink-runpath
+                   glib
-            (assoc-ref meson:%standard-phases 'shrink-runpath)))))
+                   gstreamer
-    (native-inputs (list gettext-minimal
+                   gst-plugins-base
-                         `(,glib "bin") ; for glib-compile-schemas
+                   gst-plugins-bad
-                         meson
+                   gtk
-                         ninja
+                   libadwaita
-                         pkg-config))
+                   openssl
-    (inputs (list bash-minimal
+                   pipewire             ; Needed but not listed
-                  glib
+                   sqlite
-                  gstreamer
+                   zbar
-                  gst-plugins-base
+                   (cargo-inputs 'gnome-authenticator)))
-                  gst-plugins-bad
-                  gtk
-                  libadwaita
-                  openssl
-                  pipewire      ; Needed but not listed
-                  sqlite
-                  zbar))
     (home-page "https://apps.gnome.org/Authenticator")
     (synopsis "Generate two-factor codes")
     (description "Simple application for generating Two-Factor Authentication