bartronx7/nonguix
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2026-01-25 03:54:58 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

nongnu: playonlinux: Revise package style.

Browse source 
* nongnu/packages/playonlinux.scm (playonlinux) [arguments]: Use G-expressions.
Remove trailing #t.
This commit is contained in:
Hilton Chain 2026-01-12 20:00:15 +08:00
parent d23305ef56
commit 40845d1739
No known key found for this signature in database
GPG key ID: ACC66D09CA528292
1 changed files with 50 additions and 53 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
nongnu/packages/playonlinux.scm
View file

@ -3,6 +3,7 @@
(define-module (nongnu packages playonlinux)
#:use-module ((guix licenses) :prefix license:)
#:use-module (guix gexp)
#:use-module (guix packages)
#:use-module (guix build-system pyproject)
#:use-module (guix git-download)
@ -34,10 +35,11 @@
"0jw43fmc298gb7ga2aldcdyrwlhki5k6hc198pl5x987x4gxfg2h"))))
(build-system pyproject-build-system)
(arguments
`(#:python ,python-2
(list
#:python python-2
#:tests? #f
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-before 'build 'hardcode-paths
(lambda _
;; Do not search for python, call it from its store path
@ -69,21 +71,18 @@
;; called directly with their store path now.
(substitute* "python/mainwindow.py"
((".*self.singleCheckFatal.*") "")
((".*self.singleCheck\\(\"jq\", package=\"jq\"\\).*") ""))
#t))
((".*self.singleCheck\\(\"jq\", package=\"jq\"\\).*") ""))))
(replace 'build
(lambda* (#:key outputs #:allow-other-keys)
(invoke "make" (string-append "PREFIX=" (assoc-ref outputs "out")))))
(lambda _
(invoke "make" (string-append "PREFIX=" #$output))))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(invoke "make" "install" (string-append "PREFIX=" (assoc-ref outputs "out")))))
(lambda _
(invoke "make" "install" (string-append "PREFIX=" #$output))))
(add-after 'install 'symlink-locales
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/share/playonlinux/lang"))
(symlink (string-append out "/share/locale")
(string-append out "/share/playonlinux/lang/locale")))
#t)))))
(lambda _
(mkdir-p (string-append #$output "/share/playonlinux/lang"))
(symlink (string-append #$output "/share/locale")
(string-append #$output "/share/playonlinux/lang/locale")))))))
(inputs
(list cabextract
curl
@ -104,6 +103,4 @@ install and use numerous games and apps designed to run with Microsoft
Windows. Few games are compatible with GNU/Linux at the moment and it
certainly is a factor preventing the migration to this system. PlayOnLinux
brings a cost-free, accessible and efficient solution to this problem.")
(license (list
license:gpl2+
license:gpl3+))))
(license (list license:gpl2+ license:gpl3+))))