gnu: gtksourceview: Update to 5.5.1.

* gnu/packages/gtk.scm (gtksourceview): Update to 5.5.1.
[build-system]: Use meson-build-system.
[phases]: Use gexps.
{disable-gtk-update-icon-cache}: New phase.
{pre-check}: Use search-input-file.
[native-inputs]: Remove labels.  Remove intltool and itstool.  Add
gettext-minimal, gi-docgen and gobject-introspection-next.
[propagated-inputs]: Remove labels.  Remove gtk+.  Add fontconfig, fribidi,
gtk, pango-next and pcre2.  Replace glib with glib-next.
(gtksourceview-4): New variable.
(gtksourceview-3): Inherit from gtksourceview-4 and adjust accordingly.
* gnu/packages/gnome.scm (tepl): Replace gtksourceview with gtksourceview-4.
(sushi)[inputs]: Likewise.
* gnu/packages/guile-xyz.scm (nomad): Likewise.

gnu/packages/gnome.scm

@@ -1060,7 +1060,7 @@ between different kinds of computer systems.")
      (list amtk
            glib
            gtk+
-           gtksourceview
+           gtksourceview-4
            libxml2
            uchardet))
     (synopsis "Text editor product line")
@@ -1627,7 +1627,7 @@ sharing to the masses.")
            gjs
            gst-plugins-base
            gstreamer
-           gtksourceview
+           gtksourceview-4
            harfbuzz
            libepoxy
            libmusicbrainz

gnu/packages/gtk.scm

@@ -91,6 +91,7 @@
   #:use-module (gnu packages linux)
   #:use-module (gnu packages m4)
   #:use-module (gnu packages man)
+  #:use-module (gnu packages pcre)
   #:use-module (gnu packages pdf)
   #:use-module (gnu packages perl)
   #:use-module (gnu packages perl-check)
@@ -610,63 +611,101 @@ printing and other features typical of a source code editor.")
     (home-page "https://developer.gnome.org/gtksourceview/")))
 
 (define-public gtksourceview
- (package
+  (package
-   (name "gtksourceview")
+    (name "gtksourceview")
-   (version "4.2.0")
+    (version "5.5.1")
-   (source (origin
+    (source (origin
-             (method url-fetch)
+              (method url-fetch)
-             (uri (string-append "mirror://gnome/sources/gtksourceview/"
+              (uri (string-append "mirror://gnome/sources/gtksourceview/"
-                                 (version-major+minor version) "/"
+                                  (version-major+minor version) "/"
-                                 "gtksourceview-" version ".tar.xz"))
+                                  "gtksourceview-" version ".tar.xz"))
-             (sha256
+              (sha256
-              (base32
+               (base32
-               "0xgnjj7jd56wbl99s76sa1vjq9bkz4mdsxwgwlcphg689liyncf4"))))
+                "068dqhacvs65gnmrryahm6qs0q050admlpqqi1gy8wgh2p6qrraa"))))
-   (build-system gnu-build-system)
+    (build-system meson-build-system)
-   (arguments
+    (arguments
-    '(#:phases
+     '(#:phases
-      (modify-phases %standard-phases
+       (modify-phases %standard-phases
-        (add-before
+         (add-after 'unpack 'disable-gtk-update-icon-cache
-         'check 'pre-check
+           (lambda _
-         (lambda* (#:key inputs #:allow-other-keys)
+             (substitute* "meson.build"
-           (let ((xorg-server (assoc-ref inputs "xorg-server")))
+               (("gtk_update_icon_cache: true")
-             ;; Tests require a running X server.
+                "gtk_update_icon_cache: false"))))
-             (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
+         (add-before 'check 'pre-check
-             (setenv "DISPLAY" ":1")
+           (lambda* (#:key native-inputs inputs #:allow-other-keys)
-             ;; For the missing /etc/machine-id.
+             (let ((Xvfb (search-input-file (or native-inputs inputs)
-             (setenv "DBUS_FATAL_WARNINGS" "0")
+                                            "bin/Xvfb")))
-             #t))))))
+               ;; Tests require a running X server.
-   (native-inputs
+               (system (string-append Xvfb " :1 &"))
-    `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc.
+               (setenv "DISPLAY" ":1")
-      ("intltool" ,intltool)
+               ;; For the missing /etc/machine-id.
-      ("itstool" ,itstool)
+               (setenv "DBUS_FATAL_WARNINGS" "0")))))))
-      ("gobject-introspection" ,gobject-introspection)
+    (native-inputs
-      ("pkg-config" ,pkg-config)
+     (list `(,glib "bin")               ; for glib-genmarshal, etc.
-      ("vala" ,vala)
+           gettext-minimal
-      ;; For testing.
+           gi-docgen
-      ("xorg-server" ,xorg-server-for-tests)
+           gobject-introspection-next
-      ("shared-mime-info" ,shared-mime-info)))
+           pkg-config
-   (propagated-inputs
+           vala
-    ;; gtksourceview-3.0.pc refers to all these.
+           ;; For testing.
-    (list glib gtk+ libxml2))
+           xorg-server-for-tests
-   (home-page "https://wiki.gnome.org/Projects/GtkSourceView")
+           shared-mime-info))
-   (synopsis "GNOME source code widget")
+    (propagated-inputs
-   (description "GtkSourceView is a text widget that extends the standard
+     ;; gtksourceview-5.pc refers to all these.
+     (list fontconfig
+           fribidi
+           glib-next
+           gtk
+           libxml2
+           pcre2
+           pango-next))
+    (home-page "https://wiki.gnome.org/Projects/GtkSourceView")
+    (synopsis "GNOME source code widget")
+    (description "GtkSourceView is a text widget that extends the standard
 GTK+ text widget GtkTextView.  It improves GtkTextView by implementing syntax
 highlighting and other features typical of a source code editor.")
-   (license license:lgpl2.1+)))
+    (license license:lgpl2.1+)))
+
+;;; This older version is used by tepl.
+(define-public gtksourceview-4
+  (package
+    (inherit gtksourceview)
+    (version "4.8.3")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/gtksourceview/"
+                                  (version-major+minor version) "/"
+                                  "gtksourceview-" version ".tar.xz"))
+              (sha256
+               (base32
+                "10n61sa0g447nx73yapb00z57shp48gfvk1lv1s29ji0cd81j063"))))
+    (native-inputs
+     (modify-inputs (package-native-inputs gtksourceview)
+       (replace "gobject-introspection" gobject-introspection)))
+    (propagated-inputs
+     (modify-inputs (package-propagated-inputs gtksourceview)
+       (replace "gtk" gtk+)
+       (replace "pango-next" pango)
+       (replace "glib" glib)))))
 
 (define-public gtksourceview-3
- (package (inherit gtksourceview)
+  (package
-   (name "gtksourceview")
+    (inherit gtksourceview-4)
-   (version "3.24.10")
+    (name "gtksourceview")
-   (source (origin
+    (version "3.24.11")
-             (method url-fetch)
+    (source (origin
-             (uri (string-append "mirror://gnome/sources/" name "/"
+              (method url-fetch)
-                                 (version-major+minor version) "/"
+              (uri (string-append "mirror://gnome/sources/" name "/"
-                                 name "-" version ".tar.xz"))
+                                  (version-major+minor version) "/"
-             (sha256
+                                  name "-" version ".tar.xz"))
-              (base32
+              (sha256
-               "16ym7jwiki4s1pilwr4incx0yg7ll94f1cajrnpndkxxs36hcm5b"))))))
+               (base32
+                "1zbpj283b5ycz767hqz5kdq02wzsga65pp4fykvhg8xj6x50f6v9"))))
+    (build-system gnu-build-system)
+    (arguments (substitute-keyword-arguments (package-arguments gtksourceview)
+                 ((#:phases phases)
+                  `(modify-phases ,phases
+                     (delete 'disable-gtk-update-icon-cache)))))))
 
 (define-public gdk-pixbuf
   (package

gnu/packages/guile-xyz.scm

@@ -3524,7 +3524,7 @@ perform geometrical transforms on JPEG images.")
        ("gtk+" ,gtk+)
        ("gtk+:bin" ,gtk+ "bin")
        ("webkitgtk" ,webkitgtk)
-       ("gtksourceview" ,gtksourceview)
+       ("gtksourceview" ,gtksourceview-4)
        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
        ("vte" ,vte)
        ;; Gstreamer