Hello Ian, > I'll submit a patch: please allow me to send the patch to this list, > I not a guix-patches list member.
Attached. Please review and apply asap. Thanks, David
From cd3e10080b68f11e1027f5bc9b1b11226393139b Mon Sep 17 00:00:00 2001
From: David Pirotte <da...@altosw.be>
Date: Sun, 16 Feb 2025 16:45:08 -0300
Subject: [PATCH] gnu: packages: remove g-golf
* gnu/packages/guile-xyz.scm: Remove the guile-g-golf, g-golf and
guile2.2-g-golf package definition.
---
gnu/packages/guile-xyz.scm | 97 --------------------------------------
1 file changed, 97 deletions(-)
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 295f69d2de..62838a120e 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -2519,103 +2519,6 @@ (define-public guile-sly
(home-page "https://dthompson.us/projects/sly.html";)
(license license:gpl3+)))
-(define-public guile-g-golf
- (package
- (name "guile-g-golf")
- (version "0.8.0")
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://git.savannah.gnu.org/git/g-golf.git";)
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256
- (base32 "14b6pjchra0axqifpm90m7jbxla2sarhd7bfhzqbn7d14b74sv2d"))))
- (build-system gnu-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)
- ;; 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+
- 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
-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+)))
-
-(define-public g-golf
- (deprecated-package "g-golf" guile-g-golf))
-
-(define-public guile2.2-g-golf
- (package
- (inherit guile-g-golf)
- (name "guile2.2-g-golf")
- (inputs
- (modify-inputs (package-inputs guile-g-golf)
- (replace "guile" guile-2.2)
- (replace "guile-lib" guile2.2-lib)))))
-
(define-public g-wrap
(package
(name "g-wrap")
--
2.47.2
pgpy5m8LSlWW0.pgp
Description: OpenPGP digital signature
