05/10: gnu: Add r7rs-small-texinfo.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 030482493edbc45b505f26ca59bb969ef001f65d
Author: Yuval Langer <yuval.langer@gmail.com>
AuthorDate: Fri Apr 19 05:22:08 2024 +0300

    gnu: Add r7rs-small-texinfo.
    
    * gnu/packages/scheme.scm (r7rs-small-texinfo): New variable.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
    Change-Id: I8e3e2956cb2a5e98c1353a51773c71bbb4545b95
---
 gnu/packages/scheme.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm
index a91a2d693d..47754800f9 100644
--- a/gnu/packages/scheme.scm
+++ b/gnu/packages/scheme.scm
@@ -1314,3 +1314,48 @@ as well as light.  The implementation is based on an 
ad-hoc Virtual
 Machine.  STklos can also be compiled as a library and embedded in an
 application.")
     (license gpl2+)))
+
+(define-public r7rs-small-texinfo
+  (let ((commit "38a703976ea6353e32b52a5187dbdaf77fb2f050")
+        (revision "3"))
+    (package
+      (name "r7rs-small-texinfo")
+      (version (git-version "0.1.0" revision commit))
+      (home-page "https://codeberg.org/Zipheir/r7rs-small-texinfo/";)
+      (source
+       (origin
+         (uri (git-reference
+               (url home-page)
+               (commit commit)))
+         (method git-fetch)
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1fr02fyhiwd364jkfy1n5w31pq3kx1rl5w634421g05702yb47x3"))))
+      (native-inputs (list bash texinfo))
+      (inputs '())
+      (build-system copy-build-system)
+      (arguments
+       (list
+        #:install-plan #~'(("r7rs-small.info" "share/info/"))
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'compile-the-files
+                       (lambda _
+                         (let* ((source-directory-path (string-append (getcwd)
+                                                        "/doc/r7rs-small"))
+                                (build-script-path (string-append
+                                                    source-directory-path
+                                                    "/build.sh"))
+                                (info-directory-path (string-append #$output
+                                                      "/share/info")))
+                           (chdir source-directory-path)
+                           (system* "bash" build-script-path "info")
+                           (mkdir-p info-directory-path)
+                           (copy-file (string-append source-directory-path
+                                                     "/r7rs-small.info")
+                                      (string-append info-directory-path
+                                                     "/r7rs-small.info"))))))))
+      (synopsis
+       "R7RS Small standard of the Scheme programming language in Info format")
+      (description
+       "Revised^7 Report of the Algorithmic Language Scheme adapted to Texinfo 
format.")
+      (license (non-copyleft "file://COPYING")))))