;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012-2022 Ludovic Courtès ;;; Copyright © 2014, 2015, 2018 Mark H Weaver ;;; Copyright © 2015, 2017, 2022 Christine Lemmer-Webber ;;; Copyright © 2016 Alex Sassmannshausen ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus ;;; Copyright © 2016 Erik Edrosa ;;; Copyright © 2016, 2019, 2020, 2021 Eraim Flashner ;;; Copyright © 2016, 2017, 2021 Alex Kost ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira ;;; Copyright © 2016, 2021 Amirouche ;;; Copyright © 2016, 2019, 2021 Jan (janneke) Nieuwenhuizen ;;; Copyright © 2017 Andy Wingo ;;; Copyright © 2017 David Thompson ;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe ;;; Copyright © 2017 Theodoros Foradis ;;; Copyright © 2017 Nikita ;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice ;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer ;;; Copyright © 2018, 2019, 2020, 2021, 2022 Arun Isaac ;;; Copyright © 2018 Pierre-Antoine Rouby ;;; Copyright © 2018 Eric Bavier ;;; Copyright © 2019 swedebugia ;;; Copyright © 2019, 2020 Amar Singh ;;; Copyright © 2019, 2021 Timothy Sample ;;; Copyright © 2019, 2020 Martin Becze ;;; Copyright © 2020 Evan Straw ;;; Copyright © 2020 Jack Hill ;;; Copyright © 2020 Julien Lepiler ;;; Copyright © 2020 Marius Bakke ;;; Copyright © 2020, 2021 Masaya Tojo ;;; Copyright © 2020 Jesse Gibbons ;;; Copyright © 2020 Mike Rosset ;;; Copyright © 2020 Liliana Marie Prikler ;;; Copyright © 2020, 2021 pukkamustard ;;; Copyright © 2021 Bonface Munyoki Kilyungi ;;; Copyright © 2021 Xinglu Chen ;;; Copyright © 2021 Leo Le Bouter ;;; Copyright © 2021 Zelphir Kaltstahl ;;; Copyright © 2021 Oleg Pykhalov ;;; Copyright © 2021, 2022 Artyom V. Poptsov ;;; Copyright © 2022 Maxime Devos ;;; Copyright © 2022 Zhu Zihao ;;; Copyright © 2022 Antero Mejr ;;; Copyright © 2022 Taiju HIGASHI ;;; Copyright © 2022 Zheng Junjie <873216071@qq.com> ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (gnu packages guile-xyz) #:use-module ((guix licenses) #:prefix license:) #:use-module (gnu packages) #:use-module (gnu packages admin) #:use-module (gnu packages algebra) #:use-module (gnu packages aspell) #:use-module (gnu packages autotools) #:use-module (gnu packages avahi) #:use-module (gnu packages base) #:use-module (gnu packages bash) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages databases) #:use-module (gnu packages disk) #:use-module (gnu packages emacs) #:use-module (gnu packages emacs-xyz) #:use-module (gnu packages gawk) #:use-module (gnu packages gettext) #:use-module (gnu packages gl) #:use-module (gnu packages glib) #:use-module (gnu packages gnome) #:use-module (gnu packages gnupg) #:use-module (gnu packages gperf) #:use-module (gnu packages gstreamer) #:use-module (gnu packages gtk) #:use-module (gnu packages guile) #:use-module (gnu packages haskell-xyz) ;pandoc #:use-module (gnu packages hurd) #:use-module (gnu packages image) #:use-module (gnu packages imagemagick) #:use-module (gnu packages libffi) #:use-module (gnu packages libunistring) #:use-module (gnu packages linux) #:use-module (gnu packages man) #:use-module (gnu packages maths) #:use-module (gnu packages mes) #:use-module (gnu packages multiprecision) #:use-module (gnu packages ncurses) #:use-module (gnu packages networking) #:use-module (gnu packages noweb) #:use-module (gnu packages nss) #:use-module (gnu packages package-management) #:use-module (gnu packages password-utils) #:use-module (gnu packages pcre) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages readline) #:use-module (gnu packages sdl) #:use-module (gnu packages search) #:use-module (gnu packages serialization) #:use-module (gnu packages slang) #:use-module (gnu packages sqlite) #:use-module (gnu packages swig) #:use-module (gnu packages tex) #:use-module (gnu packages texinfo) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) #:use-module (gnu packages webkit) #:use-module (gnu packages xdisorg) #:use-module (gnu packages xorg) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) #:use-module (guix hg-download) #:use-module (guix build-system cmake) #:use-module (guix build-system glib-or-gtk) #:use-module (guix build-system gnu) #:use-module (guix build-system guile) #:use-module (guix utils) #:use-module ((guix build utils) #:select (alist-replace)) #:use-module (ice-9 match) #:use-module ((srfi srfi-1) #:select (alist-delete)) #:use-module (srfi srfi-26)) (define-public artanis (package (name "artanis") (version "0.5.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/artanis/artanis-" version ".tar.gz")) (sha256 (base32 "1zfg49s7wp37px7k22qcr06rxfwyn3gv1c3jmma346xw0m8jr63w")) (modules '((guix build utils))) (snippet '(begin ;; Unbundle guile-redis and guile-json (delete-file-recursively "artanis/third-party/json.scm") (delete-file-recursively "artanis/third-party/json") (delete-file-recursively "artanis/third-party/redis.scm") (delete-file-recursively "artanis/third-party/redis") (substitute* '("artanis/artanis.scm" "artanis/lpc.scm" "artanis/oht.scm" "artanis/tpl/parser.scm") (("(#:use-module \\()artanis third-party (json\\))" _ use-module json) (string-append use-module json))) (substitute* '("artanis/lpc.scm" "artanis/session.scm") (("(#:use-module \\()artanis third-party (redis\\))" _ use-module redis) (string-append use-module redis))) (substitute* "artanis/oht.scm" (("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)" _ pre json-string post) (string-append pre "scm" json-string post))) (substitute* "artanis/artanis.scm" (("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+") "")) #t)))) (build-system gnu-build-system) (inputs (list guile-3.0 nspr nss)) ;; FIXME the bundled csv contains one more exported procedure ;; (sxml->csv-string) than guile-csv. The author is maintainer of both ;; projects. ;; TODO: Add guile-dbi and guile-dbd optional dependencies. (propagated-inputs (list guile-json-3 guile-readline guile-redis)) (native-inputs (list bash-minimal ;for the `source' builtin pkg-config util-linux)) ;for the `script' command (arguments `(#:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:make-flags ;; TODO: The documentation must be built with the `docs' target. (let* ((out (assoc-ref %outputs "out")) ;; We pass guile explicitly here since this executes before the ;; set-paths phase and therefore guile is not yet in PATH. (effective-version (target-guile-effective-version (assoc-ref %build-inputs "guile"))) (scm (string-append out "/share/guile/site/" effective-version)) (go (string-append out "/lib/guile/" effective-version "/site-ccache"))) ;; Don't use (%site-dir) for site paths. (list (string-append "MOD_PATH=" scm) (string-append "MOD_COMPILED_PATH=" go))) #:test-target "test" #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-site-dir (lambda* (#:key outputs #:allow-other-keys) (substitute* "artanis/commands/help.scm" (("\\(%site-dir\\)") (string-append "\"" (assoc-ref outputs "out") "/share/guile/site/" (target-guile-effective-version) "\""))))) (add-after 'unpack 'patch-reference-to-libnss (lambda* (#:key inputs #:allow-other-keys) (substitute* "artanis/security/nss.scm" (("ffi-binding \"libnss3\"") (string-append "ffi-binding \"" (assoc-ref inputs "nss") "/lib/nss/libnss3.so" "\"")) (("ffi-binding \"libssl3\"") (string-append "ffi-binding \"" (assoc-ref inputs "nss") "/lib/nss/libssl3.so\""))))) (add-before 'install 'substitute-root-dir (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (substitute* "Makefile" ;ignore the execution of bash.bashrc ((" /etc/bash.bashrc") " /dev/null")) (substitute* "Makefile" ;set the root of config files to OUT ((" /etc") (string-append " " out "/etc"))) (mkdir-p (string-append out "/bin")) ))) (add-after 'install 'wrap-art (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (effective-version (target-guile-effective-version)) (bin (string-append out "/bin")) (scm (string-append out "/share/guile/site/" effective-version)) (go (string-append out "/lib/guile/" effective-version "/site-ccache"))) (wrap-program (string-append bin "/art") `("GUILE_LOAD_PATH" ":" prefix (,scm ,(getenv "GUILE_LOAD_PATH"))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,go ,(getenv "GUILE_LOAD_COMPILED_PATH")))))))))) (synopsis "Web application framework written in Guile") (description "GNU Artanis is a web application framework written in Guile Scheme. A web application framework (WAF) is a software framework that is designed to support the development of dynamic websites, web applications, web services and web resources. The framework aims to alleviate the overhead associated with common activities performed in web development. Artanis provides several tools for web development: database access, templating frameworks, session management, URL-remapping for RESTful, page caching, and more.") (home-page "https://www.gnu.org/software/artanis/") (license (list license:gpl3+ license:lgpl3+)))) ;dual license ;; There are no releases yet of this package. (define-public guile-pipe (let ((commit "0746ec38d19d844dff0c6f62f209b2b6c8d8872e") (revision "0")) (package (name "guile-pipe") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/joshwalters/guile-pipe") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "038gwrhfywgs8372q478wn4623lhcmkknfj4p8yaa93bykfc0fml")))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://github.com/joshwalters/guile-pipe") (synopsis "Guile pipe macros for functional chaining") (description "This package provides macros for functional chaining in Guile, similar to UNIX pipes (@code{|}), Clojure's threading macros (@code{->} and @code{->>}).") (license license:gpl3+)))) (define-public guile-f-scm (package (name "guile-f-scm") (version "0.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://git.sr.ht/~brown121407/f.scm") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "14wyrs3m1649l3km4pl2175dmap1372j5h8nkhykrbxg5xqp6ivd")))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://git.sr.ht/~brown121407/f.scm") (synopsis "Library for working with files and directories") (description "f.scm is a library intended to facilitate working with files and directories (the file system in general). It was initially inspired by the f library for Emacs.") (license license:gpl3+))) ;; There has not been any release yet. (define-public guildhall (let ((commit "2fe2cc539f4b811bbcd69e58738db03eb5a2b778") (revision "1")) (package (name "guildhall") (version (string-append "0-" revision "." (string-take commit 9))) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ijp/guildhall") (commit commit))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "115bym7bg66h3gs399yb2vkzc2ygriaqsn4zbrg8f054mgy8wzn1")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases ;; Tests fail without this fix because they try to load the bash ;; executable as a Scheme file. See bug report at ;; https://github.com/ijp/guildhall/issues/22 (add-after 'unpack 'fix-bug-22 (lambda _ (substitute* "Makefile.am" (("TESTS_ENVIRONMENT=.*") "AM_TESTS_ENVIRONMENT=srcdir=$(abs_top_srcdir)/tests/ TEST_EXTENSIONS = .scm SCM_LOG_COMPILER= $(top_builddir)/env $(GUILE) AM_SCM_LOG_FLAGS = --no-auto-compile -s") ;; FIXME: one of the database tests fails for unknown ;; reasons. It does not fail when run outside of Guix. (("tests/database.scm") "")) #t))))) (inputs (list guile-2.0)) (native-inputs (list zip ; for tests autoconf automake texinfo)) (synopsis "Package manager for Guile") (description "Guildhall is a package manager written for Guile Scheme. A guild is an association of independent craftspeople. A guildhall is where they meet. This Guildhall aims to make a virtual space for Guile wizards and journeyfolk to share code. On a practical level, Guildhall lets you share Scheme modules and programs over the internet, and install code that has been shared by others. Guildhall can handle dependencies, so when a program requires several libraries, and each of those has further dependencies, all of the prerequisites for the program can be installed in one go.") (home-page "https://github.com/ijp/guildhall") (license license:gpl3+)))) (define-public guile-aspell (package (name "guile-aspell") (version "0.4") (source (origin (method url-fetch) (uri (string-append "http://lonelycactus.com/tarball/guile_aspell-" version ".tar.gz")) (sha256 (base32 "0vpk5xj9m9qc702z3khmkwhgpb949qbsyz8kw2qycda6qnxk0077")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-before 'configure 'set-guilesitedir (lambda _ (substitute* "Makefile.in" (("^guilesitedir =.*$") "guilesitedir = \ $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n")) #t)) (add-before 'build 'set-libaspell-file-name (lambda* (#:key inputs #:allow-other-keys) (let ((aspell (assoc-ref inputs "aspell"))) (substitute* "aspell.scm" (("\"libaspell\\.so\"") (string-append "\"" aspell "/lib/libaspell\""))) #t)))))) (native-inputs (list pkg-config)) (inputs (list guile-2.2 aspell)) (home-page "https://github.com/spk121/guile-aspell") (synopsis "Spell-checking from Guile") (description "guile-aspell is a Guile Scheme library for comparing a string against a dictionary and suggesting spelling corrections.") (license license:gpl3+))) (define-public guile2.0-bash ;; This project is currently retired. It was initially announced here: ;; . (let ((commit "1eabc563ca5692b3e08d84f1f0e6fd2283284469") (revision "0")) (package (name "guile2.0-bash") (version (string-append "0.1.6-" revision "." (string-take commit 7))) (home-page "https://anonscm.debian.org/cgit/users/kaction-guest/retired/dev.guile-bash.git") (source (origin (method git-fetch) (uri (git-reference (commit commit) (url home-page))) (sha256 (base32 "097vny990wp2qpjij6a5a5gwc6fxzg5wk56inhy18iki5v6pif1p")) (file-name (string-append name "-" version "-checkout")))) (build-system gnu-build-system) (arguments '(#:configure-flags ;; Add -I to match 'bash.pc' of Bash 4.4. (list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "bash:include") "/include/bash/include") ;; The '.a' file is useless. "--disable-static" ;; Install 'lib/bash' as Bash 4.4 expects. (string-append "--libdir=" (assoc-ref %outputs "out") "/lib/bash")))) (native-inputs `(("pkg-config" ,pkg-config) ("autoconf" ,autoconf) ("automake" ,automake) ("libtool" ,libtool) ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'. ("gettext" ,gettext-minimal) ;; Bash with loadable module support, for the test ;; suite. ("bash-full" ,bash))) (inputs `(("guile" ,guile-2.0) ("bash:include" ,bash "include"))) (synopsis "Extend Bash using Guile") (description "Guile-Bash provides a shared library and set of Guile modules, allowing you to extend Bash in Scheme. Scheme interfaces allow you to access the following aspects of Bash: @itemize @item aliases; @item setting and getting Bash variables; @item creating dynamic variables; @item creating Bash functions with a Scheme implementation; @item reader macro for output capturing; @item reader macro for evaluating raw Bash commands. @end itemize To enable it, run: @example enable -f ~/.guix-profile/lib/bash/libguile-bash.so scm @end example and then run @command{scm example.scm}.") (license license:gpl3+)))) (define-public guile-bash (package (inherit guile2.0-bash) (name "guile-bash") (inputs `(("guile" ,guile-3.0-latest) ,@(assoc-remove! (package-inputs guile2.0-bash) "guile"))) (arguments `(#:tests? #f #:phases (modify-phases %standard-phases (add-after 'install 'install-guile (lambda* (#:key inputs outputs #:allow-other-keys) (copy-recursively (string-append (assoc-ref outputs "out") (assoc-ref inputs "guile") "/share") (string-append (assoc-ref outputs "out") "/share")) #t))) ,@(package-arguments guile2.0-bash))))) (define-public guile-8sync (let ((commit "183b4f02e68279d4984e79b79e06bfcf1861fcbf") (revision "0")) (package (name "guile-8sync") (version (git-version "0.4.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference (commit commit) (url "https://git.savannah.gnu.org/git/8sync.git"))) (sha256 (base32 "0r22kxasv1zqnf1ykzyx6c226qxn1wgjb1gc54526bid24x508ij")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (native-inputs (list autoconf automake guile-3.0 pkg-config texinfo)) (arguments (list #:make-flags #~(list "GUILE_AUTO_COMPILE=0"))) (home-page "https://gnu.org/s/8sync/") (synopsis "Asynchronous actor model library for Guile") (description "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming library for GNU Guile based on the actor model.") (properties '((upstream-name . "8sync"))) (license license:lgpl3+)))) (define-public guile-daemon (package (name "guile-daemon") (version "0.1.3") (source (origin (method url-fetch) (uri (string-append "https://github.com/alezost/" name "/releases/download/v" version "/" name "-" version ".tar.gz")) (sha256 (base32 "08gaqrgjlly9k5si72vvpbr4xhq5v52l5ma5y6a7spid5dd057cy")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list guile-3.0)) (home-page "https://github.com/alezost/guile-daemon") (synopsis "Evaluate code in a running Guile process") (description "Guile-Daemon is a small Guile program that loads your initial configuration file, and then reads and evaluates Guile expressions that you send to a FIFO file.") (license license:gpl3+))) (define-public guile-dsv (package (name "guile-dsv") (version "0.5.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/artyom-poptsov/guile-dsv") (commit (string-append "v" version)))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "10wssilin4qphdmmqmms20bp3cy007kh22l1g45wfka0minmhkgs")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (propagated-inputs (list guile-lib)) (arguments `(#:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:phases (modify-phases %standard-phases (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (guile-lib (assoc-ref inputs "guile-lib")) (version (target-guile-effective-version)) (scm (string-append "/share/guile/site/" version)) (go (string-append "/lib/guile/" version "/site-ccache"))) (wrap-program (string-append bin "/dsv") `("GUILE_LOAD_PATH" prefix (,(string-append out scm) ,(string-append guile-lib scm))) `("GUILE_LOAD_COMPILED_PATH" prefix (,(string-append out go) ,(string-append guile-lib go))))) #t))))) (home-page "https://github.com/artyom-poptsov/guile-dsv") (synopsis "DSV module for Guile") (description "Guile-DSV is a GNU Guile module for working with the delimiter-separated values (DSV) data format. Guile-DSV supports the Unix-style DSV format and RFC 4180 format.") (license license:gpl3+))) (define-public guile2.2-dsv (package (inherit guile-dsv) (name "guile2.2-dsv") (inputs (list guile-2.2)) (propagated-inputs `(("guile-lib" ,guile2.2-lib))))) (define-public guile-fibers-1.1 (package (name "guile-fibers") (version "1.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/wingo/fibers") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0ll63d7202clapg1k4bilbnlmfa4qvpjnsd7chbkka4kxf5klilc")) (patches (search-patches "guile-fibers-wait-for-io-readiness.patch")))) (build-system gnu-build-system) (native-inputs (list texinfo pkg-config autoconf automake libtool guile-3.0 ;for 'guild compile ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS' gettext-minimal)) (inputs (list guile-3.0)) ;for libguile-3.0.so (supported-systems ;; This version requires 'epoll' and is thus limited to Linux-based ;; systems, but this may change soon: ;; . (filter (cut string-suffix? "-linux" <>) %supported-systems)) (synopsis "Lightweight concurrency facility for Guile") (description "Fibers is a Guile library that implements a a lightweight concurrency facility, inspired by systems like Concurrent ML, Go, and Erlang. A fiber is like a \"goroutine\" from the Go language: a lightweight thread-like abstraction. Systems built with Fibers can scale up to millions of concurrent fibers, tens of thousands of concurrent socket connections, and many parallel cores. The Fibers library also provides Concurrent ML-like channels for communication between fibers. Note that Fibers makes use of some Guile 2.1/2.2-specific features and is not available for Guile 2.0.") (home-page "https://github.com/wingo/fibers") (properties '((upstream-name . "fibers"))) (license license:lgpl3+))) (define-public guile-fibers (package (inherit guile-fibers-1.1) (version "1.0.0") (source (origin (method url-fetch) (uri (string-append "https://wingolog.org/pub/fibers/fibers-" version ".tar.gz")) (sha256 (base32 "0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0")) (modules '((guix build utils))) (snippet '(begin ;; Allow builds with Guile 3.0. (substitute* "configure" (("search=\"2\\.2\"") "search=\"3.0 2.2\"")) ;; Explicitly include system headers rather than relying on ;; to do it for us. (substitute* "epoll.c" (("#include.*libguile\\.h.*$" all) (string-append "#include \n" "#include \n" all "\n"))) ;; Import (ice-9 threads) for 'current-processor-count'. (substitute* "tests/channels.scm" (("#:use-module \\(fibers\\)") (string-append "#:use-module (fibers)\n" "#:use-module (ice-9 threads)\n"))) #t)) (patches ;; fixes a resource leak that causes crashes in the tests (search-patches "guile-fibers-destroy-peer-schedulers.patch")))) (arguments '(;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0. #:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations") #:phases (modify-phases %standard-phases (add-after 'install 'mode-guile-objects (lambda* (#:key outputs #:allow-other-keys) ;; .go files are installed to "lib/guile/X.Y/cache". ;; This phase moves them to "…/site-ccache". (let* ((out (assoc-ref outputs "out")) (lib (string-append out "/lib/guile")) (old (car (find-files lib "^ccache$" #:directories? #t))) (new (string-append (dirname old) "/site-ccache"))) (rename-file old new) #t)))))))) (define-public guile2.2-fibers (package (inherit guile-fibers-1.1) (name "guile2.2-fibers") (inputs (modify-inputs (package-inputs guile-fibers-1.1) (replace "guile" guile-2.2))) (native-inputs (modify-inputs (package-native-inputs guile-fibers-1.1) (replace "guile" guile-2.2))))) (define-public guile-filesystem (package (name "guile-filesystem") (version "0.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/leoprikler/guile-filesystem.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1shmkc0y9r2sj3kw7hrsnamnp7y8xifkhf3m3rnfxczqg63k67vy")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (home-page "https://gitlab.com/leoprikler/guile-filesystem") (synopsis "Complementary library to Guile's built-in file system procedures") (description "@code{guile-filesystem} provides a set of utility functions, that augment Guile's support for handling files and their names.") (license license:lgpl3+))) (define-public guile2.0-filesystem (package (inherit guile-filesystem) (name "guile2.0-filesystem") (inputs (list guile-2.0)))) (define-public guile2.2-filesystem (package (inherit guile-filesystem) (name "guile2.2-filesystem") (inputs (list guile-2.2)))) (define-public guile-syntax-highlight (package (name "guile-syntax-highlight") (version "0.1") (source (origin (method url-fetch) (uri (string-append "https://files.dthompson.us/" "guile-syntax-highlight/" "guile-syntax-highlight-" version ".tar.gz")) (sha256 (base32 "1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi")) (modules '((guix build utils))) (snippet '(begin ;; Allow builds with Guile 3.0. (substitute* "configure" (("2\\.2 2\\.0") "3.0 2.2 2.0")) #t)))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list guile-3.0)) (synopsis "General-purpose syntax highlighter for GNU Guile") (description "Guile-syntax-highlight is a general-purpose syntax highlighting library for GNU Guile. It can parse code written in various programming languages into a simple s-expression that can be converted to HTML (via SXML) or any other format for rendering.") (home-page "https://dthompson.us/projects/guile-syntax-highlight.html") (license license:lgpl3+))) ;; gitile requires a more recent version than the latest release. (define-public guile-syntax-highlight-for-gitile (let ((commit "897fa5156ff41588e0d281eb00e4e94de63ccd8a") (revision "0")) (package (inherit guile-syntax-highlight) (version (git-version "0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.dthompson.us/guile-syntax-highlight.git") (commit commit))) (file-name (git-file-name "guile-syntax-highlight" version)) (sha256 (base32 "18zlg4mkgd3swgv2ggfz91ivnnzc0zhvc9ybgrxg1y762va9hyvj")))) (native-inputs (modify-inputs (package-native-inputs guile-syntax-highlight) (prepend autoconf automake texinfo))) (properties '((hidden? . #t)))))) (define-public guile2.2-syntax-highlight (package (inherit guile-syntax-highlight) (name "guile2.2-syntax-highlight") (inputs (list guile-2.2)))) (define-public guile-sjson (package (name "guile-sjson") (version "0.2.2") (source (origin (method url-fetch) (uri (string-append "https://dustycloud.org/misc/sjson-" version ".tar.gz")) (sha256 (base32 "08sr16fg5cqvik3wblav6k4b6djc5ydhgfvxa49bc5bh1irqvrcn")) (modules '((guix build utils))) (snippet '(begin ;; Allow builds with Guile 3.0. (substitute* "configure" (("2\\.2 2\\.0") "3.0 2.2 2.0")) #t)))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config)) (inputs (list guile-3.0)) (home-page "https://gitlab.com/dustyweb/guile-sjson") (synopsis "S-expression based json reader/writer for Guile") (description "guile-sjson is a json reader/writer for Guile. It has a nice, simple s-expression based syntax.") (license license:lgpl3+))) (define-public guile2.2-sjson (package (inherit guile-sjson) (name "guile2.2-sjson") (inputs (list guile-2.2)))) (define-public guile-squee (let ((commit "a151fd006fa819945ca1d4749b173854269b9f70") (revision "3")) (package (name "guile-squee") (version (string-append "0-" revision "." (string-take commit 7))) (source (origin (method git-fetch) (uri (git-reference (url "https://notabug.org/cwebber/guile-squee.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1jps14z8653ah2kr367iayzyi3ql2s55l77xrafz7gk3mzcvgrrg")))) (build-system guile-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch (lambda* (#:key inputs #:allow-other-keys) (substitute* "squee.scm" (("dynamic-link \"libpq\"") (string-append "dynamic-link \"" (search-input-file inputs "/lib/libpq.so") "\"")))))))) (inputs (list postgresql)) (native-inputs (list guile-3.0)) (home-page "https://notabug.org/cwebber/guile-squee") (synopsis "Connect to PostgreSQL using Guile") (description "@code{squee} is a Guile library for connecting to PostgreSQL databases using Guile's foreign function interface.") (license license:lgpl3+)))) (define-public guile2.2-squee (package (inherit guile-squee) (name "guile2.2-squee") (native-inputs (modify-inputs (package-native-inputs guile-squee) (replace "guile" guile-2.2))))) (define-public guile-colorized (package (name "guile-colorized") (version "0.1") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/NalaGinrut/guile-colorized.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc")))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://gitlab.com/NalaGinrut/guile-colorized") (synopsis "Colorized REPL for Guile") (description "Guile-colorized provides you with a colorized REPL for GNU Guile.") (license license:gpl3+))) (define-public guile2.2-colorized (package (inherit guile-colorized) (name "guile2.2-colorized") (native-inputs (list guile-2.2)))) (define-public guile-pfds (package (name "guile-pfds") (version "0.3") (home-page "https://github.com/ijp/pfds") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (sha256 (base32 "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh")) (file-name (string-append name "-" version "-checkout")))) (build-system guile-build-system) (arguments '(#:source-directory "src" #:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-sources ;; Initially reported here: ;; https://github.com/ijp/pfds/pull/6, and merged into ;; other projects such as IronScheme (see: ;; https://github.com/IronScheme/pfds/pull/1). (lambda _ (substitute* "hamts.sls" (("subtrie-vector vector") "subtrie-vector trie")))) (add-after 'patch-sources 'move-files-around (lambda _ ;; Move files under a pfds/ directory to reflect the ;; module hierarchy. (mkdir-p "src/pfds") (for-each (lambda (file) (rename-file file (string-append "src/pfds/" file))) '("bbtrees.sls" "deques" "deques.sls" "dlists.sls" "fingertrees.sls" "hamts.sls" "heaps.sls" "private" "psqs.sls" "queues" "queues.sls" "sequences.sls" "sets.sls"))))))) (native-inputs (list guile-3.0)) (synopsis "Purely functional data structures for Guile") (description "This package provides purely functional data structures written in R6RS Scheme and compiled for Guile. It has been tested with Racket, Guile 2, Vicare Scheme and IronScheme. Right now it contains: @itemize @item queues @item deques @item bbtrees @item sets @item dlists @item priority search queues (PSQs) @item finger trees @item sequences @item heaps @item hash array mapped tries (HAMTs). @end itemize\n") (license license:bsd-3))) (define-public guile2.0-pg (package (name "guile2.0-pg") (version "0.49") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-pg/guile-pg-" version ".tar.xz")) (sha256 (base32 "1fizcqga96p9n2jjhi9nprhry20hg9wvcl5b8gya4vhzwz6qhysp")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-before 'install 'patch-src/Makefile (lambda* (#:key outputs #:allow-other-keys) (substitute* "src/Makefile" (("\\/share\\/guile\\/site") "/share/guile/site/2.0")) #t))))) (native-inputs (list procps ; fake-cluster-control uses ps guile-2.0 postgresql)) (inputs (list guile-2.0 postgresql)) (home-page "https://www.nongnu.org/guile-pg/") (synopsis "Guile modules for accessing PostgreSQL") (description "Guile-PG is a collection of modules for Guile allowing access to the PostgreSQL RDBMS from Scheme programs. This has been tested against PostgreSQL 10 through 13, but currently only works with Guile 1.4.x to 2.0.x.") (license license:gpl3+))) (define-public guile-prometheus (let ((commit "35dc26c0ea44c3d70f1819f240d84e2cbb4b7b4c") (revision "5")) (package (name "guile-prometheus") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.cbaines.net/git/guile/prometheus") (commit commit))) (sha256 (base32 "07822jj4appw37lf444kc4xlgl7nm64mgldag56072l55kwashgb")) (file-name (string-append name "-" version "-checkout")))) (build-system gnu-build-system) (native-inputs (list pkg-config autoconf automake guile-3.0)) (inputs (list guile-3.0)) (home-page "https://git.cbaines.net/guile/prometheus") (synopsis "Prometheus client library for Guile") (description "This Guile library provides instrumentation code intended to be used with the Prometheus time series service. Counter, gauge and histogram metric types are supported.") (license license:gpl3+)))) (define-public guile2.2-pfds (package (inherit guile-pfds) (name "guile2.2-pfds") (native-inputs (list guile-2.2)) (arguments (substitute-keyword-arguments (package-arguments guile-pfds) ((#:phases phases) `(modify-phases ,phases (delete 'work-around-guile-bug) (add-after 'move-files-around 'sls->scm (lambda _ ;; In Guile <= 2.2.4, there's no way to tell 'guild ;; compile' to accept the ".sls" extension. So... (for-each (lambda (file) (rename-file file (string-append (string-drop-right file 4) ".scm"))) (find-files "." "\\.sls$")) #t)))))))) (define-public guile-aa-tree (package (name "guile-aa-tree") (version "3.1.1") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-aa-tree/guile-aa-tree-" version ".tar.gz")) (sha256 (base32 "0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh")))) (build-system guile-build-system) (native-inputs (list guile-2.2)) ;; https://savannah.nongnu.org/projects/guile-aa-tree (home-page "https://qlfiles.net/guile-aa-tree/") (synopsis "AA tree data structure for Guile") (description "This package provides an implementation of @dfn{AA trees}, a self-balancing binary tree data structure, for Guile. It ensure @math{O(log n)} worst case performance for core operations. The module provides non-mutating insert, delete, and search operations, with support for convenient nested tree operations.") (license license:gpl3+))) (define-public guile-simple-zmq (let ((commit "b2ea97e5a0e7417ce718b27b6fd55a3146364b82") (revision "9")) (package (name "guile-simple-zmq") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/jerry40/guile-simple-zmq") (commit commit))) (sha256 (base32 "08qvcxx0njz9545xa0lq3wpf55v9cl9nbb640ry1lig11wpymqxb")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (native-inputs (list guile-3.0)) (inputs (list autoconf automake pkg-config zeromq)) (home-page "https://github.com/jerry40/guile-simple-zmq") (synopsis "Guile wrapper over ZeroMQ library") (description "This package provides a Guile programming interface to the ZeroMQ messaging library.") (license license:gpl3+)))) (define-public guile2.2-simple-zmq (package (inherit guile-simple-zmq) (name "guile2.2-simple-zmq") (native-inputs (list guile-2.2)))) (define-public jupyter-guile-kernel (let ((commit "f25fb90b95529b17a006a807bd04e6aee12ea304") (revision "2")) (package (name "jupyter-guile-kernel") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/jerry40/guile-kernel") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0zr1fasdb2yv9kn21yll993y9higqss4jnfs030ndhjb93raa9sr")))) (build-system guile-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'set-openssl-file-name (lambda* (#:key inputs #:allow-other-keys) ;; Record the absolute file name of the 'openssl' ;; command. (substitute* "src/hmac.scm" (("openssl") (search-input-file inputs "/bin/openssl"))))) ;; XXX: The code uses 'include' to include its own source ;; files, and "-L src" isn't enough in this case. (add-before 'build 'chdir (lambda _ (chdir "src") #t)) (add-after 'build 'chdir-back (lambda _ (chdir "..") #t)) (add-after 'install 'install-kernel (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (json (assoc-ref inputs "guile-json")) (zmq (assoc-ref inputs "guile-simple-zmq")) (deps (list json zmq)) (dir (string-append out "/share/jupyter/kernels/guile")) (effective (target-guile-effective-version))) ;; Install kernel. (install-file "src/kernel.json" dir) ;; Fix hard-coded file name in the kernel. (substitute* (string-append dir "/kernel.json") (("/usr/local/.*/guile-jupyter-kernel.scm") (string-append out "/share/guile/site/" (target-guile-effective-version) "/guile-jupyter-kernel.scm")) (("\"guile\"") (string-append "\"" (assoc-ref inputs "guile") "/bin/guile\"")) (("-s") ;; Add '-L' and '-C' flags so that the kernel ;; finds its dependencies. (let ((-L (map (lambda (item) (string-append "\"" item "/share/guile/site/" effective "\"")) deps)) (-C (map (lambda (item) (string-append "\"" item "/lib/guile/" effective "/site-ccache\"")) deps))) (string-append "--no-auto-compile\"" (string-join -L ", \"-L\", " 'prefix) (string-join -C ", \"-C\", " 'prefix) ", \"-s")))) #t)))))) (inputs (list openssl guile-3.0 guile-json-3 guile-simple-zmq)) (synopsis "Guile kernel for the Jupyter Notebook") (description "This package provides a Guile 2.x kernel for the Jupyter Notebook. It allows users to interact with the Guile REPL through Jupyter.") (home-page "https://github.com/jerry40/guile-kernel") (license license:gpl3+)))) (define-public guile-sparql (package (name "guile-sparql") (version "0.0.8") (source (origin (method url-fetch) (uri (string-append "https://github.com/roelj/guile-sparql/releases/download/" version "/guile-sparql-" version ".tar.gz")) (sha256 (base32 "1jf4972f9fpm0rd865xpnc9mzl3xv6vhfnp0iygadydy905z9nln")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list guile-3.0)) (home-page "https://github.com/roelj/guile-sparql") (synopsis "SPARQL module for Guile") (description "This package provides the functionality to query a SPARQL endpoint. Additionally, it provides an interface to write SPARQL queries using S-expressions.") (license license:gpl3+))) (define-public guile-debbugs (package (name "guile-debbugs") (version "0.0.3") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/guile-debbugs/guile-debbugs-" version ".tar.gz")) (sha256 (base32 "1cc63nw3xdfjrfk8c58r6d5lidmfq5cpqcy32yd5xp81yccprvn9")))) (build-system gnu-build-system) (propagated-inputs (list guile-email)) (native-inputs (list guile-3.0 pkg-config)) (home-page "https://savannah.gnu.org/projects/guile-debbugs/") (synopsis "Guile interface to the Debbugs bug tracking service") (description "This package provides a Guile library to communicate with a Debbugs bug tracker's SOAP service, such as @url{https://bugs.gnu.org}.") (license license:gpl3+))) (define-public guile-email (package (name "guile-email") (version "0.2.2") (source (origin (method url-fetch) (uri (string-append "https://guile-email.systemreboot.net/releases/guile-email-" version ".tar.lz")) (sha256 (base32 "1rc8r0fgvflnyq5ckl7ii8sghpsgpkzxa8vskjr1ak2kyar6m35k")) (patches (search-patches "guile-email-fix-tests.patch")))) (build-system gnu-build-system) (native-inputs (list pkg-config lzip)) (inputs (list guile-3.0)) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings (home-page "https://guile-email.systemreboot.net") (synopsis "Guile email parser") (description "guile-email is a collection of email utilities implemented in pure guile. It supports parsing MIME (Multipurpose Internet Mail Extensions) compliant email messages and reading emails from the mbox format.") (license license:agpl3+))) (define-public guile-email-latest (let ((commit "ea60bb902d3677d5c653851c7aa6afbbf710140e") (revision "2")) (package (inherit guile-email) (name "guile-email-latest") (version (git-version "0.2.2" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.systemreboot.net/guile-email") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1g4rn7ai3nfxmpppc8qbpv8b18wnsld29y5xa58cv9b8pf3pbwnj")))) (native-inputs (list pkg-config autoconf automake texinfo))))) (define-public guile2.2-email (package (inherit guile-email) (name "guile2.2-email") (inputs (modify-inputs (package-inputs guile-email) (replace "guile" guile-2.2))))) (define-public guile-newt (package (name "guile-newt") (version "0.0.2") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/mothacehe/guile-newt") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1gksd1lzgjjh1p9vczghg8jw995d22hm34kbsiv8rcryirv2xy09")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (inputs (list guile-3.0 newt)) (native-inputs (list autoconf automake pkg-config)) (synopsis "Guile bindings to Newt") (description "This package provides bindings for Newt, a programming library for color text mode, widget based user interfaces. The bindings are written in pure Scheme by using Guile’s foreign function interface.") (home-page "https://gitlab.com/mothacehe/guile-newt") (license license:gpl3+))) (define-public guile2.2-newt (package (inherit guile-newt) (name "guile2.2-newt") (inputs (modify-inputs (package-inputs guile-newt) (replace "guile" guile-2.2))))) (define-public guile-mastodon (let ((commit "74b75bcf547df92acee1e0466ecd7ec07f775392") (revision "1")) (package (name "guile-mastodon") (version (git-version "0.0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://framagit.org/prouby/guile-mastodon.git") (commit commit))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "1wx5h6wa9c0na8mrnr2nv1nzjvq68zyrly8yyp11dsskhaw4y33h")))) (build-system gnu-build-system) (native-inputs (list autoconf automake emacs-minimal pkg-config texinfo)) (inputs (list guile-3.0 gnutls guile-json-4)) (home-page "https://framagit.org/prouby/guile-mastodon") (synopsis "Guile Mastodon REST API module") (description "This package provides Guile modules to access the @uref{https://docs.joinmastodon.org/api/, REST API of Mastodon}, a federated microblogging service.") (license license:gpl3+)))) (define-public guile-parted (package (name "guile-parted") (version "0.0.5") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/mothacehe/guile-parted") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1ar6n38br3h1jm54yy6d54rpqdgsy7pmnj3nqdzqrfk8z0kx0rm9")) (modules '((guix build utils))))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (inputs ;; XXX: Use Parted 3.4 to work around issues when using 3.5 in the Guix ;; System installer: . (list guile-3.0 parted-3.4)) (propagated-inputs (list guile-bytestructures)) (native-inputs (list autoconf automake pkg-config)) (synopsis "Guile bindings to GNU Parted") (description "This package provides bindings for GNU Parted library, a C library allowing disk partition tables creation and manipulation. The bindings are written in pure Scheme by using Guile's foreign function interface.") (home-page "https://gitlab.com/mothacehe/guile-parted") (license license:gpl3+))) (define-public guile2.2-parted (package (inherit guile-parted) (name "guile2.2-parted") (inputs (modify-inputs (package-inputs guile-parted) (replace "guile" guile-2.2))) (propagated-inputs `(("guile-bytestructures" ,guile2.2-bytestructures))))) (define-public guile-xosd (package (name "guile-xosd") (version "0.2.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/alezost/" name "/releases/download/v" version "/" name "-" version ".tar.gz")) (sha256 (base32 "10r29bpyrsvjalnzkam2falj9k34lvxmch05zs606zp1nk93whp3")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-before 'build 'set-cpath (lambda* (#:key inputs #:allow-other-keys) (setenv "CPATH" (string-append (assoc-ref inputs "guile") "/include/guile/3.0:" (or (getenv "CPATH") ""))) #t))))) (native-inputs (list pkg-config)) (inputs (list guile-3.0 libx11 libxext libxinerama xosd)) (home-page "https://github.com/alezost/guile-xosd") (synopsis "XOSD bindings for Guile") (description "Guile-XOSD provides Guile bindings for @code{libxosd}, @uref{http://sourceforge.net/projects/libxosd/, the X On Screen Display library}.") (license license:gpl3+))) (define-public guile-dbi (package (name "guile-dbi") (version "2.1.8") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/opencog/guile-dbi") (commit (string-append "guile-dbi-" version)))) (file-name (git-file-name name version)) (sha256 (base32 "123m4j82bi60s1v95pjh4djb7bh6zdwmljbpyg7zq8ni2gyal7lw")))) (build-system gnu-build-system) (arguments `(#:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:configure-flags (list (string-append "--with-guile-site-dir=" %output "/share/guile/site/" (target-guile-effective-version (assoc-ref %build-inputs "guile")))) #:phases (modify-phases %standard-phases (add-after 'unpack 'chdir (lambda _ ;; The upstream Git repository contains all the code, so change ;; to the directory specific to guile-dbi. (chdir "guile-dbi"))) (add-after 'install 'patch-extension-path (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (dbi.scm (string-append out "/share/guile/site/" (target-guile-effective-version (assoc-ref inputs "guile")) "/dbi/dbi.scm")) (ext (string-append out "/lib/libguile-dbi"))) (substitute* dbi.scm (("libguile-dbi") ext)))))))) (native-inputs (list autoconf automake libtool perl texinfo)) (propagated-inputs (list guile-2.2)) (synopsis "Guile database abstraction layer") (home-page "https://github.com/opencog/guile-dbi") (description "guile-dbi is a library for Guile that provides a convenient interface to SQL databases. Database programming with guile-dbi is generic in that the same programming interface is presented regardless of which database system is used. It currently supports MySQL, Postgres and SQLite3.") (license license:gpl2+) (native-search-paths (list (search-path-specification (variable "GUILE_DBD_PATH") (files '("lib"))))))) (define-public guile-dbd-sqlite3 (package (inherit guile-dbi) (name "guile-dbd-sqlite3") (arguments (substitute-keyword-arguments (package-arguments guile-dbi) ((#:phases phases) `(modify-phases ,phases (replace 'chdir (lambda _ ;; The upstream Git repository contains all the code, so change ;; to the directory specific to guile-dbd-sqlite3. (chdir "guile-dbd-sqlite3"))) (delete 'patch-extension-path))))) (inputs (list sqlite zlib)) (native-inputs (modify-inputs (package-native-inputs guile-dbi) (prepend guile-dbi ; only required for headers pkg-config))) (synopsis "Guile DBI driver for SQLite") (description "guile-dbi is a library for Guile that provides a convenient interface to SQL databases. This package implements the interface for SQLite."))) (define-public guile-dbd-postgresql (package (inherit guile-dbi) (name "guile-dbd-postgresql") (arguments (substitute-keyword-arguments (package-arguments guile-dbi) ((#:phases phases) `(modify-phases ,phases (replace 'chdir (lambda _ ;; The upstream Git repository contains all the code, so change ;; to the directory specific to guile-dbd-mysql. (chdir "guile-dbd-postgresql"))) (add-after 'chdir 'patch-src (lambda _ (substitute* "src/guile-dbd-postgresql.c" (("postgresql/libpq-fe\\.h") "libpq-fe.h")))) (delete 'patch-extension-path))))) (inputs (list postgresql zlib)) (native-inputs (modify-inputs (package-native-inputs guile-dbi) (prepend guile-dbi ; only required for headers ))) (synopsis "Guile DBI driver for PostgreSQL") (description "@code{guile-dbi} is a library for Guile that provides a convenient interface to SQL databases. This package implements the interface for PostgreSQL."))) (define-public guile-dbd-mysql (package (inherit guile-dbi) (name "guile-dbd-mysql") (arguments (substitute-keyword-arguments (package-arguments guile-dbi) ((#:phases phases) `(modify-phases ,phases (replace 'chdir (lambda _ ;; The upstream Git repository contains all the code, so change ;; to the directory specific to guile-dbd-mysql. (chdir "guile-dbd-mysql"))) (add-after 'chdir 'patch-src (lambda _ (substitute* "configure.ac" (("mariadbclient") "mariadb")) (substitute* "src/guile-dbd-mysql.c" (("string (parallel-job-count))) (let* ((out (assoc-ref outputs "out")) (dir "src/ncurses") (files (find-files dir ".scm"))) (substitute* files (("\"libguile-ncurses\"") (format #f "\"~a/lib/guile/~a/libguile-ncurses\"" out (target-guile-effective-version)))) #t)))))) (home-page "https://www.gnu.org/software/guile-ncurses/") (synopsis "Guile bindings to ncurses") (description "guile-ncurses provides Guile language bindings for the ncurses library.") (license license:lgpl3+))) (define-public guile2.2-ncurses (package (inherit guile-ncurses) (name "guile2.2-ncurses") (inputs (list ncurses guile-2.2)))) (define-public guile-ncurses/gpm (package (inherit guile-ncurses) (name "guile-ncurses-with-gpm") (inputs `(("ncurses" ,ncurses/gpm) ("guile" ,guile-3.0))))) (define-public guile-lib (package (name "guile-lib") (version "0.2.7") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/guile-lib/guile-lib-" version ".tar.gz")) (sha256 (base32 "1ph4z4a64m75in36pdb4dw63dzdq3hdgh16gq33q460jby23pvz4")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0") ;placate guild warnings #:phases (modify-phases %standard-phases (add-before 'configure 'patch-module-dir (lambda _ (substitute* "src/Makefile.in" (("^moddir = ([[:graph:]]+)") "moddir = $(datadir)/guile/site/@GUILE_EFFECTIVE_VERSION@\n") (("^godir = ([[:graph:]]+)") "godir = \ $(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))))))) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) ("gettext" ,gettext-minimal) ("guile" ,guile-3.0) ("pkg-config" ,pkg-config))) (inputs (list guile-3.0)) ;for cross-compilation (home-page "https://www.nongnu.org/guile-lib/") (synopsis "Collection of useful Guile Scheme modules") (description "Guile-Lib is intended as an accumulation place for pure-scheme Guile modules, allowing for people to cooperate integrating their generic Guile modules into a coherent library. Think \"a down-scaled, limited-scope CPAN for Guile\". It provides the following modules: +@itemize +@item (apicheck) Describe and verify library programming interfaces. +@item (config load) Loading configuration files. +@item (container async-queue) A thread-safe message queue. +@item (container nodal-tree) A tree consisting of nodes with attributes. +@item (container delay-tree) A nodal tree with lazily evaluated fields. +@item (debugging assert) Helpful assert macro. +@item (debugging time) A simple macro to time the execution of an expression. +@item (graph topological-sort) Routines to perform topological sorts. +@item (htmlprag) Neil Van Dyke's permissive (\"pragmatic\") HTML parser. +@item (io string) SLIB's IO routines dealing with strings. +@item (logging logger) A flexible logging system. +@item (logging port-log) A logger that outputs to a port. +@item (logging rotating-log) A logger that rotates its output files. +@item (match-bind) Nifty and concise regular expression routines. +@item (math minima) A golden-section minimum finder. +@item (math primes) Functions related to prime numbers and factorization. +@item (os process) Spawning processes and capturing their output. +@item (scheme documentation) Macros to define different kinds of variables +with documentation. +@item (scheme kwargs) Defining functions with flexible keyword arguments. +@item (search basic) Classic search functions. +@item (string completion) Building blocks for tab completion. +@item (string soundex) The SOUNDEX string categorization algorithm. +@item (string transform) Beyond SRFI-13. +@item (string wrap) A versatile string formatter. +@item (term ansi-color) Generate ANSI color escape sequences. +@item (unit-test) A JUnit-style unit testing framework. +@end itemize") ;; The whole is under GPLv3+, but some modules are under laxer ;; distribution terms such as LGPL and public domain. See `COPYING' for ;; details. (license license:gpl3+))) (define-public guile2.0-lib (package (inherit guile-lib) (name "guile2.0-lib") (native-inputs (alist-replace "guile" (list guile-2.0) (package-native-inputs guile-lib))) (inputs (alist-replace "guile" (list guile-2.0) (package-inputs guile-lib))))) (define-public guile2.2-lib (package (inherit guile-lib) (name "guile2.2-lib") (native-inputs (alist-replace "guile" (list guile-2.2) (package-native-inputs guile-lib))) (inputs (alist-replace "guile" (list guile-2.2) (package-inputs guile-lib))))) (define-public guile-minikanren (package (name "guile-minikanren") (version "20150424.e844d85") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ijp/minikanren") (commit "e844d85512f8c055d3f96143ee506007389a25e3"))) (file-name (string-append name "-" version "-checkout")) (sha256 (base32 "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6")))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://github.com/ijp/minikanren") (synopsis "MiniKanren declarative logic system, packaged for Guile") (description "MiniKanren is a relational programming extension to the Scheme programming Language, written as a smaller version of Kanren suitable for pedagogical purposes. It is featured in the book, The Reasoned Schemer, written by Dan Friedman, William Byrd, and Oleg Kiselyov. This is Ian Price's r6rs packaged version of miniKanren, which deviates slightly from miniKanren mainline. See http://minikanren.org/ for more on miniKanren generally.") (license license:expat))) (define-public guile2.0-minikanren (package (inherit guile-minikanren) (name "guile2.0-minikanren") (native-inputs (list guile-2.0)))) (define-public guile2.2-minikanren (package (inherit guile-minikanren) (name "guile2.2-minikanren") (native-inputs (list guile-2.2)))) (define-public guile-irregex (package (name "guile-irregex") (version "0.9.6") (source (origin (method url-fetch) (uri (string-append "http://synthcode.com/scheme/irregex/irregex-" version ".tar.gz")) (sha256 (base32 "1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq")))) (build-system guile-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'move-files-around (lambda _ ;; Move the relevant source files to src/ and create the ;; rx/ directory to match the expected module hierarchy. (mkdir-p "src/rx/source") (rename-file "irregex-guile.scm" "src/rx/irregex.scm") (rename-file "irregex.scm" "src/rx/source/irregex.scm") ;; Not really reachable via guile's packaging system, ;; but nice to have around. (rename-file "irregex-utils.scm" "src/rx/source/irregex-utils.scm") #t))) #:source-directory "src")) (native-inputs (list guile-3.0)) (home-page "http://synthcode.com/scheme/irregex") (synopsis "S-expression based regular expressions") (description "Irregex is an s-expression based alternative to your classic string-based regular expressions. It implements SRFI 115 and is deeply inspired by the SCSH regular expression system.") (license license:bsd-3))) (define-public guile2.0-irregex (package (inherit guile-irregex) (name "guile2.0-irregex") (native-inputs (list guile-2.0)))) (define-public guile2.2-irregex (package (inherit guile-irregex) (name "guile2.2-irregex") (native-inputs (list guile-2.2)))) (define-public haunt (package (name "haunt") (version "0.2.6") (source (origin (method url-fetch) (uri (string-append "https://files.dthompson.us/haunt/haunt-" version ".tar.gz")) (sha256 (base32 "1nwhwngx0gl2892vrvrzrxy5w6a5l08j1w0522kdh9a3v11qpwmw")))) (build-system gnu-build-system) (arguments `(#:modules ((ice-9 match) (ice-9 ftw) ,@%gnu-build-system-modules) #:tests? #f ; test suite is non-deterministic :( #:phases (modify-phases %standard-phases (add-after 'install 'wrap-haunt (lambda* (#:key inputs outputs #:allow-other-keys) ;; Wrap the 'haunt' command to refer to the right ;; modules. (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (site (string-append out "/share/guile/site")) (guile-reader (assoc-ref inputs "guile-reader")) (deps `(,@(if guile-reader (list guile-reader) '()) ,(assoc-ref inputs "guile-commonmark")))) (match (scandir site) (("." ".." version) (let ((modules (string-append site "/" version)) (compiled-modules (string-append out "/lib/guile/" version "/site-ccache"))) (wrap-program (string-append bin "/haunt") `("GUILE_LOAD_PATH" ":" prefix (,modules ,@(map (lambda (dep) (string-append dep "/share/guile/site/" version)) deps))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,compiled-modules ,@(map (lambda (dep) (string-append dep "/lib/guile/" version "/site-ccache")) deps)))) #t))))))))) (native-inputs (list pkg-config texinfo)) (inputs ;; Depend on the latest Guile to avoid bytecode compatibility issues when ;; using modules built against the latest version. (list guile-3.0-latest)) (propagated-inputs (list guile-reader guile-commonmark)) (synopsis "Functional static site generator") (description "Haunt is a static site generator written in Guile Scheme. Haunt features a functional build system and an extensible interface for reading articles in any format.") (home-page "https://dthompson.us/projects/haunt.html") (license license:gpl3+))) (define-public guile2.2-haunt (package (inherit haunt) (name "guile2.2-haunt") (inputs (list guile-2.2)) (propagated-inputs `(("guile-reader" ,guile2.2-reader) ("guile-commonmark" ,guile2.2-commonmark))))) (define-public guile2.0-haunt (package (inherit haunt) (name "guile2.0-haunt") (inputs (list guile-2.0)))) (define-public guile-redis (package (name "guile-redis") (version "2.2.0") (home-page "https://github.com/aconchillo/guile-redis") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0cb31vj88f3hj93v1lzxcqjyz7ym2gmpk31gv5i2dqv721frnlyj")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) (native-inputs (list autoconf automake pkg-config guile-3.0)) (synopsis "Redis client library for Guile") (description "Guile-redis provides a Scheme interface to the Redis key-value cache and store.") (license license:lgpl3+))) (define-public guile2.2-redis (package (inherit guile-redis) (name "guile2.2-redis") (native-inputs (modify-inputs (package-native-inputs guile-redis) (replace "guile" guile-2.2))))) (define-public guile2.0-redis (package (inherit guile-redis) (name "guile2.0-redis") (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-source (lambda _ ;; put-string is in (rnrs io ports) in guile2.0, ;; not in (ice-9 textual-ports) (substitute* "redis/utils.scm" (("\\(ice-9 textual-ports\\)") "(rnrs io ports)")) #t))) ,@(package-arguments guile-redis))) (native-inputs (modify-inputs (package-native-inputs guile-redis) (replace "guile" guile-2.0))))) (define-public guile-commonmark (package (name "guile-commonmark") (version "0.1.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/OrangeShark/" name "/releases/download/v" version "/" name "-" version ".tar.gz")) (sha256 (base32 "17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman")) (modules '((guix build utils))) (snippet '(begin ;; Allow builds with Guile 3.0. (substitute* "configure" (("2\\.2 2\\.0") "3.0 2.2 2.0")) #t)))) (build-system gnu-build-system) ;; The tests throw exceptions with Guile 3.0.5, because they evaluate ;; (exit ...). ;; ;; This has been fixed upstream, but there has not been a new release ;; containing this change. (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'fix-tests-when-building-with-guile-3.0.5 (lambda _ (substitute* (find-files "tests" "\\.scm$") (("\\(exit.*") "")) #t))))) (inputs (list guile-3.0)) (native-inputs (list pkg-config)) (synopsis "CommonMark parser for Guile") (description "guile-commonmark is a library for parsing CommonMark, a fully specified variant of Markdown. The library is written in Guile Scheme and is designed to transform a CommonMark document to SXML. guile-commonmark tries to closely follow the @uref{http://commonmark.org/, CommonMark spec}, the main difference is no support for parsing block and inline level HTML.") (home-page "https://github.com/OrangeShark/guile-commonmark") (license license:lgpl3+))) (define-public guile2.2-commonmark (package (inherit guile-commonmark) (name "guile2.2-commonmark") (inputs (list guile-2.2)))) (define-public guile2.0-commonmark (package (inherit guile-commonmark) (name "guile2.0-commonmark") (inputs (list guile-2.0)))) (define-public mcron (package (name "mcron") (version "1.2.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/mcron/mcron-" version ".tar.gz")) (sha256 (base32 "0bkn235g2ia4f7ispr9d55c7bc18282r3qd8ldhh5q2kiin75zi0")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-before 'check 'adjust-tests (lambda _ (substitute* "tests/job-specifier.scm" ;; (getpw) fails with "entry not found" in the build ;; environment, so pass an argument. (("\\(getpw\\)") "(getpwnam (getuid))") ;; The build environment lacks an entry for root in ;; /etc/passwd. (("\\(getpw 0\\)") "(getpwnam \"nobody\")") ;; FIXME: Skip the 4 faulty tests (see above). (("\\(test-equal \"next-year\"" all) (string-append "(test-skip 4)\n" all))) #t))))) (native-inputs `(("pkg-config" ,pkg-config) ("tzdata" ,tzdata-for-tests) ("guile-native" ;for 'guild compile' ,@(assoc-ref (package-inputs this-package) "guile")))) (inputs (list guile-3.0)) (home-page "https://www.gnu.org/software/mcron/") (synopsis "Run jobs at scheduled times") (description "GNU Mcron is a complete replacement for Vixie cron. It is used to run tasks on a schedule, such as every hour or every Monday. Mcron is written in Guile, so its configuration can be written in Scheme; the original cron format is also supported.") (license license:gpl3+))) (define-public guile2.2-mcron (package (inherit mcron) (name "guile2.2-mcron") (inputs (list guile-2.2)))) (define-public guile-picture-language (let ((commit "a1322bf11945465241ca5b742a70893f24156d12") (revision "5")) (package (name "guile-picture-language") (version (git-version "0.0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.elephly.net/software/guile-picture-language.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "03i528z92ainccgm28shg4haxiav5x4cyhyi5dggq1rm027vbm99")))) (build-system gnu-build-system) (inputs (list guile-3.0)) (propagated-inputs (list guile-cairo guile-rsvg)) (native-inputs (list autoconf automake librsvg pkg-config texinfo)) (home-page "https://git.elephly.net/software/guile-picture-language.git") (synopsis "Picture language for Guile") (description "This package provides a simple SVG-based picture language for Guile. The picture values can directly be displayed in Geiser.") ;; (pict base64) is under GPLv3+, the rest is under LGPLv3+ (license (list license:lgpl3+ license:gpl3+))))) (define-public guile2.2-picture-language (package (inherit guile-picture-language) (name "guile2.2-picture-language") (inputs (list guile-2.2)) (propagated-inputs (list guile2.2-cairo guile2.2-rsvg)))) (define-public guile-studio (let ((commit "dd0ad42e51feafebda7cc29afe7c8bc7a182a842") (revision "1")) (package (name "guile-studio") (version (git-version "0.1.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.elephly.net/software/guile-studio.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1cpqilly8dqmai1qsgjxy99zs34sfz95zwxhzx979wryqb69vi0q")))) (build-system gnu-build-system) (arguments `(#:modules ((ice-9 match) (srfi srfi-1) ,@%gnu-build-system-modules) #:tests? #f ; there are none #:make-flags (list (string-append "PICT_DIR=" (assoc-ref %build-inputs "guile-picture-language")) (string-append "EMACS_DIR=" (assoc-ref %build-inputs "emacs")) (string-append "GUILE_DIR=" (assoc-ref %build-inputs "guile")) (string-join (cons "INPUTS=" (filter-map (lambda (input) (match input ((label . pkg) (and (string-prefix? "emacs" label) pkg)))) %build-inputs))) (string-append "PREFIX=" (assoc-ref %outputs "out"))) #:phases (modify-phases %standard-phases (delete 'configure) (delete 'install)))) (inputs (list guile-3.0 guile-picture-language emacs emacs-f ; needed by doom-modeline emacs-memoize ; needed by all-the-icons emacs-all-the-icons ; needed by doom-modeline emacs-all-the-icons-dired emacs-dired-sidebar emacs-doom-modeline emacs-modus-themes emacs-geiser emacs-geiser-guile emacs-company emacs-ivy emacs-flycheck emacs-flycheck-guile emacs-paren-face)) (native-inputs (list texinfo)) (home-page "https://gnu.org/software/guile") (synopsis "IDE for Guile") (description "This is Emacs with a few settings that make working with Guile easier for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons to evaluate Guile buffers, support for Guile's very own picture language, code completion, a simple mode line, etc.") (license license:gpl3+)))) (define-public guile-stis-parser (package (name "guile-stis-parser") (version "1.2.4.1") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/tampe/stis-parser") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1fvxdfvc80zqhwzq5x3kxyr6j8p4b51yx85fx1gr3d4gy2ddpx5w")))) (build-system gnu-build-system) (arguments `(#:parallel-build? #f ; not supported #:phases (modify-phases %standard-phases (add-after 'unpack 'chdir (lambda _ (chdir "modules") #t)) (add-after 'chdir 'delete-broken-symlink (lambda _ (delete-file "parser/stis-parser/lang/.#calc.scm") #t))))) (inputs (list guile-3.0)) (native-inputs (list autoconf automake pkg-config)) (home-page "https://gitlab.com/tampe/stis-parser") (synopsis "Parser combinator framework") (description "This package provides a functional parser combinator library that supports backtracking and a small logical framework. The idea is to build up chunks that are memoized and there is no clear scanner/parser separation, chunks can be expressions as well as simple tokens.") (license license:lgpl2.0+))) (define-public guile-persist (package (name "guile-persist") (version "1.2.3") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/tampe/guile-persist") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "19f8hqcax4v40858kx2j8fy1cvzc2djj99r0n17dy1xxmwa097qi")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'patch-prefix (lambda* (#:key inputs outputs #:allow-other-keys) (substitute* "src/Makefile.am" (("/usr/local/lib/guile") (string-append (assoc-ref outputs "out") "/lib/guile")) (("/usr/local/include/guile") (search-input-directory inputs "/include/guile")) (("-L/usr/local/lib") (string-append "-L" (assoc-ref inputs "guile") "/lib"))) #t)) (add-after 'unpack 'patch-library-reference (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (substitute* "persist/persistance.scm" (("\"libguile-persist\"") (format #f "\"~a/lib/guile/3.0/extensions/libguile-persist\"" out))) #t)))))) (inputs (list guile-3.0)) (native-inputs (list autoconf automake libtool pkg-config)) (home-page "https://gitlab.com/tampe/guile-persist") (synopsis "Persistence programming framework for Guile") (description "This is a serialization library for serializing objects like classes and objects, closures and structs. This currently does not support serializing continuations or delimited continuations.") (license license:lgpl2.0+))) (define-public python-on-guile (package (name "python-on-guile") (version "1.2.3.5") (home-page "https://gitlab.com/python-on-guile/python-on-guile") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "05xrvcj6a4gzq1ybyin270qz8wamgc7w2skyi9iy6hkpgdhxy8vf")))) (build-system gnu-build-system) (arguments `(#:parallel-build? #f ;not supported #:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings #:phases (modify-phases %standard-phases (add-after 'unpack 'chdir (lambda _ (chdir "modules") #t)) (add-after 'chdir 'augment-GUILE_LOAD_PATH (lambda _ ;; TODO: It would be better to patch the Makefile. (setenv "GUILE_LOAD_PATH" (string-append ".:" (getenv "GUILE_LOAD_PATH"))) #t)) (add-after 'install 'wrap (lambda* (#:key outputs #:allow-other-keys) ;; Wrap the 'python' executable so it can find its ;; dependencies and own modules. (let* ((out (assoc-ref outputs "out")) (guile-version ,(version-major+minor (package-version guile-3.0))) (scm (string-append out "/share/guile/site/" guile-version)) (ccache (string-append out "/lib/guile/" guile-version "/site-ccache")) (load-path (string-join (cons scm ;; XXX: cdr because we augment it above. (cdr (string-split (getenv "GUILE_LOAD_PATH") #\:))) ":")) (compiled-path (string-append ccache ":" (getenv "GUILE_LOAD_COMPILED_PATH")))) (wrap-program (string-append out "/bin/python") `("GUILE_LOAD_PATH" ":" prefix (,load-path)) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,compiled-path))) #t)))))) (inputs (list guile-3.0 guile-persist guile-readline guile-stis-parser)) (native-inputs (list autoconf automake libtool pkg-config)) (synopsis "Python implementation in Guile") (description "This package allows you to compile a Guile Python file to any target from @code{tree-il}.") (license license:lgpl2.0+))) (define-public guile-file-names (package (name "guile-file-names") (version "0.3") (source (origin (method url-fetch) (uri (string-append "http://brandon.invergo.net/software/download/" "guile-file-names/guile-file-names-" version ".tar.gz")) (sha256 (base32 "01chizdxkhw6aqv629vxka9f5x3534ij7r0jqndawsg2vxm1r9sz")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'fix-target-directory (lambda _ (substitute* "src/Makefile.in" (("guilemoddir = \\$\\(GUILE_SITE\\)") "guilemoddir = $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n")) #t))))) (inputs (list guile-2.2)) (native-inputs (list pkg-config)) (home-page "https://gitlab.com/brandoninvergo/guile-file-names") (synopsis "Manipulate file names") (description "The @code{(file-names)} module provides tools for manipulating file names. The module was built on the idea that doing anything more than a non-trivial modification of a file name string is a pain (making sure all slashes are present and accounted for, resolving @code{.} and @code{..}, etc). Inevitably, you have to break the string up into chunks and operate on that list of components. This module takes care of that for you.") (license license:lgpl3+))) (define-public guile-gi (package (name "guile-gi") (version "0.3.2") (source (origin (method url-fetch) (uri (string-append "http://lonelycactus.com/tarball/guile_gi-" version ".tar.gz")) (sha256 (base32 "019mbhgyga57k2074kg97mh3qsa8ny9l0kjgqids8cg3c6vbjdby")))) (build-system glib-or-gtk-build-system) (arguments `(#:configure-flags '("--with-gnu-filesystem-hierarchy") #:modules ((guix build glib-or-gtk-build-system) (guix build utils) (ice-9 popen) (ice-9 rdelim)) #:disallowed-references ,(list gtk+ webkitgtk) #:phases (modify-phases %standard-phases (add-after 'unpack 'remove-dotted-circle-from-combining-character ;; The test/string.scm files contain ◌̀, which is a dotted circle ;; (U+25cc) followed by an upper combining character (U+0300). The ;; old guile 3.0.2 reader incorrectly ignores the dotted circle, ;; and parses it as the combining character alone, but the new ;; guile reader does not. ;; See https://github.com/spk121/guile-gi/issues/112 (lambda* _ (substitute* "test/string.scm" (("#\\\\◌̀") "#\\x0300")))) (add-after 'unpack 'patch-references-to-extension (lambda* (#:key outputs #:allow-other-keys) (let ((effective (read-line (open-pipe* OPEN_READ "guile" "-c" "(display (effective-version))")))) (substitute* (find-files "module" ".*\\.scm") (("\\(load-extension \"libguile-gi\" \"(.*)\"\\)" m arg) (format #f "~s" `(load-extension (format #f "~alibguile-gi" (if (getenv "GUILE_GI_UNINSTALLED") "" ,(format #f "~a/lib/guile/~a/extensions/" (assoc-ref outputs "out") effective))) ,arg))))) (setenv "GUILE_GI_UNINSTALLED" "1") #t)) (add-before 'check 'start-xorg-server (lambda* (#:key inputs #:allow-other-keys) ;; The init_check test requires a running X server. (system (format #f "~a/bin/Xvfb :1 &" (assoc-ref inputs "xorg-server"))) (setenv "DISPLAY" ":1") #t))))) (native-inputs (list gettext-minimal `(,glib "bin") ; for glib-compile-resources libtool pkg-config xorg-server)) (propagated-inputs (list gobject-introspection)) (inputs (list guile-3.0 glib ;; For tests, only relevant when compiling natively gtk+ webkitgtk)) (home-page "https://github.com/spk121/guile-gi") (synopsis "GObject bindings for Guile") (description "Guile-GI is a library for Guile that allows using GObject-based libraries, such as GTK+3. Its README comes with the disclaimer: This is pre-alpha code.") (license license:gpl3+))) (define-public guile2.2-gi (package (inherit guile-gi) (name "guile2.2-gi") (inputs (modify-inputs (package-inputs guile-gi) (replace "guile" guile-2.2))))) (define-public guile-srfi-89 (package (name "guile-srfi-89") (version "0.0.1") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/mjbecze/guile-srfi-89.git") (commit version))) (sha256 (base32 "1981c0rrzxqx3md9jx8ir7j3m2mzg9m72b33p5jvw36zirbzpl20")) (file-name (git-file-name name version)))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://gitlab.com/mjbecze/guile-srfi-89") (synopsis "Hygienic implementation of SRFI-89 for Guile") (description "This package provides SRFI-89 optional positional and named parameters, which define* and lambda* special forms") (license license:gpl3+))) (define-public guile-srfi-145 (package (name "guile-srfi-145") (version "0.0.1") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/mjbecze/guile-srfi-145.git") (commit version))) (sha256 (base32 "1gssa8cmcp8640fil9z8dpil8v5l279wlalqjcx3fls5jwv13q1b")) (file-name (git-file-name name version)))) (build-system guile-build-system) (native-inputs (list guile-3.0)) (home-page "https://gitlab.com/mjbecze/guile-srfi-145") (synopsis "SRFI-145 port for Guile") (description "This package provides SRFI-145. This provides the means to denote the invalidity of certain code paths in a Scheme program.") (license license:gpl3+))) (define-public guile-srfi-158 (package (name "guile-srfi-158") (version "0.0.1") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/mjbecze/guile-srfi-158.git") (commit version))) (sha256 (base32 "0b8hlv1bldbcwkcxi9y8mm6xp5gbgpg7b15bwqxv70iynl9d9a7c")) (file-name (git-file-name name version)))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config)) (inputs (list guile-3.0)) (home-page "https://gitlab.com/samplet/guile-srfi-158") (synopsis "SRFI 158 (Generators and Accumulators) for Guile") (description "This package provides an implementation of SRFI 158 for Guile. SRFI 158 defines utility procedures that create, transform, and consume generators. It also defines procedures that return accumulators. It is implemented by wrapping the sample implementation in a thin Guile compatibility layer.") (license license:gpl3+))) (define-public guile-srfi-159 (let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb") (revision "0")) (package (name "guile-srfi-159") (version (git-version "0" revision commit)) (home-page "https://bitbucket.org/bjoli/guile-srfi-159") (source (origin (method hg-fetch) (uri (hg-reference (changeset commit) (url home-page))) (sha256 (base32 "1zw6cmcy7xdbfiz3nz9arqnn7l2daidaps6ixkcrc9b6k51fdv3p")) (file-name (git-file-name name version)))) (build-system guile-build-system) (arguments ;; The *-impl.scm files are actually included from module files; they ;; should not be compiled separately, but they must be installed. '(#:not-compiled-file-regexp "-impl\\.scm$")) (inputs (list guile-2.2)) (synopsis "Formatting combinators for Guile") (description "The @code{(srfi-159)} module and its sub-modules implement the formatting combinators specified by @uref{https://srfi.schemers.org/srfi-159/srfi-159.html, SRFI-159}. These are more expressive and flexible than the traditional @code{format} procedure.") (license license:bsd-3)))) (define-public guile-srfi-180 (let ((commit "9188bf9724c6d320ef804579d222e855b007b193") (revision "0")) (package (name "guile-srfi-180") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/scheme-requests-for-implementation/srfi-180") (commit commit))) (sha256 (base32 "08lf70rsak8mwfij55xc37pg9zg7c87fizmhz7ln46skzj68sl3y")) (modules '((guix build utils))) (snippet '(begin (delete-file-recursively "srfi/files") (delete-file "srfi/run-r7rs-checks.guile.scm") (delete-file "srfi/run-r7rs-checks.scm") (delete-file "srfi/check.scm") #t)) (file-name (git-file-name name version)))) (build-system guile-build-system) (arguments '(#:not-compiled-file-regexp "body\\.scm$")) (native-inputs (list guile-3.0)) (propagated-inputs (list guile-srfi-145)) (home-page "https://srfi.schemers.org/srfi-180/") (synopsis "JSON parser and printer for Guile") (description "This library implements a JavaScript Object Notation (JSON) parser and printer. It also supports parsing JSON objects that may be bigger than memory with a streaming API.") (license license:expat)))) (define-public guile-srfi-189 (let ((commit "659e3cd0fc2bfca9085424eda8cad804ead2a9ea") (revision "1")) (package (name "guile-srfi-189") ;; 'final' is the name of the latest git tag. (version (git-version "final" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/scheme-requests-for-implementation/srfi-189") (commit commit))) (sha256 (base32 "0iqv4sjwbp4k87r9l9abzbs5yjcljm69m91kb1ypb03b0rx7napy")) (modules '((guix build utils))) (snippet '(begin (delete-file "test-syntax.scm") (delete-file "test.scm"))) (file-name (git-file-name name version)))) (build-system guile-build-system) (arguments '(#:not-compiled-file-regexp "srfi/189\\.scm$")) ; it's INCLUDE'd (native-inputs (list guile-3.0)) (propagated-inputs (list guile-srfi-145)) (home-page "https://srfi.schemers.org/srfi-189/") (synopsis "Scheme SRFI implementation of Maybe and Either") (description "This SRFI defines two disjoint immutable container types known as Maybe and Either, both of which can contain objects collectively known as their payload. A Maybe object is either a Just object or the unique object Nothing (which has no payload); an Either object is either a Right object or a Left object. Maybe represents the concept of optional values; Either represents the concept of values which are either correct (Right) or errors (Left).") (license license:expat)))) (define-public emacsy (package (name "emacsy") (version "0.4.1") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/emacsy/emacsy-" version ".tar.gz")) (sha256 (base32 "1cpb85dl1nibd34c2x2h7vfmjpkgh353p5b1w20v6cs6gmvgg4np")) (modules '((guix build utils))) (snippet '(begin (substitute* "configure" ;; Allow builds with Guile 3.0. (("2\\.2 2\\.0") "3.0 2.2 2.0") ;; Freeglut 3.2 provides 'glut.pc', not 'freeglut.pc'. (("freeglut >= ") "glut >= ")) (substitute* '("emacsy/emacsy.c" "example/hello-emacsy.c") (("#include ") (string-append "#include \n" "#include \n" "#include \n" "#include \n" "#include \n"))))))) (build-system gnu-build-system) (native-inputs `(("bzip2" ,bzip2) ("guile" ,guile-3.0) ("gettext" ,gettext-minimal) ("libtool" ,libtool) ("perl" ,perl) ("pkg-config" ,pkg-config) ("texinfo" ,texinfo) ("texlive" ,(texlive-updmap.cfg (list texlive-epsf))))) (inputs (list dbus-glib guile-3.0 guile-lib guile-readline freeglut webkitgtk-with-libsoup2)) (propagated-inputs `(("glib-networking" ,glib-networking) ("gssettings-desktop-schemas" ,gsettings-desktop-schemas))) (arguments `(#:modules ((guix build gnu-build-system) (guix build utils) (ice-9 popen) (ice-9 rdelim) (ice-9 regex) (ice-9 ftw) (srfi srfi-26)) #:phases (modify-phases %standard-phases (add-before 'configure 'setenv (lambda _ (setenv "GUILE_AUTO_COMPILE" "0"))) (add-after 'install 'wrap-binaries (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (effective (read-line (open-pipe* OPEN_READ "guile" "-c" "(display (effective-version))"))) (deps (map (cut assoc-ref inputs <>) '("guile-lib" "guile-readline"))) (scm-path (map (cut string-append <> "/share/guile/site/" effective) `(,out ,@deps))) (go-path (map (cut string-append <> "/lib/guile/" effective "/site-ccache/") `(,out ,@deps))) (examples (filter (cut string-match "emacsy" <>) (scandir (string-append out "/bin/")))) (progs (map (cut string-append out "/bin/" <>) examples))) (map (cut wrap-program <> `("GUILE_LOAD_PATH" ":" prefix ,scm-path) `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path)) progs))))))) (home-page "https://savannah.nongnu.org/projects/emacsy") (synopsis "Embeddable GNU Emacs-like library using Guile") (description "Emacsy is an embeddable Emacs-like library that uses GNU Guile as extension language. Emacsy can give a C program an Emacsy feel with keymaps, minibuffer, recordable macros, history, tab completion, major and minor modes, etc., and can also be used as a pure Guile library. It comes with a simple counter example using FreeGLUT and browser examples in C using Gtk+-3 and WebKitGtk.") (license license:gpl3+))) (define-public emacsy-minimal (let ((commit "v0.4.1-37-g5f91ee6")) (package (inherit emacsy) (name "emacsy-minimal") (version (string-drop commit 1)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.savannah.gnu.org/git/emacsy.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "03ym14g9qhjqmryr5z065kynqm8yhmvnbs2djl6vp3i9cmqln8cl")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) ("gettext" ,gettext-minimal) ("libtool" ,libtool) ("makeinfo" ,texinfo) ("pkg-config" ,pkg-config))) (inputs `(("guile" ,guile-2.2) ("guile-lib" ,guile2.2-lib) ("guile-readline" ,guile2.2-readline))) (propagated-inputs '()) (arguments `(#:configure-flags '("--without-examples") #:phases (modify-phases %standard-phases (add-before 'configure 'setenv (lambda _ (setenv "GUILE_AUTO_COMPILE" "0") #t)))))))) (define-public guile-jpeg (let ((commit "6a1673578b297c2c1b28e44a76bd5c49e76a5046") (revision "0")) (package (name "guile-jpeg") (version (git-version "0.0" revision commit)) (home-page "https://gitlab.com/wingo/guile-jpeg") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit commit))) (sha256 (base32 "05z9m408w3h6aqb5k3r3qa7khir0k10rxwvsrzhkcq1hr5vbmr4m")) (file-name (git-file-name name version)) (modules '((guix build utils))) (snippet '(begin ;; Install .go files in the right place. (substitute* "Makefile.am" (("/ccache") "/site-ccache")) #t)))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config guile-2.2)) (synopsis "JPEG file parsing library for Guile") (description "Guile-JPEG is a Scheme library to parse JPEG image files and to perform geometrical transforms on JPEG images.") (license license:gpl3+)))) (define-public nomad (package (name "nomad") (version "0.2.0-alpha-199-g3e7a475") (source (origin (method git-fetch) (uri (git-reference (url "https://git.savannah.gnu.org/git/nomad.git/") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0p0ha6prp7pyadp61clbhc6b55023vxzfwy14j2qygb2mkq7fhic")))) (build-system gnu-build-system) (native-inputs `(("autoconf" ,autoconf) ("automake" ,automake) ("bash" ,bash) ("pkg-config" ,pkg-config) ("libtool" ,libtool) ("guile" ,guile-2.2) ("glib:bin" ,glib "bin") ("texinfo" ,texinfo) ("gettext" ,gettext-minimal) ("perl" ,perl))) (inputs `(;; Guile ("guile" ,guile-2.2) ("guile-lib" ,guile2.2-lib) ("guile-readline" ,guile2.2-readline) ("guile-gcrypt" ,guile2.2-gcrypt) ("gnutls" ,gnutls) ("g-golf" ,guile2.2-g-golf) ("shroud" ,shroud) ("emacsy" ,emacsy-minimal) ;; Gtk ("glib" ,glib) ("dbus-glib" ,dbus-glib) ("glib-networking" ,glib-networking) ("gtk+" ,gtk+) ("gtk+:bin" ,gtk+ "bin") ("webkitgtk" ,webkitgtk) ("gtksourceview" ,gtksourceview) ("gsettings-desktop-schemas" ,gsettings-desktop-schemas) ("vte" ,vte) ;; Gstreamer ("gstreamer" ,gstreamer) ("gst-plugins-base" ,gst-plugins-base) ("gst-plugins-good" ,gst-plugins-good) ("gst-plugins-bad" ,gst-plugins-bad) ("gst-plugins-ugly" ,gst-plugins-ugly) ;; Util ("xorg-server" ,xorg-server))) (arguments `(#:modules ((guix build gnu-build-system) (guix build utils) (ice-9 popen) (ice-9 rdelim) (srfi srfi-26)) #:phases (modify-phases %standard-phases (add-after 'unpack 'fix-webkitgtk (lambda _ ;; Adapt to the version we have in Guix. (substitute* "configure.ac" (("webkit2gtk-4\\.0") "webkit2gtk-4.1") (("webkit2gtk-web-extension-4\\.0") "webkit2gtk-web-extension-4.1")) (substitute* "typelib/Makefile.am" (("WebKit2-4\\.0") "WebKit2-4.1")))) (add-before 'check 'start-xorg-server (lambda* (#:key inputs #:allow-other-keys) ;; The test suite requires a running X server. (system (format #f "~a/bin/Xvfb :1 &" (assoc-ref inputs "xorg-server"))) (setenv "DISPLAY" ":1") #t)) (add-after 'install 'wrap-binaries (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (effective (read-line (open-pipe* OPEN_READ "guile" "-c" "(display (effective-version))"))) (gst-plugins (map (lambda (i) (string-append (assoc-ref inputs i) "/lib/gstreamer-1.0")) `("gstreamer" "gst-plugins-base" "gst-plugins-good" "gst-plugins-bad" "gst-plugins-ugly"))) (out-append (lambda (. args) (apply string-append out args))) (gi-path (out-append "/lib/girepository-1.0")) (load-path (out-append "/share/guile/site/" effective)) (comp-path (out-append "/lib/guile/" effective "/site-ccache")) (ext-path (out-append "/libexec/nomad"))) (wrap-program (string-append out "/bin/nomad") `("GUILE_LOAD_PATH" ":" prefix (,load-path ,(getenv "GUILE_LOAD_PATH"))) `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,comp-path ,(getenv "GUILE_LOAD_COMPILED_PATH"))) `("GI_TYPELIB_PATH" ":" prefix (,gi-path ,(getenv "GI_TYPELIB_PATH"))) `("GIO_EXTRA_MODULES" ":" prefix (,(getenv "GIO_EXTRA_MODULES"))) `("GST_PLUGIN_SYSTEM_PATH" ":" prefix ,gst-plugins) `("NOMAD_WEB_EXTENSION_DIR" ":" prefix (,ext-path))) #t)))))) (home-page "https://savannah.nongnu.org/projects/nomad/") (synopsis "Extensible Web Browser in Guile Scheme") (description "Nomad is a Emacs-like web browser that consists of a modular feature-set, fully programmable in Guile Scheme.") (license license:gpl3+))) (define-public guile-cv (package (name "guile-cv") (version "0.2.1") (source (origin (method url-fetch) (uri (string-append "mirror://gnu/guile-cv/guile-cv-" version ".tar.gz")) (sha256 (base32 "0qdf0s2h1xj5lbhnc1pfw69i3zg08pqy2y6869b92ydfis8r82j9")))) (build-system gnu-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'prepare-build (lambda* (#:key inputs outputs #:allow-other-keys) (substitute* "configure" (("SITEDIR=\"\\$datadir/guile-cv\"") "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"") (("SITECCACHEDIR=\"\\$libdir/guile-cv/") "SITECCACHEDIR=\"$libdir/")) (substitute* "cv/init.scm" (("\\(dynamic-link \"libvigra_c\"\\)") (string-append "(dynamic-link \"" (assoc-ref inputs "vigra-c") "/lib/libvigra_c\")")) (("\\(dynamic-link \"libguile-cv\"\\)") (format #f "~s" `(dynamic-link (format #f "~alibguile-cv" (if (getenv "GUILE_CV_UNINSTALLED") "" ,(format #f "~a/lib/" (assoc-ref outputs "out")))))))) (setenv "GUILE_CV_UNINSTALLED" "1") ;; Only needed to satisfy the configure script. (setenv "LD_LIBRARY_PATH" (string-append (assoc-ref inputs "vigra-c") "/lib")) #t))))) (inputs (list vigra vigra-c guile-2.2)) (native-inputs `(("texlive" ,(texlive-updmap.cfg (list texlive-booktabs texlive-lm texlive-siunitx texlive-standalone texlive-xcolor texlive-fonts-iwona))) ("pkg-config" ,pkg-config))) (propagated-inputs `(("guile-lib" ,guile2.2-lib))) (home-page "https://www.gnu.org/software/guile-cv/") (synopsis "Computer vision library for Guile") (description "Guile-CV is a Computer Vision functional programming library for the Guile Scheme language. It is based on Vigra (Vision with Generic Algorithms), a C++ image processing and analysis library. Guile-CV contains bindings to Vigra C (a C wrapper to most of the Vigra functionality) and is enriched with pure Guile Scheme algorithms, all accessible through a nice, clean and easy to use high level API.") (license license:gpl3+))) (define-public guile-ffi-fftw (let ((commit "294ad9e7491dcb40026d2fec9be2af05263be1c0") (revision "2")) (package (name "guile-ffi-fftw") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/lloda/guile-ffi-fftw") (commit commit))) (file-name (git-file-name "guile-ffi-fftw" version)) (sha256 (base32 "08j40a5p6a8pgvhffmzb5rfdnrav2mksy3gfjkdqy93jfj1z5afg")))) (build-system guile-build-system) (arguments `(#:source-directory "mod" #:phases (modify-phases %standard-phases (add-after 'unpack 'prepare-build (lambda* (#:key inputs #:allow-other-keys) (substitute* "mod/ffi/fftw.scm" (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)") (format #f "\"~a/lib\"" (assoc-ref inputs "fftw")))) #t)) (add-after 'build 'check (lambda _ (invoke "guile" "-L" "mod" "-s" "test/test-ffi-fftw.scm")))))) (inputs (list fftw guile-2.2)) (home-page "https://github.com/lloda/guile-ffi-fftw/") (synopsis "Access FFTW through Guile's FFI") (description "This is a minimal set of Guile FFI bindings for the FFTW library's ‘guru interface’. It provides two functions: @code{fftw-dft! rank sign in out} and @code{fftw-dft rank sign in}. These bindings being minimal, there is no support for computing & reusing plans, or split r/i transforms, or anything other than straight complex DFTs.") (license license:lgpl3+)))) (define-public srfi-64-driver (package (name "srfi-64-driver") (version "0.1") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/srfi-64-driver/" "srfi-64-driver-" version ".tar.gz")) (sha256 (base32 "188b6mb7sjjg0a8zldikinglf40ky8mg8rwh5768gjmch6gkk3ph")))) (build-system gnu-build-system) (arguments `(#:tests? #f #:phases (modify-phases %standard-phases (delete 'build)))) (native-inputs (list pkg-config)) (inputs (list guile-2.2)) (home-page "https://ngyro.com/software/srfi-64-driver.html") (synopsis "Automake test driver for SRFI 64 test suites") (description "This package provides an Automake test driver that can run SRFI 64 test suites. It gives Automake insight into the individual tests being run, resulting clearer and more specific output.") (license license:gpl3+))) (define-public guile-semver (package (name "guile-semver") (version "0.1.1") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/guile-semver/" "guile-semver-" version ".tar.gz")) (sha256 (base32 "109p4n39ln44cxvwdccf9kgb96qx54makvd2ir521ssz6wchjyag")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list guile-3.0)) (home-page "https://ngyro.com/software/guile-semver.html") (synopsis "Semantic Versioning (SemVer) for Guile") (description "This Guile library provides tools for reading, comparing, and writing Semantic Versions. It also includes ranges in the style of the Node Package Manager (NPM).") (license license:gpl3+))) (define-public guile2.2-semver (package (inherit guile-semver) (name "guile2.2-semver") (inputs (list guile-2.2)))) (define-public guile-hashing (package (name "guile-hashing") (version "1.2.0") (home-page "https://github.com/weinholt/hashing") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1362d3lmpv7slmv1zmr9wy8panq9sjr9787gc2hagd646mpsfpkl")))) (build-system guile-build-system) (arguments `(#:modules ((guix build guile-build-system) (guix build utils) (srfi srfi-26) (ice-9 ftw)) #:implicit-inputs? #f ;needs nothing but Guile #:phases (modify-phases %standard-phases (add-before 'build 'move-sls-files (lambda _ ;; Move the source under hashing/ in order to match ;; module names, and rename .sls files to .scm. (define (target file) (string-append "hashing/" file)) (define (sls->scm sls) (string-append (string-drop-right sls 4) ".scm")) (mkdir "hashing") (for-each (lambda (file) (rename-file file (sls->scm file))) (find-files "." "\\.sls$")) (for-each (lambda (file) (rename-file file (target file))) (scandir "." (cut string-suffix? ".scm" <>))) (rename-file "private" "hashing/private") #t))))) (native-inputs (list guile-3.0)) (synopsis "Cryprographic hash functions implemented in Scheme") (description "The @code{(hashing @dots{})} modules implement cryptographic hash functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256, SHA-512).") (license license:expat))) (define-public guile2.2-hashing (package (inherit guile-hashing) (name "guile2.2-hashing") (native-inputs (list guile-2.2)))) (define-public guile-packrat (package (name "guile-packrat") (version "0.1.1") (home-page "https://github.com/weinholt/packrat") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1aga17164fkhbgllqc7ni6fk5zl8mkmgkl5zcsy67x7ngpyalbby")))) (build-system guile-build-system) (arguments `(#:implicit-inputs? #f ;needs nothing but Guile #:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:not-compiled-file-regexp "/extensible\\.scm$" #:phases (modify-phases %standard-phases (add-before 'build 'no-srfi-23 (lambda _ (substitute* "packrat.sls" (("\\(srfi :23 error\\)") (object->string '(only (guile) error)))) #t))))) (native-inputs (list guile-3.0)) (synopsis "Packrat parser library in R6RS Scheme") (description "This is an R6RS Scheme adaptation of the @uref{https://bford.info/packrat/, packrat parsing}. Packrat parsing is a memoizing, backtracking, recursive-descent parsing technique that runs in time and space linear in the size of the input text.") (license license:expat))) (define-public guile-ac-d-bus (package (name "guile-ac-d-bus") (version "1.0.0-beta.0") (home-page "https://gitlab.com/weinholt/ac-d-bus/") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb")) (patches (search-patches "guile-ac-d-bus-fix-tests.patch")))) (build-system guile-build-system) (arguments (list #:implicit-inputs? #f ;needs nothing but Guile #:compile-flags #~(list "--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:phases #~(modify-phases %standard-phases (add-before 'build 'adjust-for-guile (lambda _ ;; Adjust source file names for Guile. (define (guile-sls->sls file) (string-append (string-drop-right file (string-length ".guile.sls")) ".sls")) ;; Remove files targeting other implementations: *.mosh.sls, ;; etc. (for-each delete-file (find-files "compat" (lambda (file stat) (not (string-contains file ".guile."))))) ;; Rename *.guile.sls to *.sls so the ".guile" bit does not ;; appear in .go file names. (for-each (lambda (file) (rename-file file (guile-sls->sls file))) (find-files "compat" "\\.guile\\.sls")) ;; Move directories under d-bus/ to match module names. (mkdir "d-bus") (for-each (lambda (directory) (rename-file directory (string-append "d-bus/" directory))) '("compat" "protocol")))) (add-after 'build 'build-doc (lambda _ (with-directory-excursion "docs" (invoke "makeinfo" "ac-d-bus")))) (add-after 'build-doc 'check (lambda* (#:key (tests? #t) #:allow-other-keys) (when tests? ;; There is no locale for the ö character, which crashes ;; substitute*; reset the conversion strategy to workaround it. (with-fluids ((%default-port-conversion-strategy 'substitute)) (substitute* (find-files "tests") (("#!/usr/bin/env scheme-script") (string-append "#!" (which "guile"))))) (invoke "./run-tests.sh")))) (add-after 'install 'install-doc (lambda _ (install-file "docs/ac-d-bus.info" (string-append #$output "/share/info"))))))) (native-inputs (list bash-minimal guile-3.0 texinfo)) (propagated-inputs (list guile-packrat)) (synopsis "D-Bus protocol implementation in R6RS Scheme") (description "AC/D-Bus is an implementation of the D-Bus wire protocol. D-Bus is an interprocess communication protocol popular on GNU/Linux systems to communicate with a variety of services. Originally designed for desktop environments, it is now used by programs like VLC media player, BlueZ, NetworkManager, Pulseaudio, systemd (including logind and resolved), Polkit, gnome-keyring, and many more.") (license license:expat))) (define-public guile-webutils (let ((commit "8541904f761066dc9c27b1153e9a838be9a55299") (revision "0")) (package (name "guile-webutils") (version (git-version "0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://notabug.org/cwebber/guile-webutils.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1s9n3hbxd7lfpdi0x8wr0cfvlsf6g62ird9gbspxdrp5p05rbi64")) (modules '((guix build utils))) (snippet '(begin ;; Allow builds with Guile 3.0. (substitute* "configure.ac" (("2\\.2 2\\.0") "3.0 2.2 2.0")) #t)))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (propagated-inputs (list guile-irregex guile-gcrypt)) (home-page "https://notabug.org/cwebber/guile-webutils") (synopsis "Web application authoring utilities for Guile") (description "This package provides tooling to write web applications in Guile, such as signed sessions, multipart message support, etc.") (license license:gpl3+)))) (define-public guile2.2-webutils (package (inherit guile-webutils) (name "guile2.2-webutils") (inputs (list guile-2.2)) (propagated-inputs (list guile2.2-irregex guile2.2-gcrypt)))) (define-public guile-lens (let ((commit "14b15d07255f9d3f55d40a3b750d13c9ee3a154f") (revision "0")) (package (name "guile-lens") (version (git-version "0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/a-sassmannshausen/guile-lens.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0w8jzqyla56yrgj7acsgd4nspyir6zgp3vgxid4xmwhg9wmf1ida")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-after 'unpack 'run-hall (lambda _ (setenv "HOME" "/tmp") ; for ~/.hall (invoke "hall" "build-system" "-x")))))) (native-inputs (list autoconf automake guile-3.0 guile-hall pkg-config texinfo)) (home-page "https://gitlab.com/a-sassmannshausen/guile-lens.git") (synopsis "Composable lenses for data structures in Guile") (description "Guile-Lens is a library implementing lenses in Guile. The library is currently a re-implementation of the lentes library for Clojure. Lenses provide composable procedures, which can be used to focus, apply functions over, or update a value in arbitrary data structures.") (license license:gpl3+)))) (define-public guile2.2-lens (package (inherit guile-lens) (name "guile2.2-lens") (native-inputs (modify-inputs (package-native-inputs guile-lens) (replace "guile" guile-2.2))))) (define-public guile-xapian (package (name "guile-xapian") (version "0.2.0") (home-page "https://git.systemreboot.net/guile-xapian") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "140cwzpzk4y16ajxrg5zd2d7q60f5ivx5jk8w1h0qfjq2mp14sh7")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings (inputs (list guile-3.0 xapian zlib)) (native-inputs (list autoconf autoconf-archive automake libtool pkg-config swig)) (synopsis "Guile bindings for Xapian") (description "@code{guile-xapian} provides Guile bindings for Xapian, a search engine library. Xapian is a highly adaptable toolkit which allows developers to easily add advanced indexing and search facilities to their own applications. It has built-in support for several families of weighting models and also supports a rich set of boolean query operators.") (license license:gpl2+))) (define-public guile2.2-xapian (package (inherit guile-xapian) (name "guile2.2-xapian") (inputs (modify-inputs (package-inputs guile-xapian) (replace "guile" guile-2.2))))) (define-public guile-torrent (package (name "guile-torrent") (version "0.1.3") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/o-nly/torrent") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1yiagi55ncq1x7s9n7salzywjm4l96y3n7y3s47a9anvz87mrmim")))) (build-system gnu-build-system) (native-inputs (list autoconf automake guile-2.2 texinfo perl pkg-config)) (propagated-inputs (list guile-gcrypt)) (home-page "https://github.com/o-nly/torrent") (synopsis "Torrent library for GNU Guile") (description "This package provides facilities for working with @code{.torrent} or metainfo files. Implements a bencode reader and writer according to Bitorrent BEP003.") (license license:gpl3+))) (define-public guile-irc (let ((commit "7d08ce6fdcb87ac668c5d3bfd5584247805507bb") (revision "1")) (package (name "guile-irc") (version (git-version "0.3.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/rekado/guile-irc") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1jx8704200l29ndg9bfyamgxrzknya0f0vwb2sxhd0k3b8r94avw")))) (build-system gnu-build-system) (arguments `(#:configure-flags '("--enable-gnutls=yes"))) (native-inputs (list autoconf automake texinfo pkg-config)) (inputs (list gnutls guile-3.0)) (home-page "https://github.com/rekado/guile-irc") (synopsis "IRC library for Guile") (description "This package provides a Guile library for @dfn{Internet Relay Chat} (IRC).") ;; Some file headers incorrectly say LGPLv2+. (license license:lgpl2.1+)))) (define-public guile-websocket (let ((commit "d17878f6c12c10a49196bb08f737f36b11e61c31") (revision "1")) (package (name "guile-websocket") (version (git-version "0.1" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.dthompson.us/guile-websocket.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0kcmhjyb6amm4b9k4ng0r5s38m041mvh5jgmjbz6ichz39k255v7")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) (native-inputs (list autoconf automake pkg-config)) (inputs (list guile-3.0)) (synopsis "Websocket server/client for Guile") (description "Guile-websocket provides an implementation of the WebSocket protocol as defined by RFC 6455.") (home-page "https://git.dthompson.us/guile-websocket.git") (license license:lgpl3+)))) (define-public guile-rdf (package (name "guile-rdf") (version "1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://framagit.org/tyreunom/guile-rdf") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0dwn3app1fscbpmpgvjs5jy1y0gwy3j5gdx8br79af6a88zjlnqf")))) (build-system gnu-build-system) (arguments `(#:tests? #f)); tests require network (inputs (list guile-3.0)) (native-inputs (list automake autoconf pkg-config texinfo)) (home-page "https://framagit.org/tyreunom/guile-rdf") (synopsis "Guile implementation of the RDF abstract and concrete syntaxes") (description "Guile RDF is an implementation of the RDF (Resource Description Framework) format defined by the W3C for GNU Guile. RDF structures include triples (facts with a subject, a predicate and an object), graphs which are sets of triples, and datasets, which are collections of graphs. RDF specifications include the specification of concrete syntaxes and of operations on graphs. This library implements some basic functionalities, such as parsing and producing turtle and nquads syntax, as well as manipulating graphs and datasets.") (license license:gpl3+))) (define-public guile-jsonld (package (name "guile-jsonld") (version "1.0.2") (source (origin (method git-fetch) (uri (git-reference (url "https://framagit.org/tyreunom/guile-jsonld") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1ryyvh71899z2inivqglb8d78zzp1sd0wv9a56kvcmrxf1966z6r")))) (build-system gnu-build-system) (arguments `(#:tests? #f)); require network (propagated-inputs `(("guile-gnutls" ,gnutls) ("guile-json" ,guile-json-4) ("guile-rdf" ,guile-rdf))) (inputs (list guile-3.0)) (native-inputs (list automake autoconf pkg-config texinfo)) (home-page "https://framagit.org/tyreunom/guile-jsonld") (synopsis "Guile implementation of the JsonLD API specification") (description "Guile JsonLD is an implementation of the JsonLD (Json for Linked Data) API defined by the W3C for GNU Guile. It allows you to express links between data, in a way that is very similar to WikiData or RDF for instance. An object can have relations (in the form of an IRI) that relates it to one or more objects or strings, represented by a Json object or an IRI.") (license license:gpl3+))) (define-public guile-struct-pack (package (name "guile-struct-pack") (version "1.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/weinholt/struct-pack") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0hd72m821pahjphzyjn26i55542v8makr55xzjll2cycja4wsbc1")))) (build-system guile-build-system) (arguments `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:modules ((guix build guile-build-system) (guix build utils) (srfi srfi-26) (ice-9 ftw)) #:phases (modify-phases %standard-phases (add-before 'build 'move-sls-files (lambda _ ;; Move files under a struct/ directory to reflect the ;; module hierarchy. (define dst-folder "struct") (define (target file) (string-append dst-folder "/" file)) (define files (scandir "." (negate (cut member <> '("." ".."))))) (mkdir dst-folder) (for-each (lambda (file) (rename-file file (target file))) files) #t))))) (native-inputs (list guile-3.0)) (home-page "https://github.com/weinholt/struct-pack") (synopsis "R6RS library for working with packed byte structures") (description "This is an R6RS library for working with packed byte structures. It is similar to struct in Python or pack and unpack in Perl.") (license license:expat))) (define-public guile-machine-code (package (name "guile-machine-code") (version "2.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/weinholt/machine-code") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0wzj3caj2jypzyjqfkfqkvr3kkbjabsnhldv9kvnx9w9qnria5yd")))) (build-system guile-build-system) (arguments `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:modules ((guix build guile-build-system) (guix build utils) (srfi srfi-26) (ice-9 ftw)) #:phases (modify-phases %standard-phases (add-before 'build 'move-sls-files (lambda _ ;; Move files under a struct/ directory to reflect the ;; module hierarchy. (define dst-folder "machine-code") (define (target file) (string-append dst-folder "/" file)) (define files (scandir "." (negate (cut member <> '("." ".."))))) (mkdir dst-folder) (for-each (lambda (file) (rename-file file (target file))) files) #t))))) (native-inputs (list guile-3.0)) (propagated-inputs (list guile-struct-pack)) (home-page "https://github.com/weinholt/machine-code") (synopsis "Tools that relate to machine code and object formats") (description "This project is about the development of tools that relate to machine code and object formats; for all architectures. Here you'll find libraries for working with binary code: assembly, disassembly, instruction tables, object formats and related areas.") (license license:expat))) (define-public guile-laesare (package (name "guile-laesare") (version "1.0.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/weinholt/laesare") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "15q619gzw717r8r1ql23zfdaibpnp9qqs96032vdc3rj74msxc92")))) (build-system guile-build-system) (arguments `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") #:modules ((guix build guile-build-system) (guix build utils) (srfi srfi-26) (ice-9 ftw)) #:phases (modify-phases %standard-phases (add-before 'build 'move-sls-files (lambda _ ;; Move files under a laesare directory to reflect ;; the module hierarchy. (define dst-folder "laesare") (define (target file) (string-append dst-folder "/" file)) (define files (scandir "." (negate (cut member <> '("." ".."))))) (mkdir dst-folder) (for-each (lambda (file) (rename-file file (target file))) files) #t))))) (native-inputs (list guile-3.0)) (home-page "https://github.com/weinholt/laesare") (synopsis "R6RS Scheme library that provides a reader") (description "This is an R6RS Scheme library that provides a reader with some extra features not found in the standard read procedure such as a compatible mode with support for other RnRS standards and a tolerant mode that continues on errors.") (license license:expat))) (define-public guile-avahi (let ((commit "6d43caf64f672a9694bf6c98bbf7a734f17a51e8") (revision "1")) (package (name "guile-avahi") (version (git-version "0.4.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "git://git.sv.gnu.org/guile-avahi.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0fvrf8x22yvc71180hd3xkhspg9yvadi0pbv8shzlsaxqncwy1m9")) (modules '((guix build utils))))) (build-system gnu-build-system) (arguments `(#:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings ;; Parallel builds fail on powerpc64le-linux. ;; See https://lists.nongnu.org/archive/html/guile-avahi-bugs/2021-01/msg00000.html #:parallel-build? #f #:phases (modify-phases %standard-phases (add-before 'check 'fix-guile-avahi-file-name (lambda* (#:key outputs #:allow-other-keys) (with-directory-excursion "src" (invoke "make" "install" "-j" (number->string (parallel-job-count)))) (let* ((out (assoc-ref outputs "out")) (files (find-files "modules" ".scm"))) (substitute* files (("\"guile-avahi-v-0\"") (format #f "\"~a/lib/guile/~a/extensions/guile-avahi-v-0\"" out (target-guile-effective-version)))) #t)))))) (inputs (list guile-3.0 avahi)) (native-inputs (list autoconf automake libtool pkg-config texinfo)) (synopsis "Guile bindings to Avahi") (description "This package provides bindings for Avahi. It allows programmers to use functionalities of the Avahi client library from Guile Scheme programs. Avahi itself is an implementation of multicast DNS (mDNS) and DNS Service Discovery (DNS-SD).") (home-page "https://www.nongnu.org/guile-avahi/") (license license:lgpl3+)))) (define-public guile-jwt (package (name "guile-jwt") (version "0.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/aconchillo/guile-jwt") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1p8sapiv5im18rjnzc8xnw6y7dr661rycf9g10z5ww0dl4rfz3z1")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config)) (propagated-inputs (list guile-json-4)) (inputs (list guile-3.0)) (home-page "https://github.com/aconchillo/guile-jwt") (synopsis "JSON Web Token library for Guile") (description "guile-jwt is a JSON Web Token module for Guile. JSON Web Tokens are an open, industry standard (RFC 7519) method for representing claims securely between two parties. guile-jwt allows you to decode, verify and generate JWT. Supported algorithms: HS256, HS384, HS512.") (license license:gpl3+))) (define-public guile-sodium (package (name "guile-sodium") (version "0.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://inqlab.net/git/guile-sodium.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "189jsj87hycs57a54x0b9lifwvhr63nypb9vfxdrq7rwrpcvi5f8")))) (build-system gnu-build-system) (arguments `()) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (propagated-inputs (list libsodium)) (synopsis "Guile bindings to the libsodium cryptographic library") (description "This package provides Guile bindings to the libsodium cryptographic library which provides core cryptographic primitives needed to build higher-level tools.") (home-page "https://inqlab.net/git/guile-sodium.git") (license license:gpl3+))) (define-public guile-eris (package (name "guile-eris") (version "0.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://inqlab.net/git/eris.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1ijglmwkdy1l87gj429qfjis0v8b1zlxhbyfhx5za8664h68nqka")))) (build-system gnu-build-system) (arguments '()) (native-inputs (list autoconf automake pkg-config texinfo ;; test dependency guile-srfi-180)) (inputs (list guile-3.0)) (propagated-inputs (list guile-sodium)) (synopsis "Guile implementation of the Encoding for Robust Immutable Storage (ERIS)") (description "Guile-ERIS is the reference implementation of the Encoding for Robust Immutable Storage (ERIS). ERIS allows arbitrary content to be encoded into uniformly sized, encrypted blocks that can be reassembled using a short read-capability.") (home-page "https://inqlab.net/git/eris.git") (license license:gpl3+))) (define-public guile-r6rs-protobuf (package (name "guile-r6rs-protobuf") (version "0.9") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/joolean/r6rs-protobuf") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1xmn7jlr1xiqgd35klq910p1bnil1iwdvqxkjr3zzml3spy8p2aa")))) (build-system guile-build-system) (arguments `(#:compile-flags '("--r6rs"))) (inputs (list guile-3.0)) (home-page "https://gitlab.com/joolean/r6rs-protobuf/") (synopsis "Scheme implementation of Protocol Buffers") (description "This project provides a pure Scheme implementation of Protocol Buffers, including parsing and code generation.") (license license:gpl3+))) (define-public guile-shapefile (package (name "guile-shapefile") (version "0.1.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/HugoNikanor/guile-shapefile") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1zvrpc8bshw9w0vhdpmhv00j07mzsdyg2f9hfabr83v08zhfi8ml")))) (build-system guile-build-system) (arguments `(#:phases (modify-phases %standard-phases (add-after 'unpack 'delete-pre-generated-docs (lambda _ (delete-file-recursively "docs") #t)) (add-after 'install 'install-info-documentation (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((share (string-append (assoc-ref outputs "out") "/share")) (doc (string-append share "/doc/" ,name "-" ,version)) (info (string-append share "/info/")) (makeinfo (search-input-file inputs "/bin/makeinfo"))) (invoke makeinfo "guile-shapefile.texi" "-o" info) #t)))))) (inputs (list guile-3.0)) (native-inputs (list texinfo)) (home-page "https://github.com/HugoNikanor/guile-shapefile") (synopsis "Parse shapefiles in Guile") (description "Guile Shapefile is a Guile library for reading shapefiles.") (license license:expat))) (define-public guile-drmaa (package (name "guile-drmaa") (version "0.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://git.elephly.net/software/guile-drmaa.git") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "1pail39f3iwllcdma4pk4sxsaypplgb5zjyvjwqf5hdv8s3y211x")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config texinfo sed)) (inputs (list guile-3.0)) (propagated-inputs (list guile-bytestructures nyacc)) (home-page "https://git.elephly.net/software/guile-drmaa.git") (synopsis "Guile bindings to DRMAA") (description "This project provides Guile bindings to the DRMAA library version 1. DRMAA is a resource management library implemented by HPC cluster schedulers.") (license license:gpl3+))) (define-public guile-libyaml (let ((commit "2bdacb72a65ab63264b2edc9dac9692df7ec9b3e") (revision "2")) (package (name "guile-libyaml") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/mwette/guile-libyaml") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1bssby1ri1vjll2rvi8b33xr2ghwjyxsd4yc15najj3h8n2ss87i")))) (build-system gnu-build-system) (arguments `(#:modules (((guix build guile-build-system) #:prefix guile:) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:tests? #false ; there are none #:phases (modify-phases %standard-phases (delete 'configure) (add-after 'unpack 'remove-unused-files (lambda* (#:key inputs #:allow-other-keys) (for-each delete-file '("guix.scm" "demo1.yml" "demo1.scm")))) (add-before 'build 'build-ffi (lambda* (#:key inputs #:allow-other-keys) (invoke "guild" "compile-ffi" "--no-exec" ; allow us to patch the generated file "yaml/libyaml.ffi") (substitute* "yaml/libyaml.scm" (("dynamic-link \"libyaml\"") (format #false "dynamic-link \"~a/lib/libyaml\"" (assoc-ref inputs "libyaml")))))) (replace 'build (assoc-ref guile:%standard-phases 'build)) (delete 'install)))) (inputs (list guile-3.0 libyaml)) (propagated-inputs (list guile-bytestructures nyacc)) (home-page "https://github.com/mwette/guile-libyaml") (synopsis "Guile wrapper for libyaml") (description "This package provides a simple yaml module for Guile using the ffi-helper from nyacc.") (license license:lgpl3+)))) (define-public schmutz (let ((commit "add24588c59552537b8f1316df99a0cdd62c221e") (revision "1")) (package (name "schmutz") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/arximboldi/schmutz") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1z3n61sj62lnn15mandvyrpjzli07rp9r62ypvgg3a8bvh37yc89")))) (build-system cmake-build-system) (arguments `(#:tests? #f)) (native-inputs (list pkg-config)) (inputs (list guile-2.2)) (home-page "https://github.com/arximboldi/schmutz") (synopsis "Bind C++ code to Scheme") (description "Schmutz is a header-only library to declare Scheme bindings for C++ code using a simple embedded DSL. Think of it as @code{Boost.Python} or @code{LuaBind} but for Scheme.") (license license:boost1.0)))) (define-public guile-cbor (package (name "guile-cbor") (version "0.1.0") (source (origin (method git-fetch) (uri (git-reference (url "https://inqlab.net/git/guile-cbor.git") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0bdqg3ifayf7m2j09lqrgdfprbdaa67azf09bcq9b4k71inxfnxl")))) (build-system gnu-build-system) (arguments `()) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (synopsis "Guile implementation of CBOR") (description "The Concise Binary Object Representation (CBOR), as specified by RFC 8949, is a binary data serialization format. CBOR is similar to JSON but serializes to binary which is smaller and faster to generate and parse. This package provides a Guile implementation of CBOR.") (home-page "https://inqlab.net/git/guile-cbor.git") (license license:gpl3+))) (define-public guile-quickcheck (package (name "guile-quickcheck") (version "0.1.0") (source (origin (method url-fetch) (uri (string-append "https://files.ngyro.com/" "guile-quickcheck/guile-quickcheck-" version ".tar.gz")) (sha256 (base32 "03mwi1l3354x52nar0zwhcm0x29yai9xjln4p4gbchwvx5dsr6fb")))) (build-system gnu-build-system) (native-inputs (list pkg-config)) (inputs (list guile-3.0)) (home-page "https://ngyro.com/software/guile-quickcheck.html") (synopsis "Randomized property-based testing for Guile") (description "Guile-Quickcheck is a library for random testing of program properties inspired by ghc-quickcheck. You can use it to express properties, which functions should satisfy, as Scheme code and then check whether they hold in a large number of randomly generated test cases.") (license license:gpl3+))) (define-public guile-fslib (package (name "guile-fslib") (version "0.2.0") (source (origin (method git-fetch) (uri (git-reference (url "https://notabug.org/ZelphirKaltstahl/guile-fslib/") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "118d84p443w7hrslv8hjyhgws631ia08mggiyklkmk0b9plfdsvz")))) (build-system guile-build-system) (inputs (list guile-3.0)) (home-page "https://notabug.org/ZelphirKaltstahl/guile-fslib") (synopsis "Helper functions for working with locations in file systems") (description "This package contains helper functions for working with file system locations.") (license license:agpl3+))) (define-public guile-netlink (package (name "guile-netlink") (version "1.1.1") (source (origin (method git-fetch) (uri (git-reference (url "https://git.lepiller.eu/git/guile-netlink") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0jcl6mzqy04if5drflmygmggbgzsxa42mlmskqb3cfqmksq0zj0y")))) (build-system gnu-build-system) (inputs (list guile-3.0)) (native-inputs (list automake autoconf pkg-config guile-3.0 ;for 'guild compile' + guile.m4 texinfo)) (home-page "https://git.lepiller.eu/guile-netlink") (synopsis "Netlink protocol implementation for Guile") (description "Guile Netlink is a GNU Guile library providing an implementation of the netlink protocol. It provides a generic library for writing implementations of a netlink protocol, a low-level rtnetlink implementation that uses that library and a high-level API for network management that uses rtnetlink.") (license license:gpl3+))) (define-public guile-gitlab (package (name "guile-gitlab") (version "0.2.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/artyom-poptsov/guile-gitlab") (commit (string-append "v" version)))) (file-name (string-append name "-" version)) (sha256 (base32 "0srkmchd4kmfa7q65r6fdzwklhgdlck1ll0s7smzs8ddjdgz2lwm")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings #:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:phases (modify-phases %standard-phases (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (guile-lib (assoc-ref inputs "guile-lib")) (json (assoc-ref inputs "guile-json")) (tls (assoc-ref inputs "guile-gnutls")) (version (target-guile-effective-version)) (scm (string-append "/share/guile/site/" version)) (go (string-append "/lib/guile/" version "/site-ccache"))) (wrap-program (string-append bin "/gitlab-cli") `("GUILE_LOAD_PATH" prefix (,(string-append out scm) ,(string-append guile-lib scm) ,(string-append json scm) ,(string-append tls scm))) `("GUILE_LOAD_COMPILED_PATH" prefix (,(string-append out go) ,(string-append guile-lib go) ,(string-append json go) ,(string-append tls go)))))))))) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs `(("bash" ,bash-minimal) ("guile" ,guile-2.2) ("guile-json" ,guile2.2-json) ("guile-lib" ,guile2.2-lib) ("guile-gnutls" ,guile2.2-gnutls))) (home-page "https://github.com/artyom-poptsov/guile-gitlab") (synopsis "Guile interface to GitLab") (description "This package provides bindings to the GitLab Community Edition REST API as well as the @samp{gitlab-cli} command line tool for interacting with a GitLab instance.") (license license:gpl3))) (define-public guile-smc (package (name "guile-smc") (version "0.3.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/artyom-poptsov/guile-smc") (commit (string-append "v" version)))) (file-name (string-append name "-" version)) (sha256 (base32 "0szkjmasi70m1vppck7nhdxg4lnxzjq6mihi6r1552s8sxm5z008")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings #:modules (((guix build guile-build-system) #:select (target-guile-effective-version)) ,@%gnu-build-system-modules) #:imported-modules ((guix build guile-build-system) ,@%gnu-build-system-modules) #:phases (modify-phases %standard-phases (delete 'strip) (add-after 'configure 'patch (lambda* (#:key inputs outputs #:allow-other-keys) (substitute* "modules/smc/core/log.scm" ((" #:use-module \\(logging logger\\)") (string-append " #:use-module (logging logger)\n" " #:use-module (logging rotating-log)")) (("#:init-value \"logger\"") (format #f "#:init-value \"~a/bin/logger\"" (assoc-ref inputs "inetutils"))) (("\\(add-handler! %logger %syslog\\)") (string-append "(add-handler! %logger\n" " (make \n" " #:file-name \"smc.log\"))\n"))) #t)) (add-after 'install 'wrap-program (lambda* (#:key inputs outputs #:allow-other-keys) (let* ((out (assoc-ref outputs "out")) (bin (string-append out "/bin")) (guile-lib (assoc-ref inputs "guile-lib")) (version (target-guile-effective-version)) (scm (string-append "/share/guile/site/" version)) (go (string-append "/lib/guile/" version "/site-ccache"))) (wrap-program (string-append bin "/smc") `("GUILE_LOAD_PATH" prefix (,(string-append out scm) ,(string-append guile-lib scm))) `("GUILE_LOAD_COMPILED_PATH" prefix (,(string-append out go) ,(string-append guile-lib go))))) #t))))) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs `(("bash" ,bash-minimal) ("guile" ,guile-3.0) ("guile-lib" ,guile-lib) ("inetutils" ,inetutils))) (home-page "https://github.com/artyom-poptsov/guile-smc") (synopsis "GNU Guile state machine compiler") (description "Guile-SMC is a state machine compiler that allows users to describe finite state machines (FSMs) in Scheme in terms of transition tables. It is capable to generate such transition tables from a @url{https://plantuml.com/, PlantUML} state diagrams. A transition table can be verified and checked for dead-ends and infinite loops. Also Guile-SMC FSMs gather statistics when they run. Guile-SMC comes with a Scheme program called @command{smc} -- a state machine compiler itself. It produces a Scheme code for an FSM from the PlantUML format. This tool is meant to be called on a PlantUML file when a program with a FSM is being built (for example, from a Makefile.)") (license license:gpl3))) (define-public guile-ini (package (name "guile-ini") (version "0.3.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/artyom-poptsov/guile-ini") (commit (string-append "v" version)))) (file-name (string-append name "-" version)) (sha256 (base32 "0injn60530valhx3gsmdp72g6z886yf0n08hscky21h3dafm14kc")))) (build-system gnu-build-system) (arguments `(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings (native-inputs (list autoconf automake pkg-config texinfo)) (inputs `(("bash" ,bash-minimal) ("guile" ,guile-3.0) ("guile-lib" ,guile-lib))) (propagated-inputs (list guile-smc)) (home-page "https://github.com/artyom-poptsov/guile-ini") (synopsis "Guile library for INI format support") (description "@code{guile-ini} is a GNU Guile library for working with the @url{https://en.wikipedia.org/wiki/INI_file, INI format}. This library provides API for reading and writing INI data.") (license license:gpl3))) (define-public guile-schemetran (let ((commit "3f5e15273ee88ba60ad8caf2de6302ad2bab582b") (revision "1")) (package (name "guile-schemetran") (version (git-version "0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/codetk/schemetran") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1r4nq7wmy854hvbkcc23sidn4kq3p7r4p15y5czwvd52p9djff3m")))) (build-system guile-build-system) (arguments (list #:not-compiled-file-regexp "/doc/.*\\.scm$" #:source-directory "src")) (inputs (list guile-3.0)) (home-page "https://gitlab.com/codetk/schemetran") (synopsis "Write Fortran in Scheme") (description "Fortran is great in expressing operations on multi-dimensional arrays of numbers. Scheme is great at expressing your coding thoughts. This project is an attempt to combine both into something useful.") (license license:asl2.0)))) (define-public guile-kolam (package (name "guile-kolam") (version "0.1.0") (source (origin (method url-fetch) (uri (string-append "https://kolam.systemreboot.net/releases/kolam-" version ".tar.lz")) (sha256 (base32 "083r3n3wvzysa9jhlwjj1xppdm6ja56rkizr6hvj4q1806v8n6mn")))) (build-system gnu-build-system) (arguments '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings (native-inputs (list guile-3.0 lzip)) (propagated-inputs (list guile-json-4)) (home-page "https://kolam.systemreboot.net") (synopsis "GraphQL implementation for Scheme") (description "@code{guile-kolam} is a GraphQL implementation for Scheme. kolam features a parser to parse and serialize GraphQL documents, a type system to create GraphQL schemas, an execution engine to execute GraphQL queries, and a HTTP handler to implement a HTTP GraphQL endpoint.") (license license:agpl3+))) (define-public lokke (let ((commit "92d36370dc6d218ff3bf315e56ebef93808c1b79") (revision "1")) (package (name "lokke") (version (git-version "0.0.0" revision commit)) (home-page "https://github.com/lokke-org/lokke") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1c913md4dcfb0x4n26wbx9wdw453wxg3c5rn49k3f6j8zjqv63yv")))) (build-system gnu-build-system) (arguments '(#:phases (modify-phases %standard-phases (add-before 'bootstrap 'pre-bootstrap (lambda _ (for-each patch-shebang '("setup" "gen-makefile" "dev/gen-module-paths" "dev/refresh")) (invoke "./setup"))) (add-before 'build 'set-home (lambda _ (setenv "HOME" (getcwd))))))) (native-inputs (list autoconf automake libtool gnu-gettext pkg-config ;; Use Guile >= 3.0.8 to work around ;; . guile-3.0-latest)) (inputs (list pcre2)) (synopsis "Clojure implementation in Guile") (description "Lokke intends to provide a full dialect of Clojure for Guile. It also consists of a set of Guile modules providing some of Clojure's functionality in two different guises.") ;; Dual license: LGPLv2.1+ or EPLv1.0+ at the user's option. (license (list license:lgpl2.1+ license:epl1.0))))) (define-public guile-tap (package (name "guile-tap") (version "0.4.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ft/guile-tap") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "04ip5cbvsjjcicsri813f4711yh7db6fvc2px4788rl8p1iqvi6x")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (replace 'configure (lambda _ (substitute* "Makefile" (("PREFIX = /usr/local") (string-append "PREFIX=" #$output))))) (replace 'build (lambda _ (invoke "make") (invoke "make" "-C" "doc" "man") (invoke "make" "install"))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "make" "test"))))))) (native-inputs (list guile-3.0 pandoc)) (home-page "https://github.com/ft/guile-tap") (synopsis "Guile test framework that emits TAP output") (description "guile-tap is a library for GNU Guile that implements a framework for specifying test cases that emit output that adheres to the Test Anything Protocol (TAP). It comes with an experimental harness (tap-harness).") (license license:bsd-2))) (define-public guile-termios (package (name "guile-termios") (version "0.6.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ft/guile-termios") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "020p3c84z09wyyb6gfzj2x6q2rfmvas7c92fcm2hhg8z1q60sqkg")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (replace 'configure (lambda _ (substitute* "Makefile" (("CC = cc") (string-append "CC=" #$(cc-for-target))) (("PREFIX = /usr/local") (string-append "PREFIX=" #$output))))) (replace 'build (lambda _ (invoke "make") (invoke "make" "-C" "doc" "man") (invoke "make" "install"))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "make" "test"))))))) (native-inputs (list guile-3.0 guile-tap pandoc perl perl-io-tty)) (home-page "https://github.com/ft/guile-termios") (synopsis "POSIX termios interface for GNU Guile") (description "To query and change settings of serial devices on POSIX systems, the termios API is used. GNU Guile doesn't have an interface for that built in. This module implements this interface by use of Guile's dynamic FFI.") (license license:bsd-2))) (define-public guile-goblins (package (name "guile-goblins") (version "0.8") (source (origin (method git-fetch) (uri (git-reference (url "https://gitlab.com/spritely/guile-goblins/") (commit (string-append "v" version)))) (file-name (string-append name "-" version)) (sha256 (base32 "1mmyykh79jwhrfgnhhw94aw7a8m6qw249kj7k60ynj16mcfm5iyy")))) (build-system gnu-build-system) (arguments (list #:make-flags #~(list "GUILE_AUTO_COMPILE=0"))) (native-inputs (list autoconf automake pkg-config texinfo)) (inputs (list guile-3.0)) (propagated-inputs (list guile-fibers guile-gcrypt)) (home-page "https://spritely.institute/goblins") (synopsis "Distributed programming environment for Guile") ;; In guile-goblins 0.9, OCapN support will be added (it already ;; exists in racket-goblins). At that point we should add the ;; following to this description: ;; ;; Goblins allows for cooperation between networked programs ;; in a mutually suspicious network through OCapN, the Object ;; Capability Network. This includes collaboration across ;; runtimes; for instance, programs written in the Guile and Racket ;; versions of Goblins are able to speak to each other. (description "@code{guile-goblins} is the Guile version of @url{https://spritely.institute/goblins, Spritely Goblins}, a transactional, distributed programming environment following object capability security designs. Goblins is a general toolkit, and also the core layer of Spritely's work to support healthy distributed networked communities.") (license license:asl2.0)))