guix-kakafarm-channel

Kaka Farm's GNU Guix channel.
git clone https://kaka.farm/~git/guix-kakafarm-channel
Log | Files | Refs | README | LICENSE

commit 59e7c530403f40a06111a6809cabdfc3abcda7ed
parent 44322284643c916c8cc62b3387c5e304a7cb7b04
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sun, 25 Feb 2024 23:31:28 +0200

Add r7rs-small-texinfo package.

Diffstat:
Akakafarm/packages/texinfo-documents.scm | 57+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 57 insertions(+), 0 deletions(-)

diff --git a/kakafarm/packages/texinfo-documents.scm b/kakafarm/packages/texinfo-documents.scm @@ -0,0 +1,57 @@ +(define-module (kakafarm packages texinfo-documents) + #:use-module (gnu packages base) + #:use-module (gnu packages bash) + #:use-module (gnu packages texinfo) + + #:use-module (guix build-system copy) + #:use-module (guix gexp) + #:use-module (guix git-download) + #:use-module ((guix licenses) + #:prefix license:) + #:use-module (guix packages)) + +(define-public r7rs-small-texinfo + (let ((commit-string "5b8357a145c9028920cc8dae223de88b9c03af88") + (revision "1") + (base32-string "1m668hnvdhibicki03gkv2bbpfnsx84g97kf2138cyfi418syqbn") + (git-repository-url "https://codeberg.org/Zipheir/r7rs-small-texinfo/")) + (package + (name "r7rs-small-texinfo") + (version (git-version "0.1.0" revision commit-string)) + (source + (origin + (uri (git-reference + (url git-repository-url) + (commit commit-string))) + (method git-fetch) + (file-name (git-file-name name version)) + (sha256 + (base32 base32-string)))) + (native-inputs (list bash texinfo)) + (inputs '()) + (build-system copy-build-system) + (arguments + (list + #: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")))))))) + (home-page git-repository-url) + (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 license:non-copyleft))))