From 663543328cb5096cddd69a8d9a49a244fe6c8ad7 Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Wed, 18 Dec 2019 15:58:34 +0100 Subject: nongnu: Move playonlinux from the Gaming Channels to Nonguix. * gnu/packages/playonlinux.scm: New file. --- nongnu/packages/playonlinux.scm | 124 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 124 insertions(+) create mode 100644 nongnu/packages/playonlinux.scm (limited to 'nongnu/packages/playonlinux.scm') diff --git a/nongnu/packages/playonlinux.scm b/nongnu/packages/playonlinux.scm new file mode 100644 index 0000000..7a7c727 --- /dev/null +++ b/nongnu/packages/playonlinux.scm @@ -0,0 +1,124 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2019 Julien Lepiller +;;; +;;; 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 . + +(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+)))) -- cgit v1.2.3