GNU bug report logs - #54806
[PATCH 2/5] gnu: Add gtksourceview-5.

Message received at submit <at> debbugs.gnu.org:

Received: (at submit) by debbugs.gnu.org; 9 Apr 2022 00:54:07 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Fri Apr 08 20:54:07 2022
Received: from localhost ([127.0.0.1]:36421 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.84_2)
	(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
	id 1nczMc-0007Iu-OE
	for submit <at> debbugs.gnu.org; Fri, 08 Apr 2022 20:54:07 -0400
Received: from lists.gnu.org ([209.51.188.17]:54592)
 by debbugs.gnu.org with esmtp (Exim 4.84_2)
 (envelope-from <alex@HIDDEN>) id 1nczMY-0007Ih-Am
 for submit <at> debbugs.gnu.org; Fri, 08 Apr 2022 20:54:03 -0400
Received: from eggs.gnu.org ([2001:470:142:3::10]:56432)
 by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <alex@HIDDEN>) id 1nczMY-000537-3U
 for guix-patches@HIDDEN; Fri, 08 Apr 2022 20:54:02 -0400
Received: from mout01.posteo.de ([185.67.36.141]:54665)
 by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256)
 (Exim 4.90_1) (envelope-from <alex@HIDDEN>) id 1nczMU-0002Zq-Ar
 for guix-patches@HIDDEN; Fri, 08 Apr 2022 20:54:00 -0400
Received: from submission (posteo.de [185.67.36.169]) 
 by mout01.posteo.de (Postfix) with ESMTPS id 66AD4240026
 for <guix-patches@HIDDEN>; Sat,  9 Apr 2022 02:53:56 +0200 (CEST)
Received: from customer (localhost [127.0.0.1])
 by submission (posteo.de) with ESMTPSA id 4KZxSz6rK8z6tmB;
 Sat,  9 Apr 2022 02:53:55 +0200 (CEST)
From: Alexandros Theodotou <alex@HIDDEN>
To: guix-patches@HIDDEN
Subject: [PATCH 2/5] gnu: Add gtksourceview-5.
Date: Sat,  9 Apr 2022 00:53:43 +0000
Message-Id: <20220409005346.69279-2-alex@HIDDEN>
In-Reply-To: <20220409005346.69279-1-alex@HIDDEN>
References: <20220409005346.69279-1-alex@HIDDEN>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Received-SPF: pass client-ip=185.67.36.141; envelope-from=alex@HIDDEN;
 helo=mout01.posteo.de
X-Spam_score_int: -41
X-Spam_score: -4.2
X-Spam_bar: ----
X-Spam_report: (-4.2 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_DNSWL_MED=-2.3,
 SPF_HELO_NONE=0.001, SPF_PASS=-0.001,
 T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no
X-Spam_action: no action
X-Spam-Score: -1.3 (-)
X-Debbugs-Envelope-To: submit
Cc: Alexandros Theodotou <alex@HIDDEN>
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.18
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <https://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <https://debbugs.gnu.org/cgi-bin/mailman/private/debbugs-submit/>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <https://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>, 
 <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
Sender: "Debbugs-submit" <debbugs-submit-bounces <at> debbugs.gnu.org>
X-Spam-Score: -2.3 (--)

* gnu/packages/gtk.scm (gtksourceview-5): New variable.
---
 gnu/packages/gtk.scm | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 96297535ce..e8131bb955 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -30,6 +30,7 @@
 ;;; Copyright © 2021 Maxime Devos <maximedevos@HIDDEN>
 ;;; Copyright © 2021 Wamm K. D. <jaft.r@HIDDEN>
 ;;; Copyright © 2022 Zhu Zihao <all_but_last@HIDDEN>
+;;; Copyright © 2022 Alexandros Theodotou <alex@HIDDEN>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -90,6 +91,7 @@ (define-module (gnu packages gtk)
   #: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)
@@ -618,6 +620,44 @@ (define-public gtksourceview
 highlighting and other features typical of a source code editor.")
    (license license:lgpl2.1+)))
 
+(define-public gtksourceview-5
+ (package (inherit gtksourceview)
+   (name "gtksourceview")
+   (version "5.4.0")
+   (source (origin
+             (method url-fetch)
+             (uri (string-append "mirror://gnome/sources/" name "/"
+                                 (version-major+minor version) "/"
+                                 name "-" version ".tar.xz"))
+             (sha256
+              (base32
+               "0dz6hifma60plbfqm4vlh1mps2z7f15rkkmflf5fra3hwqbw4fq0"))))
+   (build-system meson-build-system)
+   (arguments
+    '(#:phases
+      (modify-phases %standard-phases
+        (add-after 'unpack 'skip-gtk-update-icon-cache
+          (lambda _
+            (substitute* "meson.build"
+              (("gtk_update_icon_cache: true")
+               "gtk_update_icon_cache: false"))))
+        (add-before
+         'check 'pre-check
+         (lambda* (#:key inputs #:allow-other-keys)
+           (let ((xorg-server (assoc-ref inputs "xorg-server")))
+             ;; Tests require a running X server.
+             (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
+             (setenv "DISPLAY" ":1")
+             ;; For the missing /etc/machine-id.
+             (setenv "DBUS_FATAL_WARNINGS" "0")
+             #t))))
+      #:configure-flags
+      ;; Needs newer gobject-introspection
+      '("-Dintrospection=disabled")))
+   (propagated-inputs
+    ;; gtksourceview-3.0.pc refers to all these.
+    (list glib gtk libxml2 pcre2))))
+
 (define-public gtksourceview-3
  (package (inherit gtksourceview)
    (name "gtksourceview")
-- 
2.35.1