diff options
| author | Yuval Langer <yuval.langer@gmail.com> | 2024-04-19 05:22:08 +0300 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-05-31 13:55:43 +0200 |
| commit | 030482493edbc45b505f26ca59bb969ef001f65d (patch) | |
| tree | 72b15d728e14ef500f2ec0f32d3738af48180fd2 | |
| parent | 0e5e032d1288923c67406036df975674d8487e9e (diff) | |
| download | guix-030482493edbc45b505f26ca59bb969ef001f65d.tar.gz guix-030482493edbc45b505f26ca59bb969ef001f65d.zip | |
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
| -rw-r--r-- | gnu/packages/scheme.scm | 45 |
1 files changed, 45 insertions, 0 deletions
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"))))) |