From d2ca3fe8b59c93baf9f5c29b14710e5d1eed2e7a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 28 Oct 2022 08:00:48 -0400 Subject: First commit! --- guix.scm | 197 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 197 insertions(+) create mode 100644 guix.scm (limited to 'guix.scm') diff --git a/guix.scm b/guix.scm new file mode 100644 index 0000000..684e13a --- /dev/null +++ b/guix.scm @@ -0,0 +1,197 @@ +(use-modules (ice-9 match) + (srfi srfi-1) + (guix build-system gnu) + (guix download) + (guix gexp) + (guix git-download) + ((guix licenses) #:prefix license:) + (guix packages) + (guix utils) + (gnu packages) + (gnu packages audio) + (gnu packages autotools) + (gnu packages fontutils) + (gnu packages gl) + (gnu packages guile) + (gnu packages image) + (gnu packages maths) + (gnu packages mp3) + (gnu packages pkg-config) + (gnu packages readline) + (gnu packages sdl) + (gnu packages texinfo) + (gnu packages xiph)) + +(define target-guile guile-3.0-latest) + +(define guile3.0-opengl + (package + (inherit guile-opengl) + (inputs + (modify-inputs (package-inputs guile-opengl) + (replace "guile" target-guile))) + (native-inputs + (modify-inputs (package-native-inputs guile-opengl) + (append autoconf automake))) + (arguments + (substitute-keyword-arguments (package-arguments guile-opengl) + ((#:phases phases) + `(modify-phases ,phases + (delete 'patch-makefile) + (add-before 'bootstrap 'patch-configure.ac + (lambda _ + ;; The Guile version check doesn't work for the 3.0 + ;; pre-release, so just remove it. + (substitute* "configure.ac" + (("GUILE_PKG\\(\\[2.2 2.0\\]\\)") "")) + (substitute* "Makefile.am" + (("\\$\\(GUILE_EFFECTIVE_VERSION\\)") "3.0") + (("ccache") "site-ccache")) + #t)) + (replace 'bootstrap + (lambda _ + (invoke "autoreconf" "-vfi"))))))))) + +(define guile-sdl2 + (let ((commit "e9a7f5e748719ce5b6ccd08ff91861b578034ea6")) + (package + (name "guile-sdl2") + (version (string-append "0.8.0-1." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.dthompson.us/guile-sdl2.git") + (commit commit))) + (sha256 + (base32 + "0ay7mcar8zs0j5rihwlzi0l46vgg9i93piip4v8a3dzwjx3myr7v")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags '("GUILE_AUTO_COMPILE=0") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + (invoke "sh" "bootstrap")))))) + (native-inputs (list autoconf automake pkg-config texinfo)) + (inputs (list target-guile sdl2)) + (synopsis "Guile bindings for SDL2") + (description "Guile-sdl2 provides pure Guile Scheme bindings to the +SDL2 C shared library via the foreign function interface.") + (home-page "https://git.dthompson.us/guile-sdl2.git") + (license license:lgpl3+)))) + +(define chickadee + (let ((commit "4047c0d0a92eae8a7394b4caa479d0cb6dd9017c")) + (package + (name "chickadee") + (version (string-append "0.8.0-1." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.dthompson.us/chickadee.git") + (commit commit))) + (sha256 + (base32 + "14aa9bkwrsfl8i81zd0fzn0xryyhn8ac16hwdzx40p5az86nq7k6")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags '("GUILE_AUTO_COMPILE=0") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + (invoke "sh" "bootstrap")))))) + (native-inputs (list autoconf automake pkg-config texinfo)) + (inputs (list freetype + libjpeg-turbo + libpng + libvorbis + mpg123 + openal + readline + target-guile)) + (propagated-inputs (list guile3.0-opengl guile-sdl2)) + (synopsis "Game development toolkit for Guile Scheme") + (description "Chickadee is a game development toolkit for Guile +Scheme. It contains all of the basic components needed to develop +2D/3D video games.") + (home-page "https://dthompson.us/projects/chickadee.html") + (license license:gpl3+)))) + +(define catbird + (let ((commit "1700827a7f4694375226faffcc466709ec8c79d9")) + (package + (name "catbird") + (version (string-append "0.1.0-1." (string-take commit 7))) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.dthompson.us/catbird.git") + (commit commit))) + (sha256 + (base32 + "1qa286kp3vzc0chjf9f42lzfz0n5z8hizsndpg8bjs0lqgbba9k7")))) + (build-system gnu-build-system) + (arguments + '(#:make-flags '("GUILE_AUTO_COMPILE=0") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + (invoke "sh" "bootstrap")))))) + (native-inputs (list autoconf automake pkg-config texinfo)) + (inputs (list target-guile)) + (propagated-inputs (list chickadee guile-sdl2)) + (synopsis "Game engine for Guile Scheme") + (description "Catbird is a game engine for Guile.") + (home-page "https://git.dthompson.us/catbird.git") + (license license:gpl3+)))) + +(define %source-dir (dirname (current-filename))) + +(package + (name "lisp-game-jam-2022") + (version "1.0") + (source (local-file %source-dir + #:recursive? #t + #:select? (git-predicate %source-dir))) + (build-system gnu-build-system) + (arguments + `(#:modules (((guix build guile-build-system) + #:select (target-guile-effective-version)) + (ice-9 match) + (ice-9 ftw) + ,@%gnu-build-system-modules) + #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) + #:make-flags '("GUILE_AUTO_COMPILE=0") + #:phases + (modify-phases %standard-phases + (add-after 'unpack 'bootstrap + (lambda _ + (invoke "sh" "bootstrap"))) + (add-after 'install 'wrap-script + (lambda* (#:key inputs outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (version (target-guile-effective-version)) + (scm (string-append out "/share/guile/site/" version)) + (go (string-append out "/lib/guile/" version "/site-ccache")) + (guile (which "guile"))) + (substitute* (string-append out "/bin/apple-town-fair") + (("exec guile" cmd) + (string-append "export GUILE_LOAD_PATH=\"" + scm ":" + (getenv "GUILE_LOAD_PATH") + "\"\n" + "export GUILE_LOAD_COMPILED_PATH=\"" + go ":" + (getenv "GUILE_LOAD_COMPILED_PATH") + "\"\n" + "exec " guile))))))))) + (native-inputs (list autoconf automake pkg-config)) + (inputs (list target-guile)) + (propagated-inputs (list catbird)) + (synopsis "Lisp Game Jam 2022 entry") + (description "Dave's Lisp Game 2022 entry.") + (home-page "https://git.dthompson.us/lisp-game-jam-2022.git") + (license license:gpl3+)) -- cgit v1.2.3