mirror of
https://gitlab.com/nonguix/nonguix.git
synced 2024-11-30 12:14:11 +01:00
124 lines
5.2 KiB
Scheme
124 lines
5.2 KiB
Scheme
;;; 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+))))
|