From 03978ab7f4870babc9341a1f93709b1d89ec7e98 Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Wed, 14 Apr 2021 20:07:54 +0900
Subject: Add guile-sicp-picture-language.

* tojo-tokyo/packages/guile-xyz.scm (guile-sicp-picture-language): New file.
---
 tojo-tokyo/packages/guile-xyz.scm | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/tojo-tokyo/packages/guile-xyz.scm b/tojo-tokyo/packages/guile-xyz.scm
index a7c5094..5ad9834 100644
--- a/tojo-tokyo/packages/guile-xyz.scm
+++ b/tojo-tokyo/packages/guile-xyz.scm
@@ -55,3 +55,30 @@
 from a photo of LCD Writing Tablet.")
     (home-page "https://git.tojo.tokyo/extract-green-color.git")
     (license license:gpl3+)))
+
+(define-public guile-sicp-picture-language
+  (package
+    (name "guile-sicp-picture-language")
+    (version "0.2.1")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "https://files.tojo.tokyo/guile-sicp-picture-language/"
+                    "guile-sicp-picture-language-" version ".tar.gz"))
+              (sha256
+               (base32
+                "0f268rdryzaw3ch4gmqkcipalwnb046mjv9iarp6dsbc7aisbn9y"))))
+    (build-system gnu-build-system)
+    (native-inputs
+     `(("autoconf" ,autoconf)
+       ("automake" ,automake)
+       ("pkg-config" ,pkg-config)
+       ("texinfo" ,texinfo)))
+    (inputs
+     `(("guile" ,guile-3.0)
+       ("guile-picture-language" ,guile-picture-language)))
+    (synopsis "SICP's picture language for Gulie")
+    (description "This package provides an implementation of SICP
+picture language for GNU Guile.")
+    (home-page "https://git.tojo.tokyo/guile-sicp-picture-language.git")
+    (license license:gpl3+)))
-- 
cgit v1.2.3