@@ -23,6 +23,7 @@
;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.lonestar.org>
;;; Copyright © 2019 raingloom <raingloom@protonmail.com>
+;;; Copyright © 2019 Mikhail Kirillov <w96k@member.fsf.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -4592,3 +4593,45 @@ with error and volume history, and advanced features.")
;; Most of the code is under GPL2+, but some abstract or helper classes
;; are under LGPL2.1.
(license (list license:gpl2+ license:lgpl2.1))))
+
+(define-public goattracker
+ (package
+ (name "goattracker")
+ (version "2.75")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "mirror://sourceforge/goattracker2/GoatTracker 2/"
+ version "/GoatTracker_" version ".zip"))
+ (sha256
+ (base32
+ "1km97nl7qvk6qc5l5j69wncbm76hf86j47sgzgr968423g0bxxlk"))))
+ (arguments
+ `(#:tests? #f
+ #:make-flags '("CC=gcc")
+ #:phases
+ (modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'prepare
+ (lambda _
+ (chdir "src")
+ (invoke "make" "clean")
+ #t))
+ (replace 'install
+ (lambda* (#:key inputs outputs #:allow-other-keys)
+ (chdir "../linux")
+ (invoke "ln" "-s" "goattrk2" "goattracker")
+ (copy-recursively "./" (string-append
+ (assoc-ref %outputs "out")
+ "/bin"))
+ #t)))))
+ (native-inputs
+ `(("sdl" ,sdl)
+ ("unzip" ,unzip)))
+ (build-system gnu-build-system)
+ (synopsis "Crossplatform C64 music tracker")
+ (description "GoatTracker is a cross-platform tracker written by Lasse
+Öörni, producing SID chiptune music for the Commodore 64, and released with
+source code under the GPL.")
+ (home-page "https://goattracker2.sourceforge.io/")
+ (license license:gpl2)))