me
/
guix
Archived
1
0
Fork 0
Code

gnu: tsukundere: Update to 0.3.0. 

* gnu/packages/game-development.scm (tsukundere): Update to 0.3.0.
[patch-command]: Patch path to guile.  Construct load paths directly from
inputs.
[propagated-inputs]: Remove.
[inputs]: Add guile and guile-sdl2.
master
Leo Prikler 2021-04-16 12:50:57 +02:00
parent 938ffcbb05
commit 13b1319092
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 33 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
gnu/packages/game-development.scm
View File

@ -493,7 +493,7 @@ clone.")
(define-public tsukundere (define-public tsukundere
(package (package
(name "tsukundere") (name "tsukundere")
(version "0.2.3") (version "0.3.0")
(source (origin (source (origin
(method git-fetch) (method git-fetch)
(uri (git-reference (uri (git-reference
@ -502,10 +502,12 @@ clone.")
(file-name (git-file-name name version)) (file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32
"05ckds2df810441wfavllx9lsw5jsc9h3nb7m31df01nsj56azdw")))) "06jiaylbnx8khicsaq2gwnd8wspjhjymbb5z6x5445krklk0jx18"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:modules (((guix build guile-build-system) `(#:modules ((ice-9 match)
(srfi srfi-1)
((guix build guile-build-system)
#:select (target-guile-effective-version)) #:select (target-guile-effective-version))
,@%gnu-build-system-modules) ,@%gnu-build-system-modules)
#:imported-modules ((guix build guile-build-system) #:imported-modules ((guix build guile-build-system)
@ -513,22 +515,33 @@ clone.")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-command (add-after 'unpack 'patch-command
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((scm (lambda (in)
(version (target-guile-effective-version)) (string-append in "/share/guile/site/"
(scm (string-append out "/share/guile/site/" (target-guile-effective-version))))
version)) (ccache (lambda (in)
(go (string-append out "/lib/guile/" (string-append in "/lib/guile/"
version "/site-ccache"))) (target-guile-effective-version)
"/site-ccache")))
(pkgs
(cons
(assoc-ref outputs "out")
(filter-map
(match-lambda
(("guile" . pkg) pkg)
((label . pkg)
(and (string-prefix? "guile-" label) pkg)))
inputs))))
(substitute* "bin/tsukundere" (substitute* "bin/tsukundere"
(("exec guile .*" all) (("exec guile (.*)" _ args)
(string-append (string-append
(format #f "export GUILE_LOAD_PATH=~@?~%" (format #f "export GUILE_LOAD_PATH=\"~@?\"~%"
"\"~a:~a\"" scm (getenv "GUILE_LOAD_PATH")) "~{~a~^:~}" (map scm pkgs))
(format #f "export GUILE_LOAD_COMPILED_PATH=~@?~%" (format #f "export GUILE_LOAD_COMPILED_PATH=\"~@?\"~%"
"\"~a:~a\"" go (getenv "GUILE_LOAD_COMPILED_PATH")) "~{~a~^:~}" (map ccache pkgs))
all))) "exec "
(assoc-ref inputs "guile")
"/bin/guile " args)))
#t)))))) #t))))))
(native-inputs (native-inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf)
@ -536,8 +549,9 @@ clone.")
("guile" ,guile-3.0) ("guile" ,guile-3.0)
("pkg-config" ,pkg-config) ("pkg-config" ,pkg-config)
("texinfo" ,texinfo))) ("texinfo" ,texinfo)))
(propagated-inputs (inputs
`(("guile-sdl2" ,guile3.0-sdl2))) `(("guile-sdl2" ,guile3.0-sdl2)
("guile" ,guile-3.0)))
(home-page "https://gitlab.com/leoprikler/tsukundere") (home-page "https://gitlab.com/leoprikler/tsukundere")
(synopsis "Visual novel engine") (synopsis "Visual novel engine")
(description "Tsukundere is a game engine geared heavily towards the (description "Tsukundere is a game engine geared heavily towards the