TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gnu: laby: Make laby function in pure environments.

Browse source 
* gnu/packages/games.scm (laby)
[build-system]: Switch to 'glib-or-gtk-build-system'.
[inputs]: Add 'gdk-pixbuf' and 'librsvg-for-system'.
[arguments]: Wrap to use SVG-enabled pixbuf loaders.cache.

Co-authored-by: Florian Pelz <pelzflorian@pelzflorian.de>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Ivana Drazovic 2023-04-19 21:53:55 +02:00 committed by Ludovic Courtès
parent 420b6a8555
commit 8cb6fc32a6
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/games.scm
View file

@ -219,6 +219,7 @@ (define-module (gnu packages games)
#:use-module (gnu packages xml)
#:use-module (guix build-system copy)
#:use-module (guix build-system cmake)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system gnu)
#:use-module (guix build-system go)
#:use-module (guix build-system meson)
@ -5901,9 +5902,15 @@ (define-public laby
(base32
"1y6nfxcjhqg9bb81hs0wijg7kcwk5kff81rgd8bsv5ps7ia9nj6b"))
(patches (search-patches "laby-make-install.patch"))))
(build-system gnu-build-system)
(build-system glib-or-gtk-build-system)
(inputs
(list lablgtk3 ocaml-lablgtk3-sourceview3 ocaml ocaml-findlib ocamlbuild))
(list gdk-pixbuf
lablgtk3
(librsvg-for-system)
ocaml-lablgtk3-sourceview3
ocaml
ocaml-findlib
ocamlbuild))
(arguments
(list #:phases
#~(modify-phases %standard-phases
@ -5912,7 +5919,15 @@ (define-public laby
(lambda* (#:key inputs #:allow-other-keys)
(let ((lablgtk #$(this-package-input "lablgtk")))
(setenv "LD_LIBRARY_PATH"
(string-append lablgtk "/lib/ocaml/stublibs"))))))
(string-append lablgtk "/lib/ocaml/stublibs")))))
(add-after 'glib-or-gtk-wrap 'wrap-pixbuf
(lambda* (#:key outputs #:allow-other-keys)
(let ((laby (string-append #$output "/bin/laby")))
(wrap-program laby
;; Wrapping GDK_PIXBUF_MODULE_FILE allows laby to
;; function in pure environments.
`("GDK_PIXBUF_MODULE_FILE" =
(,(getenv "GDK_PIXBUF_MODULE_FILE"))))))))
#:tests? #f ; no 'check' target
#:make-flags
#~(list (string-append "PREFIX=" #$output) "all")))