commit 2224f161a927098a3325b3bfee848afa16d50a44 parent bcd5eadfa328bd4e0e394e866eac2694087cc27e Author: Yuval Langer <yuval.langer@gmail.com> Date: Sun, 14 Jan 2024 14:25:22 +0200 Add guile-rsv. Diffstat:
| M | kakafarm/packages/guile-xyz.scm | | | 63 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 63 insertions(+), 0 deletions(-)
diff --git a/kakafarm/packages/guile-xyz.scm b/kakafarm/packages/guile-xyz.scm @@ -83,6 +83,69 @@ press a keybinding / shortcut you've set in the windows manager, and clipboard-speaker would read that aloud.") (license license:agpl3+)))) +(define-public guile-rsv + (let ((commit-string "ecf0cbd486bb5f73e335e9e04212b0985f3efc35") + (base32-string "0cgnilix4050717xx3b2n45nfvr2hag1asbw92zs6mz6srq7xclq") + (git-repository-url "https://codeberg.org/kakafarm/guile-rsv/")) + (package + (name "guile-rsv") + (version "0.1.0") + (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)))) + (inputs + (list guile-3.0 + bash)) + (build-system guile-build-system) + (arguments + (list + #:phases + #~(modify-phases + %standard-phases + (add-after 'install 'link-and-wrap-executable + (lambda _ + (let* ([bin (string-append #$output + "/bin")] ;; bin directory for PATH. + [site-version (target-guile-effective-version)] + [scm (string-append "/share/guile/site/" + site-version)] + [go (string-append "/lib/guile/" + site-version + "/site-ccache")]) + (mkdir-p bin) + (for-each (lambda (command-name) + (let ((source-script (string-append + #$output + scm + "/" + command-name + ".scm")) + (target-command (string-append + bin + "/" + command-name))) + (symlink source-script target-command) + (wrap-program target-command + #:sh (which "bash") + `("GUILE_LOAD_PATH" prefix + (,(string-append #$output scm))) + `("GUILE_LOAD_COMPILED_PATH" prefix + (,(string-append #$output go)))))) + (list "scm2rsv" "rsv2scm")))))))) + (home-page git-repository-url) + (synopsis "R7RS Scheme library for reading and writing RSV data format") + (description "R7RS Scheme library for reading and writing RSV (Rows of String +Values) data format. Specified in +https://github.com/Stenway/RSV-Specification and demonstrated in +https://www.youtube.com/watch?v=tb_70o6ohMA.") + (license (list license:gpl3+ + license:expat-0))))) + (define-public guile-srfi-133 (package (name "guile-srfi-133")