#!/usr/local/bin/guile
!#

(define-module (games eduke32)
  #:use-module ((guix packages)
                #:select (package origin base32))
  #:use-module ((guix download)
                #:select (url-fetch))
  #:use-module ((guix licenses) #:select (gpl2))
  #:use-module ((guix build-system gnu) #:select (gnu-build-system))
  #:use-module ((guix build-system trivial) #:select (trivial-build-system))
  ;; Inputs
  #:use-module ((gnu packages sdl)
                #:select (sdl-union sdl2 sdl2-mixer))
  #:use-module ((gnu packages gl)
                #:select (glu))
  #:use-module ((gnu packages pkg-config)
                #:select (pkg-config))
  #:use-module ((gnu packages xiph)
                #:select (libvorbis flac))
  #:use-module ((gnu packages video)
                #:select (libvpx))
  #:use-module ((gnu packages gtk)
                #:select (gtk+-2)))


(define-public eduke32
  (package
    (name "eduke32")
    (version "20181027-7136")
    (source
      (origin
        (method url-fetch)
        (uri (string-append "http://dukeworld.duke4.net/eduke32/synthesis/"
                            version
                            "/eduke32_src_"
                            version
                            ".tar.xz"))
        (sha256
          (base32 "121k2k7ylw8dvs71mrdy7hwb1a2xd5di7jdqc20a1ml5k0n9akpn"))))
    (build-system gnu-build-system)
    (arguments
      `(#:tests? #f
        #:phases
        (modify-phases %standard-phases
          (delete 'configure)
          (delete 'install))))
    (native-inputs
      `(("pkg-config" ,pkg-config)))
    (inputs
      `(("sdl-union" ,(sdl-union (list sdl2 sdl2-mixer)))
        ("glu" ,glu)
        ("libvorbis" ,libvorbis)
        ("libvpx" ,libvpx)
        ("flac" ,flac)
        ("gtk+" ,gtk+-2)))
    (synopsis "Source port of the classic PC first person shooter Duke Nukem 3D")
    (description "EDuke32 is an awesome, free homebrew game engine and source port of the
classic PC first person shooter Duke Nukem 3D—Duke3D for short—to Windows,
Linux, Mac OS X, FreeBSD, several handhelds, your family toaster, and to your
girlfriend's vibrator. We've added thousands of cool and useful features and
upgrades for regular players and additional editing capabilities and scripting
extensions for homebrew developers and mod creators. EDuke32 is open source
software that is completely free to use for all non-commercial purposes.")
    (home-page "http://eduke32.com/")
    (license (list gpl2))))
    
eduke32