From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id UOUkAMbdtGNtMgEAbAwnHQ (envelope-from ) for ; Wed, 04 Jan 2023 03:00:38 +0100 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id GAP/OsXdtGMVVAAAG6o9tA (envelope-from ) for ; Wed, 04 Jan 2023 03:00:37 +0100 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 780E73B25A for ; Wed, 4 Jan 2023 03:00:36 +0100 (CET) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pCt4u-00028C-D6; Tue, 03 Jan 2023 21:00:28 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pCr9S-0008MG-HD for guix-patches@gnu.org; Tue, 03 Jan 2023 18:57:02 -0500 Received: from debbugs.gnu.org ([209.51.188.43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pCr9R-00074j-Rq for guix-patches@gnu.org; Tue, 03 Jan 2023 18:57:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1pCr9R-0006d7-KW for guix-patches@gnu.org; Tue, 03 Jan 2023 18:57:01 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#60533] [PATCH] Update guile-g-golf. Resent-From: Preston Firestone Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Tue, 03 Jan 2023 23:57:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 60533 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 60533@debbugs.gnu.org X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.167279020225439 (code B ref -1); Tue, 03 Jan 2023 23:57:01 +0000 Received: (at submit) by debbugs.gnu.org; 3 Jan 2023 23:56:42 +0000 Received: from localhost ([127.0.0.1]:47089 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pCr97-0006c6-57 for submit@debbugs.gnu.org; Tue, 03 Jan 2023 18:56:42 -0500 Received: from lists.gnu.org ([209.51.188.17]:49294) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pCnmA-0008Ue-Iq for submit@debbugs.gnu.org; Tue, 03 Jan 2023 15:20:47 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pCnmA-00072u-EH for guix-patches@gnu.org; Tue, 03 Jan 2023 15:20:46 -0500 Received: from mail-yb1-xb2c.google.com ([2607:f8b0:4864:20::b2c]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1pCnm4-0001fF-Bi for guix-patches@gnu.org; Tue, 03 Jan 2023 15:20:46 -0500 Received: by mail-yb1-xb2c.google.com with SMTP id b16so34447257yba.0 for ; Tue, 03 Jan 2023 12:20:39 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=Q3BM6UBEnR0XwLPy2ebxecClRiqOmOEMq52uRSJb37k=; b=hV6k1ARmgv3WG9kH1Nwh455kCafjkQkgxEl6guK7gHsMY54/NF73hXv1bIvzd+JIEi DWm8/T86AYskp9Zv0hCwAqRCqry+2za18eDrygomylm+Zynz1sWmmS3rh3C+aStItWx4 O8Fw7Dmdzby+DvwQGjOaLiQT5yTjd0csYPX97azaoVbZb3n8HzXP1N3xTrIvQTHzVLVw MmLss76Su4+GOluKjhLm5wt7FZ/HSu1US7Am77BMdGzcZMSW6NRX+fHe08wf2saZukOS y6V92LgGzIuqeI4dC0pkC/zpnowz9Q/vVoyVywlazV7WAwEeQDVMljC2izoJavFq7JrL 0k6Q== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=Q3BM6UBEnR0XwLPy2ebxecClRiqOmOEMq52uRSJb37k=; b=MT9E0d+Iukyf4ZoB6tpQk3itywS4YSCyTzohpbqRBK8DV0MuoEs7uKiEsS1BsPsY2/ OUELJpcKEWIgqHwwfwpIgQKxqdz6996wBfOve2MYpBcmmJeHItUt+XoyFzN5z/fLWiqY 8oX9nXshD5XCHFOMw8SQPwZnTHOEpckVQna1jkWeW9fdK0t9im5BzTecp2un4K9Hr5xS 48rne2f4OX4HofhXt3VFcUygB/iarem5cKF6el0lfG5DPYIgFgQn27GuiB4U8fcNT8m7 IsPOEm+61YC/Uc5AknuIsXwZGGqNXKRnISqlm14fHIY2jp18W300qrUWUqECEvvMwn5p EqKw== X-Gm-Message-State: AFqh2kq+Go49JYiZPvd7vduWEj1ETPeZL7oInlh+wWomjN3B+WIjFqrO 1nAgt+vLPr3Q2F86sH+Eh0izc6hVudnMzVojfUtKZ2Z6DTmgjQ== X-Google-Smtp-Source: AMrXdXuaWZdFbNLqmnqJYQFXGMv5wanZQQt+caRU0TBygZ7qkXJmzdc+U9tX/laUPV0IXEUHi28PFwgAyBghDTY9xY0= X-Received: by 2002:a05:6902:4ee:b0:6f0:7d2e:1a73 with SMTP id w14-20020a05690204ee00b006f07d2e1a73mr5389650ybs.397.1672777238672; Tue, 03 Jan 2023 12:20:38 -0800 (PST) MIME-Version: 1.0 From: Preston Firestone Date: Tue, 3 Jan 2023 14:20:27 -0600 Message-ID: Content-Type: multipart/alternative; boundary="0000000000001977a405f161cd8e" Received-SPF: pass client-ip=2607:f8b0:4864:20::b2c; envelope-from=firestone.preston@gmail.com; helo=mail-yb1-xb2c.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Mailman-Approved-At: Tue, 03 Jan 2023 18:56:39 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Mailman-Approved-At: Tue, 03 Jan 2023 21:00:26 -0500 X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: guix-patches-bounces+larch=yhetil.org@gnu.org X-Migadu-Country: US X-Migadu-Flow: FLOW_IN ARC-Seal: i=1; s=key1; d=yhetil.org; t=1672797637; a=rsa-sha256; cv=none; b=k6UtQvk022erluB02IIb7rkZZazGkYh6b4D0Hfq1lIUR+V9RFzzuqqDOwsWP33+x4JC+K9 Mr29RJkk2EMZgK4bogVsj/OvpgTRicNzUSFe6zhnyok0rxYCKl+VHfLsmxN3bVC2X+sDPK gx0EkYK8AHX2DCf1o8mDho6NE1DKhVdYH6/m6KqWMO5XC/u3seOCZvJ5fX8DU8UiAVZ3eY GYkavs0Vxkb2Qu/1NyxarTBgJjOYlIGS9sgFRfMSF4lWQsd/UNvj4ACtTLakCDANQoZ/74 m6eLT22ntZaOEwJZ4mQTzk7qgsKSYp7CJ5gZSdQhUaMcVgVWFvU6Z/wwrLdSMA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b=hV6k1ARm; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none) ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1672797637; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:resent-cc:resent-from:resent-sender: resent-message-id:list-id:list-help:list-unsubscribe:list-subscribe: list-post:dkim-signature; bh=Q3BM6UBEnR0XwLPy2ebxecClRiqOmOEMq52uRSJb37k=; b=UooQ9LwByZ4VZqz5fj5XBG66QbgTbx49PqMQ1WBTTjgE+jLYLpGKMHCJvxyucI7zw4aEIw 65Rbx0btzsR4s5LR9+i5xE/fhSSNbrzU+jPquGw0djmGuyGoiggtqY6Ptkpbq6wYFV3mMj X+Lxgsq0YcdIqLkhnGRCjSSodh9hcdAqajwVku6VEkpr8e7DV7CYPETHOq3q/8pn9VCqK2 qw0yCZNNXKolZ4nJpUNZPf6ummIAadyXgtyDHOSYNR98qCn6aV6/ZM1J5eeUf0ALx92/uI Y8t+302ugCHddZ47xnZTvDHT5Or9cmS2zygx93nmbXJ8dGnwTlK3cM87yrAjOQ== X-Spam-Score: -1.16 X-Migadu-Queue-Id: 780E73B25A Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=gmail.com header.s=20210112 header.b=hV6k1ARm; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org"; dmarc=fail reason="SPF not aligned (relaxed)" header.from=gmail.com (policy=none) X-Migadu-Scanner: scn0.migadu.com X-Migadu-Spam-Score: -1.16 X-TUID: CAa7H/6LcofE --0000000000001977a405f161cd8e Content-Type: text/plain; charset="UTF-8" * guile-xyz.scm: bump guile-g-golf to version 0.8.0. This release works under guix, if a guile program relying on g-golf is run in a guix shell like so: `guix shell guile-g-golf guile gtk -- [program]`. --- gnu/packages/guile-xyz.scm | 155 ++++++++++++++++++------------------- 1 file changed, 74 insertions(+), 81 deletions(-) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 9c94764ab3..692ef9b50b 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -2181,91 +2181,84 @@ (define-public guile-sly (license license:gpl3+))) (define-public guile-g-golf - (let ((commit "1824633d37da3794f349d6829e9dac2cf89adaa8") - (revision "1010")) - (package - (name "guile-g-golf") - (version (git-version "0.1.0" revision commit)) - (source - (origin - (method git-fetch) - (uri (git-reference - (url "https://git.savannah.gnu.org/git/g-golf.git") - (commit commit))) - (file-name (git-file-name name version)) - (sha256 - (base32 "0ncpqv6pbsx9fjmdzvzbjljnhqgw9pynqy9vr9aq35nb7rzrhfdf")))) - (build-system gnu-build-system) - (arguments - (list - #:configure-flags - #~(list "--with-guile-site=no") - #:phases - #~(modify-phases %standard-phases - (add-after 'unpack 'fix-guile-site-directory - (lambda _ - (substitute* "configure.ac" - (("SITEDIR=.*$") - "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\";\n") - (("SITECCACHEDIR=\"\\$libdir/g-golf/") - "SITECCACHEDIR=\"$libdir/")))) - (add-before 'configure 'tests-work-arounds - (lambda* (#:key inputs #:allow-other-keys) - ;; In build environment, There is no /dev/tty - (substitute* "test-suite/tests/gobject.scm" - (("/dev/tty") "/dev/null")))) - (add-before 'configure 'substitute-libs - (lambda* (#:key inputs outputs #:allow-other-keys) - (define (get lib) - (search-input-file inputs (string-append "lib/" lib ".so"))) - - (let* ((libgi (get "libgirepository-1.0")) - (libglib (get "libglib-2.0")) - (libgobject (get "libgobject-2.0")) - (libg-golf (string-append #$output "/lib/libg-golf"))) - (substitute* "g-golf/init.scm" - (("libgirepository-1.0") libgi) - (("libglib-2.0") libglib) - (("libgobject-2.0") libgobject) - (("\\(dynamic-link \"libg-golf\"\\)") - (format #f "~s" - `(catch #t - (lambda () - (dynamic-link "libg-golf")) - (lambda _ - (dynamic-link ,libg-golf)))))) - (setenv "GUILE_AUTO_COMPILE" "0") - #t))) - (add-before 'check 'start-xorg-server - (lambda* (#:key inputs #:allow-other-keys) - ;; The test suite requires a running X server. - (system "Xvfb :1 &") - (setenv "DISPLAY" ":1") - #t))))) - (inputs - (list guile-3.0 guile-lib glib)) - (native-inputs - (list autoconf - automake - texinfo - gettext-minimal - libtool - pkg-config - ;; required for tests - gtk+ - clutter - xorg-server-for-tests)) - (propagated-inputs - (list gobject-introspection)) - (home-page "https://www.gnu.org/software/g-golf/") - (synopsis "Guile bindings for GObject Introspection") - (description - "G-Golf (Gnome: (Guile Object Library for)) is a library for developing + (package + (name "guile-g-golf") + (version "0.8.0") + (source (origin + (method url-fetch) + (uri + " https://git.savannah.gnu.org/cgit/g-golf.git/snapshot/g-golf-0.8.0-a.1.tar.gz ") + (sha256 + "1zqycqss0g9aqwmvrvsz43mmfxzi7dj3waxkb4w8ikdajjm7rd8r"))) + (build-system glib-or-gtk-build-system) + (arguments + (list #:configure-flags #~(list "--with-guile-site=no") + #:parallel-build? #f + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'fix-guile-site-directory + (lambda _ + (substitute* "configure.ac" + (("SITEDIR=.*$") + "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\";\n") + (("SITECCACHEDIR=\"\\$libdir/g-golf/") + "SITECCACHEDIR=\"$libdir/")))) + (add-before 'configure 'tests-work-arounds + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "test-suite/tests/gobject.scm" + (("/dev/tty") + "/dev/null")))) + (add-before 'configure 'substitute-libs + (lambda* (#:key inputs outputs #:allow-other-keys) + (define (get lib) + (search-input-file inputs + (string-append "lib/" lib + ".so"))) + (let* ((libgi (get "libgirepository-1.0")) + (libglib (get "libglib-2.0")) + (libgobject (get "libgobject-2.0")) + (libg-golf (string-append #$output + "/lib/libg-golf"))) + (substitute* "g-golf/init.scm" + (("libgirepository-1.0") + libgi) + (("libglib-2.0") + libglib) + (("libgobject-2.0") + libgobject) + (("\\(dynamic-link \"libg-golf\"\\)") + (format #f "~s" + `(catch #t + (lambda () + (dynamic-link "libg-golf")) + (lambda _ + (dynamic-link ,libg-golf)))))) + (setenv "GUILE_AUTO_COMPILE" "0") #t))) + (add-before 'check 'start-xorg-server-for-testing + (lambda* (#:key inputs #:allow-other-keys) + (system "Xvfb :1 &") + (setenv "DISPLAY" ":1") #t))))) + (inputs (list guile-3.0 guile-lib glib-next)) + (native-inputs (list autoconf + automake + texinfo + gettext-minimal + libtool + pkg-config + ;; required for tests + gtk+ + clutter + xorg-server-for-tests + dbus)) + (propagated-inputs (list gobject-introspection-next)) + (home-page "https://www.gnu.org/software/g-golf/") + (synopsis "Guile bindings for GObject Introspection") + (description + "G-Golf (Gnome: (Guile Object Library for)) is a library for developing modern applications in Guile Scheme. It comprises a direct binding to the GObject Introspection API and higher-level functionality for importing Gnome libraries and making GObject classes (and methods) available in Guile's object-oriented programming system, GOOPS.") - (license license:lgpl3+)))) + (license license:lgpl3+))) (define-public g-golf (deprecated-package "g-golf" guile-g-golf)) -- 2.38.1 --0000000000001977a405f161cd8e Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
* guile-xyz.scm: bump guile-g-golf to version 0.8.0. This = release works under guix, if =C2=A0a guile program relying on g-golf is run= in a guix shell like so: `guix shell guile-g-golf guile gtk -- [program]`.= =C2=A0
---
=C2=A0gnu/packages/guile-xyz.scm | 155 ++++++++++++++++++= -------------------
=C2=A01 file changed, 74 insertions(+), 81 deletions= (-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz= .scm
index 9c94764ab3..692ef9b50b 100644
--- a/gnu/packages/guile-xyz= .scm
+++ b/gnu/packages/guile-xyz.scm
@@ -2181,91 +2181,84 @@ (define= -public guile-sly
=C2=A0 =C2=A0 =C2=A0(license license:gpl3+)))
=C2= =A0
=C2=A0(define-public guile-g-golf
- =C2=A0(let ((commit =C2=A0 &q= uot;1824633d37da3794f349d6829e9dac2cf89adaa8")
- =C2=A0 =C2=A0 =C2= =A0 =C2=A0(revision "1010"))
- =C2=A0 =C2=A0(package
- =C2= =A0 =C2=A0 =C2=A0(name "guile-g-golf")
- =C2=A0 =C2=A0 =C2=A0(= version (git-version "0.1.0" revision commit))
- =C2=A0 =C2=A0= =C2=A0(source
- =C2=A0 =C2=A0 =C2=A0 (origin
- =C2=A0 =C2=A0 =C2=A0 = =C2=A0 (method git-fetch)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 (uri (git-refere= nce
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (url "https://git.savannah.gnu.= org/git/g-golf.git")
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 (commit commit)))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 (file-name (g= it-file-name name version))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 (sha256
- = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(base32 "0ncpqv6pbsx9fjmdzvzbjljnhqg= w9pynqy9vr9aq35nb7rzrhfdf"))))
- =C2=A0 =C2=A0 =C2=A0(build-system = gnu-build-system)
- =C2=A0 =C2=A0 =C2=A0(arguments
- =C2=A0 =C2=A0 = =C2=A0 (list
- =C2=A0 =C2=A0 =C2=A0 =C2=A0#:configure-flags
- =C2=A0 = =C2=A0 =C2=A0 =C2=A0#~(list "--with-guile-site=3Dno")
- =C2=A0= =C2=A0 =C2=A0 =C2=A0#:phases
- =C2=A0 =C2=A0 =C2=A0 =C2=A0#~(modify-pha= ses %standard-phases
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-aft= er 'unpack 'fix-guile-site-directory
- =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0(lambda _
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0(substitute* "conf= igure.ac"
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0(("SITEDIR=3D.*$")
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "SITEDIR=3D\"$datadir/guile/si= te/$GUILE_EFFECTIVE_VERSION\";\n")
- =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(("SITECCACHEDIR=3D\"\\$lib= dir/g-golf/")
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 "SITECCACHEDIR=3D\"$libdir/"))))
- =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-before 'configure 'tests-wor= k-arounds
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(lambda* (#:= key inputs #:allow-other-keys)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0;; In build environment, There is no /dev/tty
- =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(substitute* "test-sui= te/tests/gobject.scm"
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0(("/dev/tty") "/dev/null"))))
- = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-before 'configure 'su= bstitute-libs
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(lambda*= (#:key inputs outputs #:allow-other-keys)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0(define (get lib)
- =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(search-input-file inputs (string-app= end "lib/" lib ".so")))
-
- =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(let* ((libgi =C2=A0 =C2=A0 =C2=A0(get &q= uot;libgirepository-1.0"))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (libglib =C2=A0 =C2=A0(get "lib= glib-2.0"))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 (libgobject (get "libgobject-2.0"))
-= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 (libg-golf (string-append #$output "/lib/libg-golf")))
- = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(substitute* = "g-golf/init.scm"
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0(("libgirepository-1.0") libgi)
- = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0((&quo= t;libglib-2.0") libglib)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(("libgobject-2.0") libgobject)- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0((&= quot;\\(dynamic-link \"libg-golf\"\\)")
- =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (format #f "~s= "
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 `(catch #t
- =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0(lambda ()
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(d= ynamic-link "libg-golf"))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0(lambda _
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(dynamic-link= ,libg-golf))))))
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0(setenv "GUILE_AUTO_COMPILE" "0")
- =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0#t)))
- =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(add-before 'check 'start-xorg-se= rver
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(lambda* (#:key i= nputs #:allow-other-keys)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0;; The test suite requires a running X server.
- =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(system "Xvfb :1 &&qu= ot;)
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(setenv &q= uot;DISPLAY" ":1")
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0#t)))))
- =C2=A0 =C2=A0 =C2=A0(inputs
- =C2=A0 = =C2=A0 =C2=A0 (list guile-3.0 guile-lib glib))
- =C2=A0 =C2=A0 =C2=A0(na= tive-inputs
- =C2=A0 =C2=A0 =C2=A0 (list autoconf
- =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 automake
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 texinfo
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 gettext-minim= al
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 libtool
- =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 pkg-config
- =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 ;; required for tests
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 gtk+
- =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 clutter
-= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 xorg-server-for-tests))
- =C2= =A0 =C2=A0 =C2=A0(propagated-inputs
- =C2=A0 =C2=A0 =C2=A0 (list gobject= -introspection))
- =C2=A0 =C2=A0 =C2=A0(home-page "https://www.gnu.org/software/g-golf/&q= uot;)
- =C2=A0 =C2=A0 =C2=A0(synopsis "Guile bindings for GObject I= ntrospection")
- =C2=A0 =C2=A0 =C2=A0(description
- =C2=A0 =C2= =A0 =C2=A0 "G-Golf (Gnome: (Guile Object Library for)) is a library fo= r developing
+ =C2=A0(package
+ (name "guile-g-golf")
+ = (version "0.8.0")
+ (source (origin
+ =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0(method url-fetch)
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(uri=
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 "https://git.s= avannah.gnu.org/cgit/g-golf.git/snapshot/g-golf-0.8.0-a.1.tar.gz")=
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(sha256
+ =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 "1zqycqss0g9aqwmvrvsz43mmfxzi7dj3waxkb4w8ikdajjm7rd8r&qu= ot;)))
+ (build-system glib-or-gtk-build-system)
+ (arguments
+ = =C2=A0(list #:configure-flags #~(list "--with-guile-site=3Dno")+ =C2=A0 =C2=A0 =C2=A0 =C2=A0#:parallel-build? #f
+ =C2=A0 =C2=A0 =C2= =A0 =C2=A0#:phases #~(modify-phases %standard-phases
+ =C2=A0 =C2=A0 (= add-after 'unpack 'fix-guile-site-directory
+ =C2=A0 =C2=A0 = =C2=A0 (lambda _
+ (substitute* "configure.ac"
+ =C2=A0 (("SITEDIR=3D.*$")
+ = =C2=A0 =C2=A0"SITEDIR=3D\"$datadir/guile/site/$GUILE_EFFECTIVE_V= ERSION\";\n")
+ =C2=A0 (("SITECCACHEDIR=3D\"\\$li= bdir/g-golf/")
+ =C2=A0 =C2=A0"SITECCACHEDIR=3D\"$libd= ir/"))))
+ =C2=A0 =C2=A0 (add-before 'configure 'tests-wo= rk-arounds
+ =C2=A0 =C2=A0 =C2=A0 (lambda* (#:key inputs #:allow-other= -keys)
+ (substitute* "test-suite/tests/gobject.scm"
+ = =C2=A0 (("/dev/tty")
+ =C2=A0 =C2=A0"/dev/null"= ))))
+ =C2=A0 =C2=A0 (add-before 'configure 'substitute-libs+ =C2=A0 =C2=A0 =C2=A0 (lambda* (#:key inputs outputs #:allow-other-key= s)
+ (define (get lib)
+ =C2=A0 (search-input-file inputs
+ = =C2=A0 =C2=A0 =C2=A0(string-append "lib/" lib
+ = =C2=A0 =C2=A0 ".so")))
+ (let* ((libgi (get "libgirepo= sitory-1.0"))
+ (libglib (get "libglib-2.0"))
+ = (libgobject (get "libgobject-2.0"))
+ (libg-golf (string-ap= pend #$output
+ =C2=A0"/lib/libg-golf")))
+ =C2= =A0 (substitute* "g-golf/init.scm"
+ =C2=A0 =C2=A0 (("= libgirepository-1.0")
+ =C2=A0 =C2=A0 =C2=A0libgi)
+ =C2= =A0 =C2=A0 (("libglib-2.0")
+ =C2=A0 =C2=A0 =C2=A0libglib)<= br>+ =C2=A0 =C2=A0 (("libgobject-2.0")
+ =C2=A0 =C2=A0 = =C2=A0libgobject)
+ =C2=A0 =C2=A0 (("\\(dynamic-link \"libg= -golf\"\\)")
+ =C2=A0 =C2=A0 =C2=A0(format #f "~s"= ;
+ =C2=A0 =C2=A0 =C2=A0`(catch #t
+ (lambda ()
+ = =C2=A0 (dynamic-link "libg-golf"))
+ (lambda _
+ = =C2=A0 (dynamic-link ,libg-golf))))))
+ =C2=A0 (setenv "GUILE_AU= TO_COMPILE" "0") #t)))
+ =C2=A0 =C2=A0 (add-before '= ;check 'start-xorg-server-for-testing
+ =C2=A0 =C2=A0 =C2=A0 (lamb= da* (#:key inputs #:allow-other-keys)
+ (system "Xvfb :1 &&q= uot;)
+ (setenv "DISPLAY" ":1") #t)))))
+ (inp= uts (list guile-3.0 guile-lib glib-next))
+ (native-inputs (list autocon= f
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0automake
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0texinfo
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0gettext-minimal
+ =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0libtool
+= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0pkg-config
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0;; required for tests
+ =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0gtk+
+ =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0clutter
+ =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0xo= rg-server-for-tests
+ =C2=A0 =C2=A0 =C2=A0dbus))
+ (propagated-inpu= ts (list gobject-introspection-next))
+ (home-page "https://www.gnu.org/software/g-golf/&= quot;)
+ (synopsis "Guile bindings for GObject Introspection")=
+ (description
+ =C2=A0"G-Golf (Gnome: (Guile Object Library fo= r)) is a library for developing
=C2=A0modern applications in Guile Schem= e.=C2=A0 It comprises a direct binding to the
=C2=A0GObject Introspectio= n API and higher-level functionality for importing Gnome
=C2=A0libraries= and making GObject classes (and methods) available in Guile's
=C2= =A0object-oriented programming system, GOOPS.")
- =C2=A0 =C2=A0 =C2= =A0(license license:lgpl3+))))
+ (license license:lgpl3+)))
=C2=A0=C2=A0(define-public g-golf
=C2=A0 =C2=A0(deprecated-package "g-go= lf" guile-g-golf))
--
2.38.1

--0000000000001977a405f161cd8e--