From 89b091a65f15bc9a638ddf1414b2ce3a1648e4af Mon Sep 17 00:00:00 2001 From: Jesse Gibbons Date: Mon, 20 Jul 2020 20:35:09 -0600 Subject: gnu: Add npiet. * gnu/packages/piet.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. Signed-off-by: Efraim Flashner --- gnu/packages/piet.scm | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 70 insertions(+) create mode 100644 gnu/packages/piet.scm (limited to 'gnu/packages') diff --git a/gnu/packages/piet.scm b/gnu/packages/piet.scm new file mode 100644 index 0000000000..5282290456 --- /dev/null +++ b/gnu/packages/piet.scm @@ -0,0 +1,70 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright © 2020 Jesse Gibbons +;;; +;;; This file is 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 . + +(define-module (gnu packages piet) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix build-system gnu) + #:use-module (gnu packages gd) + #:use-module (gnu packages groff) + #:use-module (gnu packages image) + #:use-module (gnu packages tcl)) + +(define-public npiet + (package + (name "npiet") + (version "1.3f") + (source (origin + (method url-fetch) + (uri (string-append "https://www.bertnase.de/npiet/npiet-" + version ".tar.gz")) + (sha256 + (base32 + "0nl59fhdqqr7nslxdirdn8nvlq5wws67c7jyx2ckbmxbc9h8bv9d")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'install 'wrap-binaries + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (wrap-program (string-append out "/bin/npietedit") + `("PATH" ":" prefix (,(dirname (which "wish"))))) + #t)))))) + (inputs + `(("gd" ,gd) + ("giflib" ,giflib) + ("libpng" ,libpng) + ("tk" ,tk))) + (native-inputs `(("groff" ,groff))) + (synopsis "Piet interpreter") + (description + "Npiet is an interpreter for the piet programming language. Instead of +text, piet programs are pictures. Commands are determined based on changes in +color. + +This package includes: +@enumerate +@item npiet, a piet interpreter with debugging capabilities +@item npiet-foogol, a program that builds a piet program from foogol, an +algol-like language +@item npietedit, an editor for the piet programming language +@end enumerate") + (home-page "https://www.bertnase.de/npiet/") + (license license:gpl2+))) -- cgit v1.2.3