~ruther/guix-local

0882a1b70117a7fea0e264ab6facbb845a9fda07 — Mark L 11 months ago f4a01ff
gnu: openttd-opengfx: Update to 3739bbe.

* gnu/packages/games.scm (openttd-opengfx): Update to 3739bbe.
[source]: Use ‘git-fetch’ and change URL.
[arguments]: Define ‘REPO_DATE’ and ‘PYTHON’.

Change-Id: I10a43f7e220337bbea7cbf0a2b62d636603c8e97
Modified-by: Ludovic Courtès <ludo@gnu.org>
1 files changed, 62 insertions(+), 54 deletions(-)

M gnu/packages/games.scm
M gnu/packages/games.scm => gnu/packages/games.scm +62 -54
@@ 5406,61 5406,69 @@ engine.  When you start it you will be prompted to download a graphics set.")
    (license (list license:bsd-3 license:gpl2 license:lgpl2.1+ license:zlib))))

(define openttd-opengfx
  (package
    (name "openttd-opengfx")
    (version "7.1")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "https://cdn.openttd.org/opengfx-releases/"
                           version "/opengfx-" version "-source.tar.xz"))
       (sha256
        (base32
         "0nhzlk6s73qvznm5fdwcs1b42g2plf26s5ag39fvck45zm7m48jk"))))
    (build-system gnu-build-system)
    (arguments
     (list
      #:make-flags
      #~(list (string-append "CC=" #$(cc-for-target))
              (string-append "INSTALL_DIR="
                             #$output
                             "/share/games/openttd/baseset/opengfx"))
      #:phases
      #~(modify-phases %standard-phases
          (replace 'configure
            (lambda _
              ;; Make sure HOME is writable for GIMP.
              (setenv "HOME" (getcwd))
  (let ((commit "3739bbe9bdcd5bfbb2f720a99667f77d31caf02f")
        (revision "0"))
    (package
      (name "openttd-opengfx")
      (version (git-version "7.1" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://github.com/openttd/opengfx")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "03fhzlv4935868lxpdik7afz8cgsnzwr38a2blzmvy18c4lzc4m3"))))
      (build-system gnu-build-system)
      (arguments
       (list
        #:make-flags
        #~(list (string-append "CC=" #$(cc-for-target))
                (string-append "INSTALL_DIR="
                               #$output
                               "/share/games/openttd/baseset/opengfx")
                "REPO_DATE=20000101"
                (string-append "PYTHON="
                               #$(this-package-native-input "python")
                               "/bin/python3"))
        #:phases
        #~(modify-phases %standard-phases
            (replace 'configure
              (lambda _
                ;; Make sure HOME is writable for GIMP.
                (setenv "HOME" (getcwd))

              (mkdir-p ".local/share")
              (symlink (string-append #$(this-package-native-input "shared-mime-info")
                                      "/share/mime")
                       ".local/share/mime")
                (mkdir-p ".local/share")
                (symlink (string-append #$(this-package-native-input "shared-mime-info")
                                        "/share/mime")
                         ".local/share/mime")

              ;; Redirect stdout, not stderr, to /dev/null. This prevents
              ;; dos2unix from receiving its version information as a flag.
              (substitute* "Makefile"
                (("\\$\\(UNIX2DOS\\) -q --version 2>/dev/null")
                 "$(UNIX2DOS) -q --version 1>/dev/null")))))
       ;; The check phase for this package only checks the md5sums of the built
       ;; GRF files against the md5sums of the release versions. Because we use
       ;; different software versions than upstream does, some of the md5sums
       ;; are different. However, the package is still reproducible, it's safe
       ;; to disable this test.
       #:tests? #f
       #:parallel-build? #f))
    (native-inputs
     (list dos2unix
           shared-mime-info
           gimp
           grfcodec
           nml
           which
           python))
    (home-page "http://dev.openttdcoop.org/projects/opengfx")
    (synopsis "Base graphics set for OpenTTD")
    (description
     "The OpenGFX project is an implementation of the OpenTTD base graphics
                ;; Redirect stdout, not stderr, to /dev/null. This prevents
                ;; dos2unix from receiving its version information as a flag.
                (substitute* "Makefile"
                  (("\\$\\(UNIX2DOS\\) -q --version 2>/dev/null")
                   "$(UNIX2DOS) -q --version 1>/dev/null")))))
        ;; The check phase for this package only checks the md5sums of the built
        ;; GRF files against the md5sums of the release versions. Because we use
        ;; different software versions than upstream does, some of the md5sums
        ;; are different. However, the package is still reproducible, it's safe
        ;; to disable this test.
        #:tests? #f
        #:parallel-build? #f))
      (native-inputs
       (list dos2unix
             shared-mime-info
             gimp
             grfcodec
             nml
             which
             python))
      (home-page "http://dev.openttdcoop.org/projects/opengfx")
      (synopsis "Base graphics set for OpenTTD")
      (description
       "The OpenGFX project is an implementation of the OpenTTD base graphics
set that aims to ensure the best possible out-of-the-box experience.

OpenGFX provides you with...


@@ 5471,7 5479,7 @@ OpenGFX provides you with...
@item Different river and sea water.
@item Snow-aware buoys.
@end enumerate")
    (license license:gpl2)))
      (license license:gpl2))))

(define openttd-opensfx
  (package