gnu: Add gapless.

* gnu/packages/gnome-xyz.scm (gapless): New variable.

Change-Id: I57f7059aa64f55dd510cc74459b3065b46f8f1d4
Signed-off-by: Andreas Enge <andreas@enge.fr>

gnu/packages/gnome-xyz.scm

@@ -26,6 +26,7 @@
 ;;; Copyright © 2025 Ashvith Shetty <ashvithshetty0010@zohomail.in>
 ;;; Copyright © 2025 Maxim Cournoyer <maxim.cournoyer@gmail.com>
 ;;; Copyright © 2025 Gabriel Santos <gabrielsantosdesouza@disroot.org>
+;;; Copyright © 2025 Noé Lopez <noelopez@free.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -68,6 +69,7 @@
   #:use-module (gnu packages gl)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnome)
+  #:use-module (gnu packages gstreamer)
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages ibus)
   #:use-module (gnu packages imagemagick)
@@ -446,6 +448,56 @@ highlights, and gradients for some depth.")
 cursor set.  This project aims at improving the cursor experience.")
     (license license:gpl3)))
 
+(define-public gapless
+  (package
+    (name "gapless")
+    (version "4.4")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://gitlab.gnome.org/neithern/g4music.git")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "09bph7cznzxclxysp1cd715vzpdhx03pnq6cmgw44mma95lhah6p"))))
+    (build-system meson-build-system)
+    (arguments
+     (list
+      #:glib-or-gtk? #t
+      #: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-after 'install 'wrap-gstreamer
+            (lambda _
+              (wrap-program (string-append #$output "/bin/g4music")
+                `("GST_PLUGIN_SYSTEM_PATH" ":" prefix
+                  (,(getenv "GST_PLUGIN_SYSTEM_PATH")))))))))
+    (native-inputs (list `(,glib "bin")
+                         gettext-minimal
+                         pkg-config
+                         vala))
+    (inputs (list gst-plugins-bad       ;mp4
+                  gst-plugins-base      ;for playbin
+                  gst-plugins-good
+                  gstreamer
+                  gtk
+                  libadwaita))
+    (home-page "https://gitlab.gnome.org/neithern/g4music")
+    (synopsis "Light weight music player written in GTK4")
+    (description "Gapless, previously known as G4Music, is a light weight music
+player written in GTK4, focusing on large music collections. This package
+provides the @command{g4music} command.")
+    ;; Most files do not have the header specifying or any later version.
+    ;; Reported at <https://gitlab.gnome.org/neithern/g4music/-/issues/183>.
+    (license (list license:gpl3 license:gpl3+))))
+
 (define-public gnome-plots
   (package
     (name "gnome-plots")