mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-17 20:27:36 -05:00
b0246953e9
* gnu/packages/guile-xyz.scm (artanis)[native-inputs]: Remove input labels. Use BASH-MINIMAL instead of BASH.
5043 lines
198 KiB
Scheme
5043 lines
198 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2012-2022 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2015, 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
|
||
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
|
||
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021, 2022 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com>
|
||
;;; Copyright © 2016, 2019, 2020, 2021 Eraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2016, 2017, 2021 Alex Kost <alezost@gmail.com>
|
||
;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
|
||
;;; Copyright © 2016, 2021 Amirouche <amirouche@hypermove.net>
|
||
;;; Copyright © 2016, 2019, 2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
|
||
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
|
||
;;; Copyright © 2017 David Thompson <davet@gnu.org>
|
||
;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
|
||
;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
|
||
;;; Copyright © 2017 Nikita <nikita@n0.is>
|
||
;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2018, 2021, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
|
||
;;; Copyright © 2018, 2019, 2020, 2021, 2022 Arun Isaac <arunisaac@systemreboot.net>
|
||
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
|
||
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
|
||
;;; Copyright © 2019 swedebugia <swedebugia@riseup.net>
|
||
;;; Copyright © 2019, 2020 Amar Singh <nly@disroot.org>
|
||
;;; Copyright © 2019, 2021 Timothy Sample <samplet@ngyro.com>
|
||
;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
|
||
;;; Copyright © 2020 Evan Straw <evan.straw99@gmail.com>
|
||
;;; Copyright © 2020 Jack Hill <jackhill@jackhill.us>
|
||
;;; Copyright © 2020 Julien Lepiler <julien@lepiller.eu>
|
||
;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
|
||
;;; Copyright © 2020, 2021 Masaya Tojo <masaya@tojo.tokyo>
|
||
;;; Copyright © 2020 Jesse Gibbons <jgibbons2357@gmail.com>
|
||
;;; Copyright © 2020 Mike Rosset <mike.rosset@gmail.com>
|
||
;;; Copyright © 2020 Liliana Marie Prikler <liliana.prikler@gmail.com>
|
||
;;; Copyright © 2020, 2021 pukkamustard <pukkamustard@posteo.net>
|
||
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
|
||
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
|
||
;;; Copyright © 2021 Leo Le Bouter <lle-bout@zaclys.net>
|
||
;;; Copyright © 2021 Zelphir Kaltstahl <zelphirkaltstahl@posteo.de>
|
||
;;; Copyright © 2021 Oleg Pykhalov <go.wigust@gmail.com>
|
||
;;; Copyright © 2021, 2022 Artyom V. Poptsov <poptsov.artyom@gmail.com>
|
||
;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
|
||
;;; Copyright © 2022 Zhu Zihao <all_but_last@163.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 <http://www.gnu.org/licenses/>.
|
||
|
||
(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 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:
|
||
;; <https://lists.gnu.org/archive/html/guile-user/2015-02/msg00003.html>.
|
||
(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
|
||
(package
|
||
(name "guile-8sync")
|
||
(version "0.4.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/8sync/8sync-" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list autoconf automake guile-2.2 pkg-config texinfo))
|
||
(arguments
|
||
`(#:phases (modify-phases %standard-phases
|
||
(add-before 'configure 'setenv
|
||
(lambda _
|
||
;; quiet warnings
|
||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||
#t)))))
|
||
(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.
|
||
|
||
Note that 8sync is only available for Guile 2.2.")
|
||
(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.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/wingo/fibers/releases/download/v"
|
||
version "/fibers-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1lqz39shlhif5fhpyv2wili0yzb0nhf5ciiv7mdqsq0vljirhrm0"))
|
||
(patches
|
||
(search-patches "guile-fibers-wait-for-io-readiness.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases (modify-phases %standard-phases
|
||
;; This is required to make
|
||
;; "guile-fibers-wait-for-io-readiness.patch" work.
|
||
(add-after 'unpack 'regenerate-autotools
|
||
(lambda _
|
||
(delete-file "configure")))
|
||
(add-after 'unpack 'support-cross-compilation
|
||
(lambda* (#:key target #:allow-other-keys)
|
||
;; Support cross-compilation. These issues are fixed in
|
||
;; Fibers commit c4756b9c336374546a41ac90a4431fcc8f7e98ee
|
||
;; and this phase can be removed for 1.1.1.
|
||
(when target
|
||
(substitute* "build-aux/guile.am"
|
||
(("\\$\\(AM_V_GEN\\)" all)
|
||
(string-append all " FIBERS_CROSS_COMPILING=yes "))
|
||
(("compile")
|
||
(string-append "compile --target=" target
|
||
" -L $(abs_top_srcdir)")))
|
||
(substitute* "fibers/epoll.scm"
|
||
(("\\(dynamic-call")
|
||
"(unless (getenv \"FIBERS_CROSS_COMPILING\") (dynamic-call")
|
||
(("\\(dynamic-link.*" all)
|
||
(string-append all ")\n"))
|
||
(("#,(%sizeof|%offsetof)" _ prefix)
|
||
prefix)))))
|
||
(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))))))
|
||
(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:
|
||
;; <https://github.com/wingo/fibers/pull/53>.
|
||
(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")
|
||
(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
|
||
;; <libguile.h> to do it for us.
|
||
(substitute* "epoll.c"
|
||
(("#include.*libguile\\.h.*$" all)
|
||
(string-append "#include <unistd.h>\n"
|
||
"#include <string.h>\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.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://dustycloud.org/misc/sjson-" version
|
||
".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1mzmapln79vv10qxaggz9qwcdbag3jnrj19xx8bgkmxss8h03sv3"))
|
||
(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
|
||
(list guile-3.0 parted))
|
||
(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"
|
||
(("<mariadb/") "<mysql/"))))
|
||
(delete 'patch-extension-path)))))
|
||
(inputs
|
||
(list `(,mariadb "dev")
|
||
`(,mariadb "lib") zlib))
|
||
(native-inputs
|
||
(modify-inputs (package-native-inputs guile-dbi)
|
||
(prepend guile-dbi ; only required for headers
|
||
)))
|
||
(synopsis "Guile DBI driver for MySQL")
|
||
(description "@code{guile-dbi} is a library for Guile that provides a
|
||
convenient interface to SQL databases. This package implements the interface
|
||
for MySQL.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public guile-config
|
||
(package
|
||
(name "guile-config")
|
||
(version "0.4.2")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.com/a-sassmannshausen/guile-config")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256 (base32
|
||
"09028ylbddjdp3d67zdjz3pnsjqz6zs2bfck5rr3dfaa0qjap40n"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf automake pkg-config texinfo))
|
||
(inputs (list guile-3.0))
|
||
(synopsis
|
||
"Guile application configuration parsing library.")
|
||
(description
|
||
"Guile Config is a library providing a declarative approach to
|
||
application configuration specification. The library provides clean
|
||
configuration declaration forms, and processors that take care of:
|
||
configuration file creation; configuration file parsing; command-line
|
||
parameter parsing using getopt-long; basic GNU command-line parameter
|
||
generation (--help, --usage, --version); automatic output generation for the
|
||
above command-line parameters.")
|
||
(home-page
|
||
"https://gitlab.com/a-sassmannshausen/guile-config")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile2.2-config
|
||
(package
|
||
(inherit guile-config)
|
||
(name "guile2.2-config")
|
||
(inputs (modify-inputs (package-inputs guile-config)
|
||
(replace "guile" guile-2.2)))))
|
||
|
||
(define-public guile-hall
|
||
(package
|
||
(name "guile-hall")
|
||
(version "0.3.1")
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://gitlab.com/a-sassmannshausen/guile-hall")
|
||
(commit version)))
|
||
(file-name "guile-hall-0.3.1-checkout")
|
||
(sha256
|
||
(base32 "1s24nigdra6rvclvy15l2aw00c3aq9vv8qwxylzs60darbl36206"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:modules
|
||
((ice-9 match)
|
||
(ice-9 ftw)
|
||
,@%gnu-build-system-modules)
|
||
#:phases
|
||
(modify-phases
|
||
%standard-phases
|
||
(add-after 'install 'hall-wrap-binaries
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let* ((compiled-dir
|
||
(lambda (out version)
|
||
(string-append
|
||
out "/lib/guile/" version "/site-ccache")))
|
||
(uncompiled-dir
|
||
(lambda (out version)
|
||
(string-append
|
||
out "/share/guile/site"
|
||
(if (string-null? version) "" "/") version)))
|
||
(dep-path
|
||
(lambda (env modules path)
|
||
(list env ":" 'prefix
|
||
(cons modules
|
||
(map (lambda (input)
|
||
(string-append
|
||
(assoc-ref inputs input)
|
||
path))
|
||
,''("guile-config"))))))
|
||
(out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin/"))
|
||
(site (uncompiled-dir out "")))
|
||
(match (scandir site)
|
||
(("." ".." version)
|
||
(for-each
|
||
(lambda (file)
|
||
(wrap-program
|
||
(string-append bin file)
|
||
(dep-path
|
||
"GUILE_LOAD_PATH"
|
||
(uncompiled-dir out version)
|
||
(uncompiled-dir "" version))
|
||
(dep-path
|
||
"GUILE_LOAD_COMPILED_PATH"
|
||
(compiled-dir out version)
|
||
(compiled-dir "" version))))
|
||
,''("hall"))
|
||
#t))))))))
|
||
(native-inputs
|
||
(list autoconf automake pkg-config texinfo))
|
||
(inputs (list guile-3.0))
|
||
(propagated-inputs
|
||
(list guile-config))
|
||
(synopsis "Guile project tooling")
|
||
(description
|
||
"Hall is a command-line application and a set of Guile libraries that
|
||
allow you to quickly create and publish Guile projects. It allows you to
|
||
transparently support the GNU build system, manage a project hierarchy &
|
||
provides tight coupling to Guix.")
|
||
(home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile2.2-hall
|
||
(package
|
||
(inherit guile-hall)
|
||
(name "guile2.2-hall")
|
||
(inputs (modify-inputs (package-inputs guile-hall)
|
||
(replace "guile" guile-2.2)))
|
||
(propagated-inputs
|
||
`(("guile-config" ,guile2.2-config)
|
||
,@(alist-delete "guile-config"
|
||
(package-propagated-inputs guile-hall))))))
|
||
|
||
(define-public guile-ics
|
||
(package
|
||
(name "guile-ics")
|
||
(version "0.2.1")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/artyom-poptsov/guile-ics")
|
||
(commit (string-append "v" version))))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"11wv6qk8xd4sd8s97mnw383p098ffivk0na4jii76r5wbmg1wd7q"))
|
||
(modules '((guix build utils)))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
texinfo
|
||
;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
|
||
gettext-minimal
|
||
help2man
|
||
pkg-config))
|
||
(inputs (list guile-3.0 which))
|
||
(propagated-inputs (list guile-lib))
|
||
(home-page "https://github.com/artyom-poptsov/guile-ics")
|
||
(synopsis "Guile parser library for the iCalendar format")
|
||
(description
|
||
"Guile-ICS is an iCalendar (RFC5545) format parser library written in
|
||
pure Scheme. The library can be used to read and write iCalendar data.
|
||
|
||
The library is shipped with documentation in Info format and usage examples.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile2.2-ics
|
||
(package
|
||
(inherit guile-ics)
|
||
(name "guile2.2-ics")
|
||
(inputs (modify-inputs (package-inputs guile-ics)
|
||
(replace "guile" guile-2.2)))
|
||
(propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
|
||
|
||
(define-public guile-imanifest
|
||
(let ((commit "ccd5a2111b008d778106f5595a3a585954d95d0")
|
||
(revision "0"))
|
||
(package
|
||
(name "guile-imanifest")
|
||
(version (git-version "0.0.0" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.sr.ht/~brown121407/guile-imanifest")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0i5qllcrhdjhspyj7j9h4dc9y37d3cfbpackmybm3030qgfxqirf"))))
|
||
(build-system guile-build-system)
|
||
(native-inputs
|
||
(list guile-3.0))
|
||
(propagated-inputs
|
||
(list guile-readline guile-colorized guix))
|
||
(home-page "https://sr.ht/~brown121407/guile-imanifest")
|
||
(synopsis "Interactive Guix manifests")
|
||
(description "This package provides functions to generate Guix manifests
|
||
interactively. It works by scanning an alist of package categories, to ask the
|
||
user which package sets would they like to install from it.")
|
||
(license license:gpl3+))))
|
||
|
||
(define-public guile-wisp
|
||
(package
|
||
(name "guile-wisp")
|
||
(version "1.0.7")
|
||
(source (origin
|
||
(method hg-fetch)
|
||
(uri (hg-reference
|
||
(url "https://hg.sr.ht/~arnebab/wisp")
|
||
(changeset (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0fxngiy8dmryh3gx4g1q7nnamc4dpszjh130g6d0pmi12ycxd2y9"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
((guix build emacs-build-system) #:prefix emacs:)
|
||
(guix build utils)
|
||
(guix build emacs-utils)
|
||
(ice-9 rdelim)
|
||
(ice-9 popen))
|
||
#:imported-modules (,@%gnu-build-system-modules
|
||
(guix build emacs-build-system)
|
||
(guix build emacs-utils))
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'bootstrap
|
||
(lambda _
|
||
(invoke "autoreconf" "-vif")))
|
||
(add-before 'configure 'patch-/usr/bin/env
|
||
(lambda _
|
||
(substitute* "Makefile.in"
|
||
(("/usr/bin/env bash") (which "bash")))))
|
||
;; auto compilation breaks, but if we set HOME to /tmp,
|
||
;; that works ok
|
||
(add-before 'check 'auto-compile-hacky-workaround
|
||
(lambda _ (setenv "HOME" "/tmp") #t))
|
||
(add-after 'install 'install-go-files
|
||
(lambda* (#:key outputs inputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(effective (read-line
|
||
(open-pipe* OPEN_READ
|
||
"guile" "-c"
|
||
"(display (effective-version))")))
|
||
(module-dir (string-append out "/share/guile/site/"
|
||
effective))
|
||
(object-dir (string-append out "/lib/guile/" effective
|
||
"/site-ccache"))
|
||
(prefix (string-length module-dir)))
|
||
;; compile to the destination
|
||
(for-each (lambda (file)
|
||
(let* ((base (string-drop (string-drop-right file 4)
|
||
prefix))
|
||
(go (string-append object-dir base ".go")))
|
||
(invoke "guild" "compile" "-L" module-dir
|
||
file "-o" go)))
|
||
(find-files module-dir "\\.scm$")))))
|
||
(add-after 'install 'install-emacs-files
|
||
(assoc-ref emacs:%standard-phases 'install))
|
||
(add-after 'install-emacs-files 'compile-emacs-files
|
||
(assoc-ref emacs:%standard-phases 'build))
|
||
(add-after 'compile-emacs-files 'make-autoloads
|
||
(assoc-ref emacs:%standard-phases 'make-autoloads)))))
|
||
(home-page "https://www.draketo.de/english/wisp")
|
||
(inputs
|
||
(list guile-3.0))
|
||
(native-inputs
|
||
`(("autoconf" ,autoconf)
|
||
("automake" ,automake)
|
||
("emacs" ,emacs-minimal)
|
||
("python" ,python)
|
||
("pkg-config" ,pkg-config)))
|
||
(synopsis "Whitespace to lisp syntax for Guile")
|
||
(description "Wisp is a syntax for Guile which provides a Python-like
|
||
whitespace-significant language. It may be easier on the eyes for some
|
||
users and in some situations.")
|
||
(license (list license:gpl3+ ; the project as a whole
|
||
license:expat)))) ; the language spec (see also SRFI 119)
|
||
|
||
(define-public guile2.2-wisp
|
||
(package
|
||
(inherit guile-wisp)
|
||
(name "guile2.2-wisp")
|
||
(inputs (list guile-2.2))))
|
||
|
||
(define-public guile-udev
|
||
(package
|
||
(name "guile-udev")
|
||
(version "0.2.3")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/artyom-poptsov/guile-udev")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0xvh4wscxmiqm8lnmfyh5cjzn89kv2wslkfvqvcjhinzpnpbg91x"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
gettext-minimal
|
||
libtool
|
||
texinfo
|
||
pkg-config
|
||
which))
|
||
(inputs
|
||
(list guile-3.0 eudev))
|
||
(home-page "https://github.com/artyom-poptsov/guile-udev")
|
||
(synopsis "Guile bindings to libudev")
|
||
(description
|
||
"Guile-Udev provides GNU Guile bindings to libudev.")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile-sly
|
||
(package
|
||
(name "guile-sly")
|
||
(version "0.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "https://files.dthompson.us/sly/sly-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1svzlbz2vripmyq2kjh0rig16bsrnbkwbsm558pjln9l65mcl4qq"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(substitute* "configure"
|
||
(("_guile_required_version=\"2.0.11\"")
|
||
"_guile_required_version=\"2\"")
|
||
(("ac_subst_vars='")
|
||
"ac_subst_vars='GUILE_EFFECTIVE_VERSION\n"))
|
||
(substitute* (find-files "." "Makefile.in")
|
||
(("moddir = .*$")
|
||
(string-append
|
||
"moddir = "
|
||
"$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n"))
|
||
(("godir = .*$")
|
||
(string-append
|
||
"godir = "
|
||
"$(prefix)/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:configure-flags
|
||
(list (string-append "--with-libfreeimage-prefix="
|
||
(assoc-ref %build-inputs "freeimage"))
|
||
(string-append "--with-libgslcblas-prefix="
|
||
(assoc-ref %build-inputs "gsl")))))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(propagated-inputs
|
||
(list guile-sdl guile-opengl))
|
||
(inputs
|
||
(list guile-2.2 gsl freeimage mesa))
|
||
(synopsis "2D/3D game engine for GNU Guile")
|
||
(description "Sly is a 2D/3D game engine written in Guile Scheme. Sly
|
||
features a functional reactive programming interface and live coding
|
||
capabilities.")
|
||
(home-page "https://dthompson.us/projects/sly.html")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile-g-golf
|
||
(let ((commit "1824633d37da3794f349d6829e9dac2cf89adaa8")
|
||
(revision "1010"))
|
||
(package
|
||
(name "guile-g-golf")
|
||
(version (git-version "0.1.0" revision commit))
|
||
(source
|
||
(origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://git.savannah.gnu.org/git/g-golf.git")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "0ncpqv6pbsx9fjmdzvzbjljnhqgw9pynqy9vr9aq35nb7rzrhfdf"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
(list
|
||
#:configure-flags
|
||
#~(list "--with-guile-site=no")
|
||
#:phases
|
||
#~(modify-phases %standard-phases
|
||
(add-after 'unpack 'fix-guile-site-directory
|
||
(lambda _
|
||
(substitute* "configure.ac"
|
||
(("SITEDIR=.*$")
|
||
"SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\";\n")
|
||
(("SITECCACHEDIR=\"\\$libdir/g-golf/")
|
||
"SITECCACHEDIR=\"$libdir/"))))
|
||
(add-before 'configure 'tests-work-arounds
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; In build environment, There is no /dev/tty
|
||
(substitute* "test-suite/tests/gobject.scm"
|
||
(("/dev/tty") "/dev/null"))))
|
||
(add-before 'configure 'substitute-libs
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(define (get lib)
|
||
(search-input-file inputs (string-append "lib/" lib ".so")))
|
||
|
||
(let* ((libgi (get "libgirepository-1.0"))
|
||
(libglib (get "libglib-2.0"))
|
||
(libgobject (get "libgobject-2.0"))
|
||
(libg-golf (string-append #$output "/lib/libg-golf")))
|
||
(substitute* "g-golf/init.scm"
|
||
(("libgirepository-1.0") libgi)
|
||
(("libglib-2.0") libglib)
|
||
(("libgobject-2.0") libgobject)
|
||
(("\\(dynamic-link \"libg-golf\"\\)")
|
||
(format #f "~s"
|
||
`(catch #t
|
||
(lambda ()
|
||
(dynamic-link "libg-golf"))
|
||
(lambda _
|
||
(dynamic-link ,libg-golf))))))
|
||
(setenv "GUILE_AUTO_COMPILE" "0")
|
||
#t)))
|
||
(add-before 'check 'start-xorg-server
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; The test suite requires a running X server.
|
||
(system "Xvfb :1 &")
|
||
(setenv "DISPLAY" ":1")
|
||
#t)))))
|
||
(inputs
|
||
(list guile-3.0 guile-lib glib))
|
||
(native-inputs
|
||
(list autoconf
|
||
automake
|
||
texinfo
|
||
gettext-minimal
|
||
libtool
|
||
pkg-config
|
||
;; required for tests
|
||
gtk+
|
||
clutter
|
||
xorg-server-for-tests))
|
||
(propagated-inputs
|
||
(list gobject-introspection))
|
||
(home-page "https://www.gnu.org/software/g-golf/")
|
||
(synopsis "Guile bindings for GObject Introspection")
|
||
(description
|
||
"G-Golf (Gnome: (Guile Object Library for)) is a library for developing
|
||
modern applications in Guile Scheme. It comprises a direct binding to the
|
||
GObject Introspection API and higher-level functionality for importing Gnome
|
||
libraries and making GObject classes (and methods) available in Guile's
|
||
object-oriented programming system, GOOPS.")
|
||
(license license:lgpl3+))))
|
||
|
||
(define-public g-golf
|
||
(deprecated-package "g-golf" guile-g-golf))
|
||
|
||
(define-public guile2.2-g-golf
|
||
(package
|
||
(inherit guile-g-golf)
|
||
(name "guile2.2-g-golf")
|
||
(inputs
|
||
(modify-inputs (package-inputs guile-g-golf)
|
||
(replace "guile" guile-2.2)
|
||
(replace "guile-lib" guile2.2-lib)))))
|
||
|
||
(define-public g-wrap
|
||
(package
|
||
(name "g-wrap")
|
||
(version "1.9.15")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/g-wrap/g-wrap-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(propagated-inputs
|
||
(list guile-2.2 guile-lib))
|
||
(inputs
|
||
(list libffi))
|
||
(arguments
|
||
`(#:configure-flags '("--disable-Werror")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'pre-configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* (find-files "." "^Makefile.in$")
|
||
(("guilemoduledir =.*guile/site" all)
|
||
(string-append all "/@GUILE_EFFECTIVE_VERSION@")))
|
||
#t))))))
|
||
(synopsis "Generate C bindings for Guile")
|
||
(description "G-Wrap is a tool and Guile library for generating function
|
||
wrappers for inter-language calls. It currently only supports generating Guile
|
||
wrappers for C functions. Given a definition of the types and prototypes for
|
||
a given C interface, G-Wrap will automatically generate the C code that
|
||
provides access to that interface and its types from the Scheme level.")
|
||
(home-page "https://www.nongnu.org/g-wrap/index.html")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public guile-miniadapton
|
||
(let ((commit "1b5749422304567c96ac5367f2221dda9eff5880")
|
||
(revision "1"))
|
||
(package
|
||
(name "guile-miniadapton")
|
||
(version (string-append "0-" revision "." (string-take commit 9)))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/fisherdj/miniAdapton")
|
||
(commit commit)))
|
||
(file-name (string-append name "-" version "-checkout"))
|
||
(sha256
|
||
(base32
|
||
"09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
|
||
(build-system guile-build-system)
|
||
(native-inputs
|
||
(list guile-2.2))
|
||
(home-page "https://github.com/fisherdj/miniAdapton")
|
||
(synopsis "Minimal implementation of incremental computation in Guile
|
||
Scheme")
|
||
(description "This package provides a complete Scheme implementation of
|
||
miniAdapton, which implements the core functionality of the Adapton system for
|
||
incremental computation (also known as self-adjusting computation). Like
|
||
Adapton, miniAdapton allows programmers to safely combine mutation and
|
||
memoization. miniAdapton is built on top of an even simpler system,
|
||
microAdapton. Both miniAdapton and microAdapton are designed to be easy to
|
||
understand, extend, and port to host languages other than Scheme.")
|
||
(license license:expat))))
|
||
|
||
(define-public guile-raw-strings
|
||
(let ((commit "aa1cf783f2542811b473f797e12490920b779baa")
|
||
(revision "0"))
|
||
(package
|
||
(name "guile-raw-strings")
|
||
(version (git-version "0.0.0" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/lloda/guile-raw-strings")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"1r2gx86zw5hb6byllra3nap3fw9p7q7rvdmg6qn9myrdxyjpns3l"))))
|
||
(build-system guile-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'build 'check
|
||
(lambda* (#:key tests? #:allow-other-keys)
|
||
(when tests?
|
||
(invoke "guile" "-L" "." "-s" "test.scm")))))))
|
||
(native-inputs
|
||
(list guile-3.0))
|
||
(home-page "https://github.com/lloda/guile-raw-strings")
|
||
(synopsis "Guile reader extension for `raw strings'")
|
||
(description "This package provides A Guile reader extension for `raw
|
||
strings', it lets you write verbatim strings without having to escape double
|
||
quotes.")
|
||
(license license:public-domain))))
|
||
|
||
(define-public guile-reader
|
||
(package
|
||
(name "guile-reader")
|
||
(version "0.6.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://savannah/guile-reader/guile-reader-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1fyjckmygkhq22lq8nqc86yl5zzbqd7a944dnz5c1f6vx92b9hiq"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list pkg-config gperf))
|
||
(inputs (list guile-3.0))
|
||
(synopsis "Framework for building readers for GNU Guile")
|
||
(description
|
||
"Guile-Reader is a simple framework for building readers for GNU Guile.
|
||
|
||
The idea is to make it easy to build procedures that extend Guile’s read
|
||
procedure. Readers supporting various syntax variants can easily be written,
|
||
possibly by re-using existing “token readers” of a standard Scheme
|
||
readers. For example, it is used to implement Skribilo’s R5RS-derived
|
||
document syntax.
|
||
|
||
Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
|
||
hopefully more powerful and flexible (for instance, one may instantiate as
|
||
many readers as needed).")
|
||
(home-page "https://www.nongnu.org/guile-reader/")
|
||
(license license:gpl3+)))
|
||
|
||
(define-public guile2.2-reader
|
||
(package
|
||
(inherit guile-reader)
|
||
(name "guile2.2-reader")
|
||
(inputs (list guile-2.2))))
|
||
|
||
(define-public guile-ncurses
|
||
(package
|
||
(name "guile-ncurses")
|
||
(version "3.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"038xbffalhymg26lvmzgf7ljilxz2f2zmqg5r5nfzbipfbprwjhf"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list ncurses guile-3.0))
|
||
(native-inputs (list pkg-config))
|
||
(arguments
|
||
`(#:modules ((guix build gnu-build-system)
|
||
((guix build guile-build-system)
|
||
#:select (target-guile-effective-version))
|
||
(guix build utils))
|
||
#:imported-modules ((guix build guile-build-system)
|
||
,@%gnu-build-system-modules)
|
||
#:configure-flags (list "--with-ncursesw" ; Unicode support
|
||
"--with-gnu-filesystem-hierarchy")
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'build 'fix-libguile-ncurses-file-name
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(invoke "make" "install"
|
||
"-C" "src/ncurses"
|
||
"-j" (number->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.1.1")
|
||
(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
|
||
"0pvk4yadgx64wk81cpisdc7zqhk6ww58xi5fs5fs6s28wb6l5bfj"))))
|
||
(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 <libguile\\.h>")
|
||
(string-append "#include <stdlib.h>\n"
|
||
"#include <stdio.h>\n"
|
||
"#include <string.h>\n"
|
||
"#include <unistd.h>\n"
|
||
"#include <libguile.h>\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"))))
|
||
(build-system guile-build-system)
|
||
(arguments
|
||
`(#:implicit-inputs? #f ;needs nothing but Guile
|
||
#:compile-flags '("--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"))
|
||
|
||
#t)))))
|
||
(native-inputs
|
||
(list guile-3.0))
|
||
(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" "dist" "-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.1.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
|
||
"16k61f1jn3g48jaf3730b9l0izr5j933jzyri73nmcnjd09gm35i"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
;; Guile >= 3.0.7 no longer uses libltdl so we need to explicitly add
|
||
;; ".libs" so that 'load-extension' finds the '.so' file.
|
||
'(substitute* "pre-inst-env.in"
|
||
(("^LD_LIBRARY_PATH=.*$")
|
||
"LD_LIBRARY_PATH=\"$abs_top_builddir/.libs\"\n")))))
|
||
(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 "375d3bde9c6ae7ccc9d7cc65817966b6fda8f26a")
|
||
(revision "0"))
|
||
(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
|
||
"113lcckcywrz9060w1c3fnvr8d7crdsjgsv4h47hgmr1slgadl4y"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:configure-flags '("--enable-gnutls=yes")))
|
||
(native-inputs
|
||
(list autoconf automake texinfo))
|
||
(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 <rotating-log>\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
|
||
;; <https://bugs.gnu.org/49305>.
|
||
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)))))
|