mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2024-12-23 23:34:52 +01:00
nongnu: Move playonlinux from the Gaming Channels to Nonguix.
* gnu/packages/playonlinux.scm: New file.
This commit is contained in:
Pierre Neidhardt
parent
d67458386a
commit
663543328c
1 changed files with 124 additions and 0 deletions
124
nongnu/packages/playonlinux.scm
Normal file
124
nongnu/packages/playonlinux.scm
Normal file
|
|
@ -0,0 +1,124 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>
|
||||
;;;
|
||||
;;; This file is not part of GNU Guix.
|
||||
;;;
|
||||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||||
;;; under the terms of the GNU General Public License as published by
|
||||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||||
;;; your option) any later version.
|
||||
;;;
|
||||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
;;; GNU General Public License for more details.
|
||||
;;;
|
||||
;;; You should have received a copy of the GNU General Public License
|
||||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
(define-module (nongnu packages playonlinux)
|
||||
#:use-module ((guix licenses) :prefix license:)
|
||||
#:use-module (guix packages)
|
||||
#:use-module (guix build-system python)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (gnu packages)
|
||||
#:use-module (gnu packages admin)
|
||||
#:use-module (gnu packages compression)
|
||||
#:use-module (gnu packages curl)
|
||||
#:use-module (gnu packages gl)
|
||||
#:use-module (gnu packages gnupg)
|
||||
#:use-module (gnu packages imagemagick)
|
||||
#:use-module (gnu packages python)
|
||||
#:use-module (gnu packages wget)
|
||||
#:use-module (gnu packages web)
|
||||
#:use-module (gnu packages wine)
|
||||
#:use-module (gnu packages wxwidgets)
|
||||
#:use-module (gnu packages xorg))
|
||||
|
||||
(define-public playonlinux
|
||||
(package
|
||||
(name "playonlinux")
|
||||
(version "4.3.4")
|
||||
(source (origin
|
||||
(method git-fetch)
|
||||
(uri (git-reference
|
||||
(url "https://github.com/PlayOnLinux/POL-POM-4")
|
||||
(commit version)))
|
||||
(sha256
|
||||
(base32
|
||||
"0xzdi6x4ksn4jiqa0z8j4rangn0aj1y7kqykan464mp2l585y76v"))))
|
||||
(build-system python-build-system)
|
||||
(arguments
|
||||
`(#:python ,python-2
|
||||
#:tests? #f
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-before 'build 'hardcode-paths
|
||||
(lambda _
|
||||
;; Do not search for python, call it from its store path
|
||||
(substitute* "bash/find_python"
|
||||
(("POL_PYTHON=\"\"")
|
||||
(string-append "POL_PYTHON=\"" (which "python") "\"")))
|
||||
;; Do the same for other tools
|
||||
(substitute* "python/lib/dpiFetcher.py"
|
||||
(("xrdb") (which "xrdb")))
|
||||
(substitute* "lib/setupwindow.lib"
|
||||
(("nc") (which "nc")))
|
||||
(substitute* "python/lib/Variables.py"
|
||||
(("curl") (which "curl"))
|
||||
(("wget ") (string-append (which "wget") " ")))
|
||||
(substitute* "lib/scripts.lib"
|
||||
(("\twget") (string-append "\t" (which "wget")))
|
||||
(("\tcabextract") (string-append "\t" (which "cabextract")))
|
||||
(("\tconvert") (string-append "\t" (which "convert"))))
|
||||
(substitute* "lib/playonlinux.lib"
|
||||
(("convert") (which "convert"))
|
||||
(("gpg ") (string-append (which "gpg") " ")))
|
||||
(substitute* "bash/polconfigurator"
|
||||
(("convert") (which "convert")))
|
||||
;; Also substitute a non essential tool, that is still
|
||||
;; needed to parse recipes
|
||||
(substitute* "lib/wine.lib"
|
||||
(("jq") (which "jq")))
|
||||
;; Do not warn if we can't find the tools, since they are
|
||||
;; called directly with their store path now.
|
||||
(substitute* "python/mainwindow.py"
|
||||
((".*self.singleCheckFatal.*") "")
|
||||
((".*self.singleCheck\\(\"jq\", package=\"jq\"\\).*") ""))
|
||||
#t))
|
||||
(replace 'build
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(invoke "make" (string-append "PREFIX=" (assoc-ref outputs "out")))))
|
||||
(replace 'install
|
||||
(lambda* (#:key outputs #:allow-other-keys)
|
||||
(invoke "make" "install" (string-append "PREFIX=" (assoc-ref outputs "out")))))
|
||||
(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)))))
|
||||
(inputs
|
||||
`(("cabextract" ,cabextract)
|
||||
("curl" ,curl)
|
||||
("gnupg" ,gnupg)
|
||||
("imagemagick" ,imagemagick)
|
||||
("jq" ,jq)
|
||||
("libx11" ,libx11)
|
||||
("mesa" ,mesa)
|
||||
("netcat" ,netcat)
|
||||
("python2-wxpython" ,python2-wxpython)
|
||||
("wget" ,wget)
|
||||
("wine" ,wine)
|
||||
("xrdb" ,xrdb)))
|
||||
(home-page "https://www.playonlinux.com/")
|
||||
(synopsis "Easy installer for Windows games")
|
||||
(description "PlayOnLinux is a piece of software which allows you to easily
|
||||
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+))))
|
||||
Loading…
Reference in a new issue