me
/
guix
Archived
1
0
Fork 0
Code

gnu: tome4: Improve package style. 

* gnu/packages/games.scm (tome4)[inputs]: Remove labels.  Sort alphabetically.
[arguments]: Use G-expressions.
[description]: Remove useless sentence.

Change-Id: I144ae26dc03b5c49d5069e8722873437e6fde04d
Nicolas Goaziou 2023-10-23 20:02:54 +02:00
parent 1b354d785c
commit 571ee7903c
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 86 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

172
gnu/packages/games.scm
View File

@ -7338,98 +7338,98 @@ Crowther & Woods, its original authors, in 1995. It has been known as
(native-inputs (native-inputs
(list unzip)) (list unzip))
(inputs (inputs
`(("sdl-union" ,(sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf))) (list glu
("glu" ,glu) libvorbis
("premake4" ,premake4) luajit
("openal" ,openal) openal
("vorbis" ,libvorbis) premake4
("luajit" ,luajit))) (sdl-union (list sdl2 sdl2-image sdl2-mixer sdl2-ttf))))
(arguments (arguments
`(#:make-flags (list
(list (string-append "CC=" ,(cc-for-target)) #:tests? #false ;no test
"config=release") #:make-flags
;; XXX: Building in parallel occasionally causes this build failure: #~(list (string-append "CC=" #$(cc-for-target))
;; ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h: "config=release")
;; No such file or directory ;; XXX: Building in parallel occasionally causes this build failure:
#:parallel-build? #f ;; ../src/luajit2/src/host/buildvm.c:73:10: fatal error: buildvm_arch.h:
#:phases (modify-phases %standard-phases ;; No such file or directory
(delete 'bootstrap) #:parallel-build? #f
(replace 'configure #:phases
(lambda _ #~(modify-phases %standard-phases
(invoke "premake4" "gmake"))) (delete 'bootstrap)
(add-after 'set-paths 'set-sdl-paths (replace 'configure
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(setenv "CPATH" (invoke "premake4" "gmake")))
(string-append (add-after 'set-paths 'set-sdl-paths
(search-input-directory inputs "/include/SDL2") (lambda* (#:key inputs #:allow-other-keys)
":" (or (getenv "CPATH") ""))))) (setenv "CPATH"
(delete 'check) (string-append
;; premake doesn't provide install target (search-input-directory inputs "/include/SDL2")
(replace 'install ":" (or (getenv "CPATH") "")))))
(lambda* (#:key inputs outputs #:allow-other-keys) ;; premake doesn't provide install target
(let* ((out (assoc-ref outputs "out")) (replace 'install
(usr (string-append out "/usr")) (lambda* (#:key inputs outputs #:allow-other-keys)
(bin (string-append out "/bin")) (let* ((out (assoc-ref outputs "out"))
(licenses (string-append out "/share/licenses")) (usr (string-append out "/usr"))
(documents (string-append out "/share/doc")) (bin (string-append out "/bin"))
(pixmaps (string-append out "/share/pixmaps")) (licenses (string-append out "/share/licenses"))
(icon "te4-icon.png") (documents (string-append out "/share/doc"))
(data (string-append out "/share/" ,name)) (pixmaps (string-append out "/share/pixmaps"))
(applications (string-append (icon "te4-icon.png")
out "/share/applications")) (data (string-append out "/share/" #$name))
(unzip (string-append (applications (string-append
(assoc-ref inputs "unzip") "/bin/unzip")) out "/share/applications"))
(wrapper (string-append bin "/" ,name))) (unzip (string-append
;; icon (assoc-ref inputs "unzip") "/bin/unzip"))
(mkdir-p pixmaps) (wrapper (string-append bin "/" #$name)))
(invoke unzip "-j" ;; icon
(string-append (mkdir-p pixmaps)
"game/engines/te4-" ,version ".teae") (invoke unzip "-j"
(string-append (string-append
"data/gfx/" icon) "-d" pixmaps) "game/engines/te4-" #$version ".teae")
;; game executable (string-append
(install-file "t-engine" data) "data/gfx/" icon) "-d" pixmaps)
(mkdir-p bin) ;; game executable
(with-output-to-file wrapper (install-file "t-engine" data)
(lambda () (mkdir-p bin)
(display (with-output-to-file wrapper
(string-append (lambda ()
"#!/bin/sh\n" (display
;; No bootstrap code found, (string-append
;; defaulting to working directory "#!/bin/sh\n"
;; for engine code! ;; No bootstrap code found,
"cd " data "\n" ;; defaulting to working directory
"exec -a tome4 ./t-engine \"$@\"\n")))) ;; for engine code!
(chmod wrapper #o555) "cd " data "\n"
;; licenses "exec -a tome4 ./t-engine \"$@\"\n"))))
(for-each (lambda (file) (chmod wrapper #o555)
(install-file file licenses)) ;; licenses
'("COPYING" "COPYING-MEDIA")) (for-each (lambda (file)
;; documents (install-file file licenses))
(for-each (lambda (file) '("COPYING" "COPYING-MEDIA"))
(install-file file documents)) ;; documents
'("CONTRIBUTING" "CREDITS")) (for-each (lambda (file)
;; data (install-file file documents))
(copy-recursively "bootstrap" (string-append '("CONTRIBUTING" "CREDITS"))
data "/bootstrap")) ;; data
(copy-recursively "game" (string-append data "/game")) (copy-recursively "bootstrap" (string-append
;; launcher data "/bootstrap"))
(mkdir-p applications) (copy-recursively "game" (string-append data "/game"))
(make-desktop-entry-file ;; launcher
(string-append applications "/" ,name ".desktop") (mkdir-p applications)
#:name "ToME4" (make-desktop-entry-file
#:comment ,synopsis (string-append applications "/" #$name ".desktop")
#:exec ,name #:name "ToME4"
#:icon icon #:comment #$synopsis
#:categories '("Game" "RolePlaying")))))))) #:exec #$name
#:icon icon
#:categories '("Game" "RolePlaying"))))))))
(home-page "https://te4.org") (home-page "https://te4.org")
(description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based (description "Tales of Maj’Eyal (ToME) RPG, featuring tactical turn-based
combat and advanced character building. Play as one of many unique races and combat and advanced character building. Play as one of many unique races and
classes in the lore-filled world of Eyal, exploring random dungeons, facing classes in the lore-filled world of Eyal, exploring random dungeons, facing
challenging battles, and developing characters with your own tailored mix of challenging battles, and developing characters with your own tailored mix of
abilities and powers. With a modern graphical and customisable interface, abilities and powers.")
intuitive mouse control, streamlined mechanics and deep, challenging combat,
Tales of Maj’Eyal offers engaging roguelike gameplay for the 21st century.")
(license license:gpl3+))) (license license:gpl3+)))
(define-public quakespasm (define-public quakespasm