me/guix
Archived
1
0
Fork 0
Code Activity

gnu: guile-g-golf: Update to 0.8.0-a.1.

Browse source 
* gnu/packages/guile-xyz.scm (guile-g-golf): Update to 0.8.0-a.1.
[arguments]: Add #:parallel-build? #f.
[inputs]: Replace glib with glib-next.
[propagated-inputs]: Replace gobject-introspection with gobject-introspection-next.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Preston Firestone 2023-01-04 21:21:53 +01:00 • committed by Liliana Marie Prikler
parent 96cb7b06bd
commit 145ad41ef3
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 79 additions and 80 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

159
gnu/packages/guile-xyz.scm
View file

@ -2235,91 +2235,90 @@ capabilities.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public guile-g-golf (define-public guile-g-golf
(let ((commit "1824633d37da3794f349d6829e9dac2cf89adaa8") (package
(revision "1010")) (name "guile-g-golf")
(package (version "0.8.0-a.1")
(name "guile-g-golf") (source
(version (git-version "0.1.0" revision commit)) (origin
(source (method git-fetch)
(origin (uri (git-reference
(method git-fetch) (url "https://git.savannah.gnu.org/git/g-golf.git")
(uri (git-reference (commit (string-append "v" version))))
(url "https://git.savannah.gnu.org/git/g-golf.git") (file-name (git-file-name name version))
(commit commit))) (sha256
(file-name (git-file-name name version)) (base32 "1lszlssa6k8dhhya5px271gfzas7fyy1iwjqmlxibz5vdirzi565"))))
(sha256 (build-system gnu-build-system)
(base32 "0ncpqv6pbsx9fjmdzvzbjljnhqgw9pynqy9vr9aq35nb7rzrhfdf")))) (arguments
(build-system gnu-build-system) (list
(arguments #:configure-flags
(list #~(list "--with-guile-site=no")
#:configure-flags #:parallel-build? #f
#~(list "--with-guile-site=no") #:phases
#:phases #~(modify-phases %standard-phases
#~(modify-phases %standard-phases (add-after 'unpack 'fix-guile-site-directory
(add-after 'unpack 'fix-guile-site-directory (lambda _
(lambda _ (substitute* "configure.ac"
(substitute* "configure.ac" (("SITEDIR=.*$")
(("SITEDIR=.*$") "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\";\n")
"SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\";\n") (("SITECCACHEDIR=\"\\$libdir/g-golf/")
(("SITECCACHEDIR=\"\\$libdir/g-golf/") "SITECCACHEDIR=\"$libdir/"))))
"SITECCACHEDIR=\"$libdir/")))) (add-before 'configure 'tests-work-arounds
(add-before 'configure 'tests-work-arounds (lambda* (#:key inputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys) ;; In build environment, There is no /dev/tty
;; In build environment, There is no /dev/tty (substitute* "test-suite/tests/gobject.scm"
(substitute* "test-suite/tests/gobject.scm" (("/dev/tty") "/dev/null"))))
(("/dev/tty") "/dev/null")))) (add-before 'configure 'substitute-libs
(add-before 'configure 'substitute-libs (lambda* (#:key inputs outputs #:allow-other-keys)
(lambda* (#:key inputs outputs #:allow-other-keys) (define (get lib)
(define (get lib) (search-input-file inputs (string-append "lib/" lib ".so")))
(search-input-file inputs (string-append "lib/" lib ".so")))
(let* ((libgi (get "libgirepository-1.0")) (let* ((libgi (get "libgirepository-1.0"))
(libglib (get "libglib-2.0")) (libglib (get "libglib-2.0"))
(libgobject (get "libgobject-2.0")) (libgobject (get "libgobject-2.0"))
(libg-golf (string-append #$output "/lib/libg-golf"))) (libg-golf (string-append #$output "/lib/libg-golf")))
(substitute* "g-golf/init.scm" (substitute* "g-golf/init.scm"
(("libgirepository-1.0") libgi) (("libgirepository-1.0") libgi)
(("libglib-2.0") libglib) (("libglib-2.0") libglib)
(("libgobject-2.0") libgobject) (("libgobject-2.0") libgobject)
(("\\(dynamic-link \"libg-golf\"\\)") (("\\(dynamic-link \"libg-golf\"\\)")
(format #f "~s" (format #f "~s"
`(catch #t `(catch #t
(lambda () (lambda ()
(dynamic-link "libg-golf")) (dynamic-link "libg-golf"))
(lambda _ (lambda _
(dynamic-link ,libg-golf)))))) (dynamic-link ,libg-golf))))))
(setenv "GUILE_AUTO_COMPILE" "0") (setenv "GUILE_AUTO_COMPILE" "0")
#t))) #t)))
(add-before 'check 'start-xorg-server (add-before 'check 'start-xorg-server
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; The test suite requires a running X server. ;; The test suite requires a running X server.
(system "Xvfb :1 &") (system "Xvfb :1 &")
(setenv "DISPLAY" ":1") (setenv "DISPLAY" ":1")
#t))))) #t)))))
(inputs (inputs
(list guile-3.0 guile-lib glib)) (list guile-3.0 guile-lib glib-next))
(native-inputs (native-inputs
(list autoconf (list autoconf
automake automake
texinfo texinfo
gettext-minimal gettext-minimal
libtool libtool
pkg-config pkg-config
;; required for tests ;; required for tests
gtk+ gtk+
clutter clutter
xorg-server-for-tests)) xorg-server-for-tests))
(propagated-inputs (propagated-inputs
(list gobject-introspection)) (list gobject-introspection-next))
(home-page "https://www.gnu.org/software/g-golf/") (home-page "https://www.gnu.org/software/g-golf/")
(synopsis "Guile bindings for GObject Introspection") (synopsis "Guile bindings for GObject Introspection")
(description (description
"G-Golf (Gnome: (Guile Object Library for)) is a library for developing "G-Golf (Gnome: (Guile Object Library for)) is a library for developing
modern applications in Guile Scheme. It comprises a direct binding to the modern applications in Guile Scheme. It comprises a direct binding to the
GObject Introspection API and higher-level functionality for importing Gnome GObject Introspection API and higher-level functionality for importing Gnome
libraries and making GObject classes (and methods) available in Guile's libraries and making GObject classes (and methods) available in Guile's
object-oriented programming system, GOOPS.") object-oriented programming system, GOOPS.")
(license license:lgpl3+)))) (license license:lgpl3+)))
(define-public g-golf (define-public g-golf
(deprecated-package "g-golf" guile-g-golf)) (deprecated-package "g-golf" guile-g-golf))