From ff07ae77d71fdc3ba8dded47176dcbe8d04d8cfb Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Sun, 11 Aug 2024 00:05:52 +0900
Subject: Add `guile-r7rs-pnm` package

---
 tojo-tokyo/packages/guile-xyz.scm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'tojo-tokyo/packages/guile-xyz.scm')

diff --git a/tojo-tokyo/packages/guile-xyz.scm b/tojo-tokyo/packages/guile-xyz.scm
index f273d9f..92c2e33 100644
--- a/tojo-tokyo/packages/guile-xyz.scm
+++ b/tojo-tokyo/packages/guile-xyz.scm
@@ -21,7 +21,9 @@
   #:use-module (guix packages)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system guile)
   #:use-module (gnu packages)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages guile)
@@ -30,6 +32,28 @@
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages texinfo))
 
+(define-public guile-r7rs-pnm
+  (package
+    (name "guile-r7rs-pnm")
+    (version "1.0.0")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://git.tojo.tokyo/r7rs-pnm.git")
+                    (commit (string-append "v" version))))
+              (sha256
+               (base32
+                "1r6m28f2w4kn2fvbv762r3n0hspb5rbwg5fpb336ryj69za7v0fh"))))
+    (build-system guile-build-system)
+    (native-inputs
+     (list guile-3.0))
+    (synopsis "Library for reading and writing PNM (Portable Any Map) files for R7RS")
+    (description "R7RS-PNM is a R7RS library for handling PNM (Portable Any Map) files,
+providing functionality for reading and writing PNM files,as well as
+accessing and modifying pixel data.")
+    (home-page "https://git.tojo.tokyo/r7rs-pnm.git/about")
+    (license license:lgpl3+)))
+
 (define-public extract-green-color
   (package
     (name "extract-green-color")
-- 
cgit v1.2.3