;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
+;;; 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 Ricardo Wurmus <rekado@elephly.net>
+;;; 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 Alex Kost <alezost@gmail.com>
+;;; 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 Theodoros Foradis <theodoros@foradis.org>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2017, 2018, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
-;;; Copyright © 2018, 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
-;;; Copyright © 2018, 2019, 2020, 2021 Arun Isaac <arunisaac@systemreboot.net>
+;;; 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 © 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.
;;;
(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 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 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 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-1) #:select (alist-delete))
+ #:use-module (srfi srfi-26))
(define-public artanis
(package
(name "artanis")
- (version "0.5")
+ (version "0.5.1")
(source (origin
(method url-fetch)
(uri (string-append "mirror://gnu/artanis/artanis-"
version ".tar.gz"))
(sha256
(base32
- "1vk1kp2xhz35xa5n27cxlq9c88wk6qm7fqaac8rb0pb6k9pvsv7v"))
+ "1zfg49s7wp37px7k22qcr06rxfwyn3gv1c3jmma346xw0m8jr63w"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "artanis/third-party/redis")
(substitute* '("artanis/artanis.scm"
"artanis/lpc.scm"
- "artanis/oht.scm")
+ "artanis/oht.scm"
+ "artanis/tpl/parser.scm")
(("(#:use-module \\()artanis third-party (json\\))" _
use-module json)
(string-append use-module json)))
#t))))
(build-system gnu-build-system)
(inputs
- `(("guile" ,guile-3.0)
- ("nspr" ,nspr)
- ("nss" ,nss)))
+ (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
- `(("guile-json" ,guile-json-3)
- ("guile-readline" ,guile-readline)
- ("guile-redis" ,guile-redis)))
+ (list guile-json-3 guile-readline guile-redis))
(native-inputs
- `(("bash" ,bash) ;for the `source' builtin
- ("pkgconfig" ,pkg-config)
- ("util-linux" ,util-linux))) ;for the `script' command
+ (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))
(base32 "038gwrhfywgs8372q478wn4623lhcmkknfj4p8yaa93bykfc0fml"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://github.com/joshwalters/guile-pipe")
(synopsis "Guile pipe macros for functional chaining")
(description
(base32 "14wyrs3m1649l3km4pl2175dmap1372j5h8nkhykrbxg5xqp6ivd"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://git.sr.ht/~brown121407/f.scm")
(synopsis "Library for working with files and directories")
(description
(("tests/database.scm") ""))
#t)))))
(inputs
- `(("guile" ,guile-2.0)))
+ (list guile-2.0))
(native-inputs
- `(("zip" ,zip) ; for tests
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)))
+ (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
(string-append "\"" aspell
"/lib/libaspell\"")))
#t))))))
- (native-inputs `(("pkg-config" ,pkg-config)))
- (inputs `(("guile" ,guile-2.2)
- ("aspell" ,aspell)))
+ (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
(base32
"031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
(build-system gnu-build-system)
- (native-inputs `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("guile" ,guile-2.2)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (native-inputs (list autoconf automake guile-2.2 pkg-config texinfo))
(arguments
`(#:phases (modify-phases %standard-phases
(add-before 'configure 'setenv
"08gaqrgjlly9k5si72vvpbr4xhq5v52l5ma5y6a7spid5dd057cy"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-2.2)))
+ (list guile-3.0))
(home-page "https://github.com/alezost/guile-daemon")
(synopsis "Evaluate code in a running Guile process")
(description
(define-public guile-dsv
(package
(name "guile-dsv")
- (version "0.4.0")
+ (version "0.5.1")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
- "1mvyc8i38j56frjh3p6vwziv8lrzlyqndz30663h5nwcp0044sdn"))))
+ "10wssilin4qphdmmqmms20bp3cy007kh22l1g45wfka0minmhkgs"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-3.0)))
- (propagated-inputs `(("guile-lib" ,guile-lib)))
+ (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))
#:imported-modules ((guix build guile-build-system)
,@%gnu-build-system-modules)
#:phases (modify-phases %standard-phases
- (add-before 'configure 'set-guilesitedir
- (lambda _
- (substitute* "Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
-$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- (substitute* "modules/Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
-$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- (substitute* "modules/dsv/Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
-$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- #t))
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(package
(inherit guile-dsv)
(name "guile2.2-dsv")
- (inputs `(("guile" ,guile-2.2)))
+ (inputs (list guile-2.2))
(propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
+(define-public guile-fibers-1.1
+ ;; Pick one commit above 1.1.0, which fixes a bug that's critical for the
+ ;; Shepherd: <https://github.com/wingo/fibers/pull/57>.
+ (let ((commit "c25dcb9cc4b5b977474ffe555b40ce2f1d0d1edc")
+ (revision "0"))
+ (package
+ (name "guile-fibers")
+ (version (git-version "1.1.0" revision commit))
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/wingo/fibers")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "1jwr0y5x8mv8fm4df2vc3ll38fwwbkrm2iwfsfxa8l783a1a6143"))
+ (patches
+ (search-patches "guile-fibers-wait-for-io-readiness.patch"))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:phases (modify-phases %standard-phases
+ (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")
+ (properties '((upstream-name . "fibers")))
+ (license license:lgpl3+))))
+
(define-public guile-fibers
(package
- (name "guile-fibers")
+ (inherit guile-fibers-1.1)
(version "1.0.0")
(source (origin
(method url-fetch)
(patches
;; fixes a resource leak that causes crashes in the tests
(search-patches "guile-fibers-destroy-peer-schedulers.patch"))))
- (build-system gnu-build-system)
(arguments
'(;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0.
#:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations")
(new (string-append (dirname old)
"/site-ccache")))
(rename-file old new)
- #t))))))
- (native-inputs
- `(("texinfo" ,texinfo)
- ("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-3.0)))
- (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+)))
+ #t))))))))
-(define-public guile2.0-fibers
+(define-public guile2.2-fibers
(package
- (inherit guile-fibers)
+ (inherit guile-fibers-1.1)
(name "guile2.2-fibers")
- (inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-fibers
- (deprecated-package "guile3.0-fibers" guile-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
"1shmkc0y9r2sj3kw7hrsnamnp7y8xifkhf3m3rnfxczqg63k67vy"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list autoconf automake pkg-config texinfo))
(inputs
- `(("guile" ,guile-3.0)))
+ (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,
(package
(inherit guile-filesystem)
(name "guile2.0-filesystem")
- (inputs `(("guile" ,guile-2.0)))))
+ (inputs (list guile-2.0))))
(define-public guile2.2-filesystem
(package
(inherit guile-filesystem)
(name "guile2.2-filesystem")
- (inputs `(("guile" ,guile-2.2)))))
+ (inputs (list guile-2.2))))
(define-public guile-syntax-highlight
(package
#t))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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
(base32
"18zlg4mkgd3swgv2ggfz91ivnnzc0zhvc9ybgrxg1y762va9hyvj"))))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)
- ,@(package-native-inputs guile-syntax-highlight)))
+ (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 `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-syntax-highlight
- (deprecated-package "guile3.0-syntax-highlight" guile-syntax-highlight))
+ (inputs (list guile-2.2))))
(define-public guile-sjson
(package
(name "guile-sjson")
- (version "0.2.1")
+ (version "0.2.2")
(source (origin
(method url-fetch)
(uri (string-append "https://dustycloud.org/misc/sjson-" version
".tar.gz"))
(sha256
(base32
- "1mzmapln79vv10qxaggz9qwcdbag3jnrj19xx8bgkmxss8h03sv3"))
+ "08sr16fg5cqvik3wblav6k4b6djc5ydhgfvxa49bc5bh1irqvrcn"))
(modules '((guix build utils)))
(snippet
'(begin
#t))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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.
(package
(inherit guile-sjson)
(name "guile2.2-sjson")
- (inputs `(("guile" ,guile-2.2)))))
+ (inputs (list guile-2.2))))
(define-public guile-squee
- (let ((commit "c1497a216e881cfde39d6aa7c73d0bf6b497c89b")
- (revision "2"))
+ (let ((commit "a151fd006fa819945ca1d4749b173854269b9f70")
+ (revision "3"))
(package
(name "guile-squee")
(version (string-append "0-" revision "." (string-take commit 7)))
(file-name (git-file-name name version))
(sha256
(base32
- "1alskrplnyl1n5wb39drn72cwplp47a8cpdd1n9cdnw3jhk5p12p"))))
+ "1jps14z8653ah2kr367iayzyi3ql2s55l77xrafz7gk3mzcvgrrg"))))
(build-system guile-build-system)
(arguments
'(#:phases
(("dynamic-link \"libpq\"")
(string-append
"dynamic-link \""
- (assoc-ref inputs "postgresql") "/lib/libpq.so"
- "\"")))
- #t)))))
+ (search-input-file inputs "/lib/libpq.so")
+ "\""))))))))
(inputs
- `(("postgresql" ,postgresql)))
+ (list postgresql))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://notabug.org/cwebber/guile-squee")
(synopsis "Connect to PostgreSQL using Guile")
(description
(package
(inherit guile-squee)
(name "guile2.2-squee")
- (native-inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile"
- (package-native-inputs guile-squee))))))
-
-(define-public guile3.0-squee
- (deprecated-package "guile3.0-squee" guile-squee))
+ (native-inputs (modify-inputs (package-native-inputs guile-squee)
+ (replace "guile" guile-2.2)))))
(define-public guile-colorized
(package
(base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://gitlab.com/NalaGinrut/guile-colorized")
(synopsis "Colorized REPL for Guile")
(description
(package
(inherit guile-colorized)
(name "guile2.2-colorized")
- (native-inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-colorized
- (deprecated-package "guile3.0-colorized" guile-colorized))
+ (native-inputs (list guile-2.2))))
(define-public guile-pfds
(package
"sequences.sls"
"sets.sls")))))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(synopsis "Purely functional data structures for Guile")
(description
"This package provides purely functional data structures written in R6RS
(("\\/share\\/guile\\/site") "/share/guile/site/2.0"))
#t)))))
(native-inputs
- `(("procps" ,procps) ; fake-cluster-control uses ps
- ("guile" ,guile-2.0)
- ("postgresql" ,postgresql)))
+ (list procps ; fake-cluster-control uses ps
+ guile-2.0 postgresql))
(inputs
- `(("guile" ,guile-2.0)
- ("postgresql" ,postgresql)))
+ (list guile-2.0 postgresql))
(home-page "https://www.nongnu.org/guile-pg/")
(synopsis "Guile modules for accessing PostgreSQL")
(description
(file-name (string-append name "-" version "-checkout"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("guile" ,guile-3.0)))
+ (list pkg-config autoconf automake guile-3.0))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://git.cbaines.net/guile/prometheus")
(synopsis "Prometheus client library for Guile")
(description
(package
(inherit guile-pfds)
(name "guile2.2-pfds")
- (native-inputs `(("guile" ,guile-2.2)))
+ (native-inputs (list guile-2.2))
(arguments
(substitute-keyword-arguments (package-arguments guile-pfds)
((#:phases phases)
(find-files "." "\\.sls$"))
#t))))))))
-(define-public guile3.0-pfds
- (deprecated-package "guile3.0-pfds" guile-pfds))
-
(define-public guile-aa-tree
(package
(name "guile-aa-tree")
(base32
"0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh"))))
(build-system guile-build-system)
- (native-inputs `(("guile" ,guile-2.2)))
+ (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")
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("zeromq" ,zeromq)))
+ (list autoconf automake pkg-config zeromq))
(home-page "https://github.com/jerry40/guile-simple-zmq")
(synopsis "Guile wrapper over ZeroMQ library")
(description
(package
(inherit guile-simple-zmq)
(name "guile2.2-simple-zmq")
- (native-inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-simple-zmq
- (deprecated-package "guile3.0-simple-zmq" guile-simple-zmq))
+ (native-inputs (list guile-2.2))))
(define-public jupyter-guile-kernel
(let ((commit "f25fb90b95529b17a006a807bd04e6aee12ea304")
;; command.
(substitute* "src/hmac.scm"
(("openssl")
- (string-append (assoc-ref inputs "openssl")
- "/bin/openssl")))
- #t))
+ (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.
", \"-s"))))
#t))))))
(inputs
- `(("openssl" ,openssl)
- ("guile" ,guile-3.0)
- ("guile-json" ,guile-json-3)
- ("guile-simple-zmq" ,guile-simple-zmq)))
+ (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
(base32 "1jf4972f9fpm0rd865xpnc9mzl3xv6vhfnp0iygadydy905z9nln"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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
"1cc63nw3xdfjrfk8c58r6d5lidmfq5cpqcy32yd5xp81yccprvn9"))))
(build-system gnu-build-system)
(propagated-inputs
- `(("guile-email" ,guile-email)))
+ (list guile-email))
(native-inputs
- `(("guile" ,guile-3.0)
- ("pkg-config" ,pkg-config)))
+ (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
version ".tar.lz"))
(sha256
(base32
- "1rc8r0fgvflnyq5ckl7ii8sghpsgpkzxa8vskjr1ak2kyar6m35k"))))
+ "1rc8r0fgvflnyq5ckl7ii8sghpsgpkzxa8vskjr1ak2kyar6m35k"))
+ (patches
+ (search-patches "guile-email-fix-tests.patch"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)
- ("lzip" ,lzip)))
+ (list pkg-config lzip))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
(home-page "https://guile-email.systemreboot.net")
(license license:agpl3+)))
(define-public guile-email-latest
- (let ((commit "ca0520a33c9042a68691d85c6849f88412ca8357")
- (revision "1"))
+ (let ((commit "ea60bb902d3677d5c653851c7aa6afbbf710140e")
+ (revision "2"))
(package
(inherit guile-email)
(name "guile-email-latest")
(file-name (git-file-name name version))
(sha256
(base32
- "1l5mikalawq83786rnb9zky908ncsd5dna9vyz6bx6kc2frrl7xv"))))
+ "1g4rn7ai3nfxmpppc8qbpv8b18wnsld29y5xa58cv9b8pf3pbwnj"))))
(native-inputs
- `(("pkg-config" ,pkg-config)
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo))))))
+ (list pkg-config autoconf automake texinfo)))))
(define-public guile2.2-email
(package
(inherit guile-email)
(name "guile2.2-email")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-email))))))
-
-(define-public guile3.0-email
- (deprecated-package "guile3.0-email" guile-email))
+ (inputs (modify-inputs (package-inputs guile-email)
+ (replace "guile" guile-2.2)))))
(define-public guile-newt
(package
'(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(inputs
- `(("guile" ,guile-3.0)
- ("newt" ,newt)))
+ (list guile-3.0 newt))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(synopsis "Guile bindings to Newt")
(description
"This package provides bindings for Newt, a programming library for
(package
(inherit guile-newt)
(name "guile2.2-newt")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-newt))))))
-
-(define-public guile3.0-newt
- (deprecated-package "guile3.0-newt" guile-newt))
+ (inputs (modify-inputs (package-inputs guile-newt)
+ (replace "guile" guile-2.2)))))
(define-public guile-mastodon
(let ((commit "74b75bcf547df92acee1e0466ecd7ec07f775392")
"1wx5h6wa9c0na8mrnr2nv1nzjvq68zyrly8yyp11dsskhaw4y33h"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("emacs" ,emacs-minimal)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list autoconf automake emacs-minimal pkg-config texinfo))
(inputs
- `(("guile" ,guile-3.0)
- ("gnutls" ,gnutls)
- ("guile-json" ,guile-json-4)))
+ (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
'(#:make-flags
'("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
(inputs
- `(("guile" ,guile-3.0)
- ("parted" ,parted)))
+ ;; XXX: Use Parted 3.4 to work around issues when using 3.5 in the Guix
+ ;; System installer: <https://issues.guix.gnu.org/55549>.
+ (list guile-3.0 parted-3.4))
(propagated-inputs
- `(("guile-bytestructures" ,guile-bytestructures)))
+ (list guile-bytestructures))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(synopsis "Guile bindings to GNU Parted")
(description
"This package provides bindings for GNU Parted library, a C library
(package
(inherit guile-parted)
(name "guile2.2-parted")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-parted))))
+ (inputs (modify-inputs (package-inputs guile-parted)
+ (replace "guile" guile-2.2)))
(propagated-inputs
`(("guile-bytestructures" ,guile2.2-bytestructures)))))
-(define-public guile3.0-parted
- (deprecated-package "guile3.0-parted" guile-parted))
-
(define-public guile-xosd
(package
(name "guile-xosd")
- (version "0.2.1")
+ (version "0.2.2")
(source (origin
(method url-fetch)
(uri (string-append "https://github.com/alezost/" name
"/" name "-" version ".tar.gz"))
(sha256
(base32
- "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
+ "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
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-2.2)
- ("libx11" ,libx11)
- ("libxext" ,libxext)
- ("libxinerama" ,libxinerama)
- ("xosd" ,xosd)))
+ (list guile-3.0 libx11 libxext libxinerama xosd))
(home-page "https://github.com/alezost/guile-xosd")
(synopsis "XOSD bindings for Guile")
(description
(ext (string-append out "/lib/libguile-dbi")))
(substitute* dbi.scm (("libguile-dbi") ext))))))))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("perl" ,perl)
- ("texinfo" ,texinfo)))
+ (list autoconf automake libtool perl texinfo))
(propagated-inputs
- `(("guile" ,guile-2.2)))
+ (list guile-2.2))
(synopsis "Guile database abstraction layer")
(home-page "https://github.com/opencog/guile-dbi")
(description
(chdir "guile-dbd-sqlite3")))
(delete 'patch-extension-path)))))
(inputs
- `(("sqlite" ,sqlite)
- ("zlib" ,zlib)))
+ (list sqlite zlib))
(native-inputs
- `(("guile-dbi" ,guile-dbi) ; only required for headers
- ("pkg-config" ,pkg-config)
- ,@(package-native-inputs guile-dbi)))
+ (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
(("postgresql/libpq-fe\\.h") "libpq-fe.h"))))
(delete 'patch-extension-path)))))
(inputs
- `(("postgresql" ,postgresql)
- ("zlib" ,zlib)))
+ (list postgresql zlib))
(native-inputs
- `(("guile-dbi" ,guile-dbi) ; only required for headers
- ,@(package-native-inputs guile-dbi)))
+ (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
(("<mariadb/") "<mysql/"))))
(delete 'patch-extension-path)))))
(inputs
- `(("mariadb" ,mariadb "dev")
- ("mariadb" ,mariadb "lib")
- ("zlib" ,zlib)))
+ (list `(,mariadb "dev")
+ `(,mariadb "lib") zlib))
(native-inputs
- `(("guile-dbi" ,guile-dbi) ; only required for headers
- ,@(package-native-inputs guile-dbi)))
+ (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
"09028ylbddjdp3d67zdjz3pnsjqz6zs2bfck5rr3dfaa0qjap40n"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-3.0)))
+ (list autoconf automake pkg-config texinfo))
+ (inputs (list guile-3.0))
(synopsis
"Guile application configuration parsing library.")
(description
(package
(inherit guile-config)
(name "guile2.2-config")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-config))))))
-
-(define-public guile3.0-config
- (deprecated-package "guile3.0-config" guile-config))
+ (inputs (modify-inputs (package-inputs guile-config)
+ (replace "guile" guile-2.2)))))
(define-public guile-hall
(package
,''("hall"))
#t))))))))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-3.0)))
+ (list autoconf automake pkg-config texinfo))
+ (inputs (list guile-3.0))
(propagated-inputs
- `(("guile-config" ,guile-config)))
+ (list guile-config))
(synopsis "Guile project tooling")
(description
"Hall is a command-line application and a set of Guile libraries that
(package
(inherit guile-hall)
(name "guile2.2-hall")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-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 guile3.0-hall
- (deprecated-package "guile3.0-hall" guile-hall))
-
(define-public guile-ics
(package
(name "guile-ics")
- (version "0.2.0")
+ (version "0.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
- "0qjjvadr7gibdq9jvwkmlkb4afsw9n2shfj9phpiadinxk3p4m2g"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- ;; Allow builds with Guile 3.0.
- (substitute* "configure.ac"
- (("^GUILE_PKG.*")
- "GUILE_PKG([3.0 2.2 2.0])\n"))
- #t))))
+ "11wv6qk8xd4sd8s97mnw383p098ffivk0na4jii76r5wbmg1wd7q"))
+ (modules '((guix build utils)))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)
- ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
- ("gettext" ,gettext-minimal)
- ("pkg-config" ,pkg-config)))
- (inputs `(("guile" ,guile-3.0) ("which" ,which)))
- (propagated-inputs `(("guile-lib" ,guile-lib)))
+ (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
(package
(inherit guile-ics)
(name "guile2.2-ics")
- (inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-ics))))
+ (inputs (modify-inputs (package-inputs guile-ics)
+ (replace "guile" guile-2.2)))
(propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
-(define-public guile3.0-ics
- (deprecated-package "guile3.0-ics" guile-ics))
-
(define-public guile-imanifest
(let ((commit "ccd5a2111b008d778106f5595a3a585954d95d0")
(revision "0"))
"0i5qllcrhdjhspyj7j9h4dc9y37d3cfbpackmybm3030qgfxqirf"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-readline" ,guile-readline)
- ("guile-colorized" ,guile-colorized)
- ("guix" ,guix)))
+ (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
(define-public guile-wisp
(package
(name "guile-wisp")
- (version "1.0.5")
+ (version "1.0.7")
(source (origin
(method hg-fetch)
(uri (hg-reference
(file-name (git-file-name name version))
(sha256
(base32
- "00iknn03gf421gg3061g35fbraqrkcqypkrfn10rhlgg6j0lgk67"))))
+ "0fxngiy8dmryh3gx4g1q7nnamc4dpszjh130g6d0pmi12ycxd2y9"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)
(modify-phases %standard-phases
(replace 'bootstrap
(lambda _
- (invoke "autoreconf" "-vif")
- #t))
+ (invoke "autoreconf" "-vif")))
(add-before 'configure 'patch-/usr/bin/env
(lambda _
(substitute* "Makefile.in"
- (("/usr/bin/env bash") (which "bash")))
- #t))
+ (("/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
(go (string-append object-dir base ".go")))
(invoke "guild" "compile" "-L" module-dir
file "-o" go)))
- (find-files module-dir "\\.scm$"))
- #t)))
+ (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 'make-autoloads)))))
(home-page "https://www.draketo.de/english/wisp")
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
(package
(inherit guile-wisp)
(name "guile2.2-wisp")
- (inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-wisp
- (deprecated-package "guile3.0-wisp" guile-wisp))
+ (inputs (list guile-2.2))))
(define-public guile-udev
(package
(name "guile-udev")
- (version "0.1.0")
+ (version "0.2.3")
(source (origin
(method git-fetch)
(uri (git-reference
(file-name (git-file-name name version))
(sha256
(base32
- "1l6csncjqnx58c6c3wdl7rshnhk4pzhjq2q8lnkg483564s9w5py"))))
+ "0xvh4wscxmiqm8lnmfyh5cjzn89kv2wslkfvqvcjhinzpnpbg91x"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("gettext" ,gettext-minimal)
- ("libtool" ,libtool)
- ("texinfo" ,texinfo)
- ("pkg-config" ,pkg-config)
- ("which" ,which)))
+ (list autoconf
+ automake
+ gettext-minimal
+ libtool
+ texinfo
+ pkg-config
+ which))
(inputs
- `(("guile" ,guile-3.0)
- ("eudev" ,eudev)))
+ (list guile-3.0 eudev))
(home-page "https://github.com/artyom-poptsov/guile-udev")
(synopsis "Guile bindings to libudev")
(description
(string-append "--with-libgslcblas-prefix="
(assoc-ref %build-inputs "gsl")))))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(propagated-inputs
- `(("guile-sdl" ,guile-sdl)
- ("guile-opengl" ,guile-opengl)))
+ (list guile-sdl guile-opengl))
(inputs
- `(("guile" ,guile-2.2)
- ("gsl" ,gsl)
- ("freeimage" ,freeimage)
- ("mesa" ,mesa)))
+ (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
(home-page "https://dthompson.us/projects/sly.html")
(license license:gpl3+)))
-(define-public g-golf
- (let ((commit "ef830107b9765bd6a2da848d0cbe45e11374c0b5")
- (revision "839"))
+(define-public guile-g-golf
+ (let ((commit "1824633d37da3794f349d6829e9dac2cf89adaa8")
+ (revision "1010"))
(package
- (name "g-golf")
+ (name "guile-g-golf")
(version (git-version "0.1.0" revision commit))
(source
(origin
(commit commit)))
(file-name (git-file-name name version))
(sha256
- (base32 "0r472hvmf447kqvkahp1wy4irb5gy8y793hm8r9rc511smdx66cw"))))
+ (base32 "0ncpqv6pbsx9fjmdzvzbjljnhqgw9pynqy9vr9aq35nb7rzrhfdf"))))
(build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)
- ("gettext" ,gettext-minimal)
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)
- ("xorg-server" ,xorg-server)))
+ (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
- `(("guile" ,guile-2.2)
- ("guile-lib" ,guile2.2-lib)
- ("clutter" ,clutter)
- ("gtk" ,gtk+)
- ("glib" ,glib)))
+ (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
- `(("gobject-introspection" ,gobject-introspection)))
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- (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)
- (let* ((get (lambda (key lib)
- (string-append (assoc-ref inputs key) "/lib/" lib)))
- (libgi (get "gobject-introspection" "libgirepository-1.0"))
- (libglib (get "glib" "libglib-2.0"))
- (libgobject (get "glib" "libgobject-2.0"))
- (libgdk (get "gtk" "libgdk-3")))
- (substitute* "configure"
- (("SITEDIR=\"\\$datadir/g-golf\"")
- "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"")
- (("SITECCACHEDIR=\"\\$libdir/g-golf/")
- "SITECCACHEDIR=\"$libdir/"))
- (substitute* "g-golf/init.scm"
- (("libgirepository-1.0") libgi)
- (("libglib-2.0") libglib)
- (("libgdk-3") libgdk)
- (("libgobject-2.0") libgobject)
- (("\\(dynamic-link \"libg-golf\"\\)")
- (format #f "~s"
- `(dynamic-link
- (format #f "~alibg-golf"
- (if (getenv "GUILE_GGOLF_UNINSTALLED")
- ""
- ,(format #f "~a/lib/"
- (assoc-ref outputs "out"))))))))
- (setenv "GUILE_AUTO_COMPILE" "0")
- (setenv "GUILE_GGOLF_UNINSTALLED" "1")
- #t)))
- (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)))))
+ (list gobject-introspection))
(home-page "https://www.gnu.org/software/g-golf/")
(synopsis "Guile bindings for GObject Introspection")
(description
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")
"0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(propagated-inputs
- `(("guile" ,guile-2.2)
- ("guile-lib" ,guile-lib)))
+ (list guile-2.2 guile-lib))
(inputs
- `(("libffi" ,libffi)))
+ (list libffi))
(arguments
`(#:configure-flags '("--disable-Werror")
#:phases
"09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-2.2)))
+ (list guile-2.2))
(home-page "https://github.com/fisherdj/miniAdapton")
(synopsis "Minimal implementation of incremental computation in Guile
Scheme")
(when tests?
(invoke "guile" "-L" "." "-s" "test.scm")))))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (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. ")
+quotes.")
(license license:public-domain))))
(define-public guile-reader
(base32
"1fyjckmygkhq22lq8nqc86yl5zzbqd7a944dnz5c1f6vx92b9hiq"))))
(build-system gnu-build-system)
- (native-inputs `(("pkgconfig" ,pkg-config)
- ("gperf" ,gperf)))
- (inputs `(("guile" ,guile-3.0)))
+ (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.
(package
(inherit guile-reader)
(name "guile2.2-reader")
- (inputs `(("guile" ,guile-2.2)))))
+ (inputs (list guile-2.2))))
(define-public guile-ncurses
(package
(base32
"038xbffalhymg26lvmzgf7ljilxz2f2zmqg5r5nfzbipfbprwjhf"))))
(build-system gnu-build-system)
- (inputs `(("ncurses" ,ncurses)
- ("guile" ,guile-3.0)))
- (native-inputs `(("pkg-config" ,pkg-config)))
+ (inputs (list ncurses guile-3.0))
+ (native-inputs (list pkg-config))
(arguments
`(#:modules ((guix build gnu-build-system)
((guix build guile-build-system)
(package
(inherit guile-ncurses)
(name "guile2.2-ncurses")
- (inputs `(("ncurses" ,ncurses)
- ("guile" ,guile-2.2)))))
-
-(define-public guile3.0-ncurses
- (deprecated-package "guile3.0-ncurses" guile-ncurses))
+ (inputs (list ncurses guile-2.2))))
(define-public guile-ncurses/gpm
(package
(inputs `(("ncurses" ,ncurses/gpm)
("guile" ,guile-3.0)))))
-(define-public guile3.0-ncurses/gpm
- (package
- (inherit guile3.0-ncurses)
- (name "guile3.0-ncurses-with-gpm")
- (inputs `(("ncurses" ,ncurses/gpm)
- ("guile" ,guile-3.0)))))
-
(define-public guile-lib
(package
(name "guile-lib")
("guile" ,guile-3.0)
("pkg-config" ,pkg-config)))
(inputs
- `(("guile" ,guile-3.0))) ;for cross-compilation
+ (list guile-3.0)) ;for cross-compilation
(home-page "https://www.nongnu.org/guile-lib/")
(synopsis "Collection of useful Guile Scheme modules")
(description
(alist-replace "guile" (list guile-2.2)
(package-inputs guile-lib)))))
-(define-public guile3.0-lib
- (deprecated-package "guile3.0-lib" guile-lib))
-
(define-public guile-minikanren
(package
(name "guile-minikanren")
"0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://github.com/ijp/minikanren")
(synopsis "MiniKanren declarative logic system, packaged for Guile")
(description
(package
(inherit guile-minikanren)
(name "guile2.0-minikanren")
- (native-inputs `(("guile" ,guile-2.0)))))
+ (native-inputs (list guile-2.0))))
(define-public guile2.2-minikanren
(package
(inherit guile-minikanren)
(name "guile2.2-minikanren")
- (native-inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-minikanren
- (deprecated-package "guile3.0-minikanren" guile-minikanren))
+ (native-inputs (list guile-2.2))))
(define-public guile-irregex
(package
#t)))
#:source-directory "src"))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "http://synthcode.com/scheme/irregex")
(synopsis "S-expression based regular expressions")
(description
(package
(inherit guile-irregex)
(name "guile2.0-irregex")
- (native-inputs `(("guile" ,guile-2.0)))))
+ (native-inputs (list guile-2.0))))
(define-public guile2.2-irregex
(package
(inherit guile-irregex)
(name "guile2.2-irregex")
- (native-inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-irregex
- (deprecated-package "guile3.0-irregex" guile-irregex))
+ (native-inputs (list guile-2.2))))
(define-public haunt
(package
(name "haunt")
- (version "0.2.5")
+ (version "0.2.6")
(source (origin
(method url-fetch)
(uri (string-append "https://files.dthompson.us/haunt/haunt-"
version ".tar.gz"))
(sha256
(base32
- "1gy45l6m91b3wpdbpd9bpisp00zl8610zs0a2nwmbjlpd2cbf90k"))))
+ "1nwhwngx0gl2892vrvrzrxy5w6a5l08j1w0522kdh9a3v11qpwmw"))))
(build-system gnu-build-system)
(arguments
`(#:modules ((ice-9 match) (ice-9 ftw)
deps))))
#t)))))))))
(native-inputs
- `(("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list pkg-config texinfo))
(inputs
;; Depend on the latest Guile to avoid bytecode compatibility issues when
;; using modules built against the latest version.
- `(("guile" ,guile-3.0-latest)))
+ (list guile-3.0-latest))
(propagated-inputs
- `(("guile-reader" ,guile-reader)
- ("guile-commonmark" ,guile-commonmark)))
+ (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
(package
(inherit haunt)
(name "guile2.2-haunt")
- (inputs `(("guile" ,guile-2.2)))
+ (inputs (list guile-2.2))
(propagated-inputs
`(("guile-reader" ,guile2.2-reader)
("guile-commonmark" ,guile2.2-commonmark)))))
(package
(inherit haunt)
(name "guile2.0-haunt")
- (inputs `(("guile" ,guile-2.0)))))
-
-(define-public guile3.0-haunt
- (deprecated-package "guile3.0-haunt" haunt))
+ (inputs (list guile-2.0))))
(define-public guile-redis
(package
(name "guile-redis")
- (version "2.1.1")
+ (version "2.2.0")
(home-page "https://github.com/aconchillo/guile-redis")
(source (origin
(method git-fetch)
(file-name (git-file-name name version))
(sha256
(base32
- "0pvk4yadgx64wk81cpisdc7zqhk6ww58xi5fs5fs6s28wb6l5bfj"))))
+ "0cb31vj88f3hj93v1lzxcqjyz7ym2gmpk31gv5i2dqv721frnlyj"))))
(build-system gnu-build-system)
(arguments
'(#:make-flags '("GUILE_AUTO_COMPILE=0")))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("guile" ,guile-3.0)))
+ (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.")
(package
(inherit guile-redis)
(name "guile2.2-redis")
- (native-inputs `(("guile" ,guile-2.2)
- ,@(alist-delete "guile"
- (package-native-inputs guile-redis))))))
+ (native-inputs (modify-inputs (package-native-inputs guile-redis)
+ (replace "guile" guile-2.2)))))
(define-public guile2.0-redis
(package
"(rnrs io ports)"))
#t)))
,@(package-arguments guile-redis)))
- (native-inputs `(("guile" ,guile-2.0)
- ,@(alist-delete "guile"
- (package-native-inputs guile-redis))))))
+ (native-inputs (modify-inputs (package-native-inputs guile-redis)
+ (replace "guile" guile-2.0)))))
(define-public guile-commonmark
(package
(("\\(exit.*") ""))
#t)))))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(synopsis "CommonMark parser for Guile")
(description
"guile-commonmark is a library for parsing CommonMark, a fully specified
(package
(inherit guile-commonmark)
(name "guile2.2-commonmark")
- (inputs `(("guile" ,guile-2.2)))))
+ (inputs (list guile-2.2))))
(define-public guile2.0-commonmark
(package
(inherit guile-commonmark)
(name "guile2.0-commonmark")
- (inputs `(("guile" ,guile-2.0)))))
-
-(define-public guile3.0-commonmark
- (deprecated-package "guile3.0-commonmark" guile-commonmark))
+ (inputs (list guile-2.0))))
(define-public mcron
(package
("tzdata" ,tzdata-for-tests)
("guile-native" ;for 'guild compile'
,@(assoc-ref (package-inputs this-package) "guile"))))
- (inputs `(("guile" ,guile-3.0)))
+ (inputs (list guile-3.0))
(home-page "https://www.gnu.org/software/mcron/")
(synopsis "Run jobs at scheduled times")
(description
(package
(inherit mcron)
(name "guile2.2-mcron")
- (inputs `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-mcron
- (deprecated-package "guile3.0-mcron" mcron))
+ (inputs (list guile-2.2))))
(define-public guile-picture-language
(let ((commit "a1322bf11945465241ca5b742a70893f24156d12")
"03i528z92ainccgm28shg4haxiav5x4cyhyi5dggq1rm027vbm99"))))
(build-system gnu-build-system)
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-cairo" ,guile-cairo)
- ("guile-rsvg" ,guile-rsvg)))
+ (list guile-cairo guile-rsvg))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("librsvg" ,librsvg)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list autoconf automake librsvg pkg-config texinfo))
(home-page "https://git.elephly.net/software/guile-picture-language.git")
(synopsis "Picture language for Guile")
(description
(package
(inherit guile-picture-language)
(name "guile2.2-picture-language")
- (inputs `(("guile" ,guile-2.2)))
+ (inputs (list guile-2.2))
(propagated-inputs
- `(("guile-cairo" ,guile2.2-cairo)
- ("guile-rsvg" ,guile2.2-rsvg)))))
-
-(define-public guile3.0-picture-language
- (deprecated-package "guile3.0-picture-language"
- guile-picture-language))
+ (list guile2.2-cairo guile2.2-rsvg))))
(define-public guile-studio
(let ((commit "dd0ad42e51feafebda7cc29afe7c8bc7a182a842")
(delete 'configure)
(delete 'install))))
(inputs
- `(("guile" ,guile-3.0)
- ("guile-picture-language" ,guile-picture-language)
- ("emacs" ,emacs)
- ("emacs-f" ,emacs-f) ; needed by doom-modeline
- ("emacs-memoize" ,emacs-memoize) ; needed by all-the-icons
- ("emacs-all-the-icons" ,emacs-all-the-icons) ; needed by doom-modeline
- ("emacs-all-the-icons-dired" ,emacs-all-the-icons-dired)
- ("emacs-dired-sidebar" ,emacs-dired-sidebar)
- ("emacs-doom-modeline" ,emacs-doom-modeline)
- ("emacs-modus-themes" ,emacs-modus-themes)
- ("emacs-geiser" ,emacs-geiser)
- ("emacs-geiser-guile" ,emacs-geiser-guile)
- ("emacs-company" ,emacs-company)
- ("emacs-ivy" ,emacs-ivy)
- ("emacs-flycheck" ,emacs-flycheck)
- ("emacs-flycheck-guile" ,emacs-flycheck-guile)
- ("emacs-paren-face" ,emacs-paren-face)))
+ (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
- `(("texinfo" ,texinfo)))
+ (list texinfo))
(home-page "https://gnu.org/software/guile")
(synopsis "IDE for Guile")
(description
(delete-file "parser/stis-parser/lang/.#calc.scm")
#t)))))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(home-page "https://gitlab.com/tampe/stis-parser")
(synopsis "Parser combinator framework")
(description
(("/usr/local/lib/guile")
(string-append (assoc-ref outputs "out") "/lib/guile"))
(("/usr/local/include/guile")
- (string-append (assoc-ref inputs "guile") "/include/guile"))
+ (search-input-directory inputs "/include/guile"))
(("-L/usr/local/lib")
(string-append "-L" (assoc-ref inputs "guile") "/lib")))
#t))
(format #f "\"~a/lib/guile/3.0/extensions/libguile-persist\"" out)))
#t))))))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake libtool pkg-config))
(home-page "https://gitlab.com/tampe/guile-persist")
(synopsis "Persistence programming framework for Guile")
(description
(,compiled-path)))
#t))))))
(inputs
- `(("guile" ,guile-3.0)
- ("guile-persist" ,guile-persist)
- ("guile-readline" ,guile-readline)
- ("guile-stis-parser" ,guile-stis-parser)))
+ (list guile-3.0 guile-persist guile-readline guile-stis-parser))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)))
+ (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
"guilemoddir = $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
#t)))))
(inputs
- `(("guile" ,guile-2.2)))
+ (list guile-2.2))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(home-page "https://gitlab.com/brandoninvergo/guile-file-names")
(synopsis "Manipulate file names")
(description
(define-public guile-gi
(package
(name "guile-gi")
- (version "0.3.1")
+ (version "0.3.2")
(source (origin
(method url-fetch)
(uri (string-append "http://lonelycactus.com/tarball/guile_gi-"
version ".tar.gz"))
(sha256
(base32
- "1ljcfyar1nb6h4jskxnnzrcxcsblawc50qqfdn8cax3zqfskmvzj"))))
+ "019mbhgyga57k2074kg97mh3qsa8ny9l0kjgqids8cg3c6vbjdby"))))
(build-system glib-or-gtk-build-system)
(arguments
`(#:configure-flags '("--with-gnu-filesystem-hierarchy")
(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
(setenv "DISPLAY" ":1")
#t)))))
(native-inputs
- `(("gettext" ,gettext-minimal)
- ("glib:bin" ,glib "bin") ; for glib-compile-resources
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)
- ("xorg-server" ,xorg-server)))
- (propagated-inputs
- `(("glib" ,glib)
- ("gobject-introspection" ,gobject-introspection)
- ("gssettings-desktop-schemas" ,gsettings-desktop-schemas)
- ("gtk+" ,gtk+)
- ("guile-lib" ,guile-lib)
- ("webkitgtk" ,webkitgtk)))
- (inputs `(("guile" ,guile-3.0)))
+ (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
(inherit guile-gi)
(name "guile2.2-gi")
(inputs
- `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-gi))))))
-
-(define-public guile3.0-gi
- (deprecated-package "guile3.0-gi" guile-gi))
+ (modify-inputs (package-inputs guile-gi)
+ (replace "guile" guile-2.2)))))
(define-public guile-srfi-89
(package
(file-name (git-file-name name version))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://gitlab.com/mjbecze/guile-srfi-89")
(synopsis "Hygienic implementation of SRFI-89 for Guile")
(description
(file-name (git-file-name name version))))
(build-system guile-build-system)
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://gitlab.com/mjbecze/guile-srfi-145")
(synopsis "SRFI-145 port for Guile")
(description
(file-name (git-file-name name version))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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
;; should not be compiled separately, but they must be installed.
'(#:not-compiled-file-regexp "-impl\\.scm$"))
(inputs
- `(("guile" ,guile-2.2)))
+ (list guile-2.2))
(synopsis "Formatting combinators for Guile")
(description
"The @code{(srfi-159)} module and its sub-modules implement the
(arguments
'(#:not-compiled-file-regexp "body\\.scm$"))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-srfi-145" ,guile-srfi-145)))
+ (list guile-srfi-145))
(home-page "https://srfi.schemers.org/srfi-180/")
(synopsis "JSON parser and printer for Guile")
(description
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")
("perl" ,perl)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)
- ("texlive" ,(texlive-union (list texlive-generic-epsf)))))
+ ("texlive" ,(texlive-updmap.cfg (list texlive-epsf)))))
(inputs
- `(("dbus-glib" ,dbus-glib)
- ("guile" ,guile-3.0)
- ("guile-lib" ,guile-lib)
- ("guile-readline" ,guile-readline)
- ("freeglut" ,freeglut)
- ("webkitgtk" ,webkitgtk)))
+ (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)))
(modify-phases %standard-phases
(add-before 'configure 'setenv
(lambda _
- (setenv "GUILE_AUTO_COMPILE" "0")
- #t))
+ (setenv "GUILE_AUTO_COMPILE" "0")))
(add-after 'install 'wrap-binaries
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(map (cut wrap-program <>
`("GUILE_LOAD_PATH" ":" prefix ,scm-path)
`("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path))
- progs)
- #t))))))
+ progs)))))))
(home-page "https://savannah.nongnu.org/projects/emacsy")
(synopsis "Embeddable GNU Emacs-like library using Guile")
(description
#t))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("guile" ,guile-2.2)))
+ (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
("guile-readline" ,guile2.2-readline)
("guile-gcrypt" ,guile2.2-gcrypt)
("gnutls" ,gnutls)
- ("g-golf" ,g-golf)
+ ("g-golf" ,guile2.2-g-golf)
("shroud" ,shroud)
("emacsy" ,emacsy-minimal)
;; Gtk
(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.
(string-append (assoc-ref inputs "vigra-c") "/lib"))
#t)))))
(inputs
- `(("vigra" ,vigra)
- ("vigra-c" ,vigra-c)
- ("guile" ,guile-2.2)))
+ (list vigra vigra-c guile-2.2))
(native-inputs
- `(("texlive" ,(texlive-union (list texlive-booktabs
+ `(("texlive" ,(texlive-updmap.cfg (list texlive-booktabs
texlive-lm
texlive-siunitx
texlive-standalone
(invoke "guile" "-L" "mod"
"-s" "test/test-ffi-fftw.scm"))))))
(inputs
- `(("fftw" ,fftw)
- ("guile" ,guile-2.2)))
+ (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
(modify-phases %standard-phases
(delete 'build))))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-2.2)))
+ (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
"109p4n39ln44cxvwdccf9kgb96qx54makvd2ir521ssz6wchjyag"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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,
the style of the Node Package Manager (NPM).")
(license license:gpl3+)))
-(define-public guile3.0-semver
- (deprecated-package "guile3.0-semver" guile-semver))
-
(define-public guile2.2-semver
(package
(inherit guile-semver)
(name "guile2.2-semver")
(inputs
- `(("guile" ,guile-2.2)))))
+ (list guile-2.2))))
(define-public guile-hashing
(package
(rename-file "private" "hashing/private")
#t)))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(synopsis "Cryprographic hash functions implemented in Scheme")
(description
"The @code{(hashing @dots{})} modules implement cryptographic hash
(inherit guile-hashing)
(name "guile2.2-hashing")
(native-inputs
- `(("guile" ,guile-2.2)))))
-
-(define-public guile3.0-hashing
- (deprecated-package "guile3.0-hashing" guile-hashing))
+ (list guile-2.2))))
(define-public guile-packrat
(package
(object->string '(only (guile) error))))
#t)))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(synopsis "Packrat parser library in R6RS Scheme")
(description
"This is an R6RS Scheme adaptation of the
(file-name (git-file-name name version))
(sha256
(base32
- "0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb"))))
+ "0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb"))
+ (patches (search-patches "guile-ac-d-bus-fix-tests.patch"))))
(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)))))
+ (list
+ #:implicit-inputs? #f ;needs nothing but Guile
+ #:compile-flags #~(list "--r6rs" "-Wunbound-variable" "-Warity-mismatch")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'build 'adjust-for-guile
+ (lambda _
+ ;; Adjust source file names for Guile.
+ (define (guile-sls->sls file)
+ (string-append (string-drop-right
+ file (string-length ".guile.sls"))
+ ".sls"))
+
+ ;; Remove files targeting other implementations: *.mosh.sls,
+ ;; etc.
+ (for-each delete-file
+ (find-files
+ "compat"
+ (lambda (file stat)
+ (not (string-contains file ".guile.")))))
+
+ ;; Rename *.guile.sls to *.sls so the ".guile" bit does not
+ ;; appear in .go file names.
+ (for-each (lambda (file)
+ (rename-file file (guile-sls->sls file)))
+ (find-files "compat" "\\.guile\\.sls"))
+
+ ;; Move directories under d-bus/ to match module names.
+ (mkdir "d-bus")
+ (for-each (lambda (directory)
+ (rename-file directory
+ (string-append "d-bus/"
+ directory)))
+ '("compat" "protocol"))))
+ (add-after 'build 'build-doc
+ (lambda _
+ (with-directory-excursion "docs"
+ (invoke "makeinfo" "ac-d-bus"))))
+ (add-after 'build-doc 'check
+ (lambda* (#:key (tests? #t) #:allow-other-keys)
+ (when tests?
+ ;; There is no locale for the ö character, which crashes
+ ;; substitute*; reset the conversion strategy to workaround it.
+ (with-fluids ((%default-port-conversion-strategy 'substitute))
+ (substitute* (find-files "tests")
+ (("#!/usr/bin/env scheme-script")
+ (string-append "#!" (which "guile")))))
+ (invoke "./run-tests.sh"))))
+ (add-after 'install 'install-doc
+ (lambda _
+ (install-file "docs/ac-d-bus.info"
+ (string-append #$output "/share/info")))))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list bash-minimal guile-3.0 texinfo))
(propagated-inputs
- `(("guile-packrat" ,guile-packrat)))
+ (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
#t))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list autoconf automake pkg-config texinfo))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-irregex" ,guile-irregex)
- ("guile-gcrypt" ,guile-gcrypt)))
+ (list guile-irregex guile-gcrypt))
(home-page "https://notabug.org/cwebber/guile-webutils")
(synopsis "Web application authoring utilities for Guile")
(description
(inherit guile-webutils)
(name "guile2.2-webutils")
(inputs
- `(("guile" ,guile-2.2)))
+ (list guile-2.2))
(propagated-inputs
- `(("guile-irregex" ,guile2.2-irregex)
- ("guile-gcrypt" ,guile2.2-gcrypt)))))
+ (list guile2.2-irregex guile2.2-gcrypt))))
(define-public guile-lens
(let ((commit "14b15d07255f9d3f55d40a3b750d13c9ee3a154f")
(setenv "HOME" "/tmp") ; for ~/.hall
(invoke "hall" "dist" "-x"))))))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("guile" ,guile-3.0)
- ("guile-hall" ,guile-hall)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (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
(inherit guile-lens)
(name "guile2.2-lens")
(native-inputs
- `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-native-inputs guile-lens))))))
+ (modify-inputs (package-native-inputs guile-lens)
+ (replace "guile" guile-2.2)))))
(define-public guile-xapian
(package
(file-name (git-file-name name version))
(sha256
(base32
- "16k61f1jn3g48jaf3730b9l0izr5j933jzyri73nmcnjd09gm35i"))))
+ "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
- `(("guile" ,guile-3.0)
- ("xapian" ,xapian)
- ("zlib" ,zlib)))
+ (list guile-3.0 xapian zlib))
(native-inputs
- `(("autoconf" ,autoconf)
- ("autoconf-archive" ,autoconf-archive)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)
- ("swig" ,swig)))
+ (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
(inherit guile-xapian)
(name "guile2.2-xapian")
(inputs
- `(("guile" ,guile-2.2)
- ,@(alist-delete "guile" (package-inputs guile-xapian))))))
-
-(define-public guile3.0-xapian
- (deprecated-package "guile3.0-xapian" guile-xapian))
+ (modify-inputs (package-inputs guile-xapian)
+ (replace "guile" guile-2.2)))))
(define-public guile-torrent
(package
"1yiagi55ncq1x7s9n7salzywjm4l96y3n7y3s47a9anvz87mrmim"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("guile" ,guile-2.2)
- ("texinfo" ,texinfo)
- ("perl" ,perl)
- ("pkg-config" ,pkg-config)))
+ (list autoconf
+ automake
+ guile-2.2
+ texinfo
+ perl
+ pkg-config))
(propagated-inputs
- `(("guile-gcrypt" ,guile-gcrypt)))
+ (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
(arguments
`(#:configure-flags '("--enable-gnutls=yes")))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)))
+ (list autoconf automake texinfo))
(inputs
- `(("gnutls" ,gnutls)
- ("guile" ,guile-3.0)))
+ (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
'(#:make-flags
'("GUILE_AUTO_COMPILE=0")))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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 guile3.0-websocket
- (deprecated-package "guile3.0-websocket" guile-websocket))
-
(define-public guile-rdf
(package
(name "guile-rdf")
(arguments
`(#:tests? #f)); tests require network
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("automake" ,automake)
- ("autoconf" ,autoconf)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (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
("guile-json" ,guile-json-4)
("guile-rdf" ,guile-rdf)))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("automake" ,automake)
- ("autoconf" ,autoconf)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (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
files)
#t)))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://github.com/weinholt/struct-pack")
(synopsis "R6RS library for working with packed byte structures")
(description
files)
#t)))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-struct-pack" ,guile-struct-pack)))
+ (list guile-struct-pack))
(home-page "https://github.com/weinholt/machine-code")
(synopsis "Tools that relate to machine code and object formats")
(description
files)
#t)))))
(native-inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://github.com/weinholt/laesare")
(synopsis "R6RS Scheme library that provides a reader")
(description
out (target-guile-effective-version))))
#t))))))
(inputs
- `(("guile" ,guile-3.0)
- ("avahi" ,avahi)))
+ (list guile-3.0 avahi))
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (list autoconf automake libtool pkg-config texinfo))
(synopsis "Guile bindings to Avahi")
(description
"This package provides bindings for Avahi. It allows programmers to
"1p8sapiv5im18rjnzc8xnw6y7dr661rycf9g10z5ww0dl4rfz3z1"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
+ (list autoconf automake pkg-config))
(propagated-inputs
- `(("guile-json" ,guile-json-4)))
+ (list guile-json-4))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://github.com/aconchillo/guile-jwt")
(synopsis "JSON Web Token library for Guile")
(description
(build-system gnu-build-system)
(arguments `())
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-3.0)))
- (propagated-inputs `(("libsodium" ,libsodium)))
+ (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
(build-system gnu-build-system)
(arguments '())
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)
- ;; test dependency
- ("guile-srfi-180" ,guile-srfi-180)))
- (inputs `(("guile" ,guile-3.0)))
+ (list autoconf
+ automake
+ pkg-config
+ texinfo
+ ;; test dependency
+ guile-srfi-180))
+ (inputs (list guile-3.0))
(propagated-inputs
- `(("guile-sodium" ,guile-sodium)))
+ (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
(arguments
`(#:compile-flags '("--r6rs")))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://gitlab.com/joolean/r6rs-protobuf/")
(synopsis "Scheme implementation of Protocol Buffers")
(description
(delete-file-recursively "docs")
#t))
(add-after 'install 'install-info-documentation
- (lambda* (#:key outputs #:allow-other-keys)
+ (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 (string-append (assoc-ref %build-inputs "texinfo")
- "/bin/makeinfo")))
+ (makeinfo (search-input-file inputs
+ "/bin/makeinfo")))
(invoke makeinfo "guile-shapefile.texi" "-o" info)
#t))))))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("texinfo" ,texinfo)))
+ (list texinfo))
(home-page "https://github.com/HugoNikanor/guile-shapefile")
(synopsis "Parse shapefiles in Guile")
(description
(define-public guile-drmaa
(package
(name "guile-drmaa")
- (version "0.1.0")
+ (version "0.1.1")
(source
(origin
(method git-fetch)
(file-name (git-file-name name version))
(sha256
(base32
- "1m2x62n3x5hi5vnsvv2zgqhgpzrfq7r5095fzzjd1aaybi9i9igg"))))
+ "1pail39f3iwllcdma4pk4sxsaypplgb5zjyvjwqf5hdv8s3y211x"))))
(build-system gnu-build-system)
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)
- ("sed" ,sed)))
+ (list autoconf automake pkg-config texinfo sed))
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(propagated-inputs
- `(("guile-bytestructures" ,guile-bytestructures)
- ("nyacc" ,nyacc)))
+ (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
(license license:gpl3+)))
(define-public guile-libyaml
- (let ((commit "f5d33a6880e96571d3cb079ed7755ffc156cac46")
- (revision "1"))
+ (let ((commit "2bdacb72a65ab63264b2edc9dac9692df7ec9b3e")
+ (revision "2"))
(package
(name "guile-libyaml")
(version (git-version "0" revision commit))
(file-name (git-file-name name version))
(sha256
(base32
- "12x91983fh1j39zy7kbk19acc1rqdh8515ddx1mh7l26j04k9wgq"))))
+ "1bssby1ri1vjll2rvi8b33xr2ghwjyxsd4yc15najj3h8n2ss87i"))))
(build-system gnu-build-system)
(arguments
`(#:modules (((guix build guile-build-system)
(delete 'configure)
(add-after 'unpack 'remove-unused-files
(lambda* (#:key inputs #:allow-other-keys)
- (for-each delete-file
- '("guix.scm" "demo1.yml" "demo1.scm"
- "yaml/libyaml.scm"
- ;; This file is mismatched with the generated FFI code.
- "yaml/ffi-help-rt.scm"))
- (copy-file (string-append (assoc-ref inputs "nyacc")
- "/share/guile/site/3.0/system/ffi-help-rt.scm")
- "yaml/ffi-help-rt.scm")
- (substitute* "yaml/ffi-help-rt.scm"
- (("system ffi-help-rt") "yaml ffi-help-rt"))
- #true))
+ (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"
- (("system ffi-help-rt") "yaml ffi-help-rt")
(("dynamic-link \"libyaml\"")
(format #false "dynamic-link \"~a/lib/libyaml\""
- (assoc-ref inputs "libyaml"))))
- #true))
+ (assoc-ref inputs "libyaml"))))))
(replace 'build
(assoc-ref guile:%standard-phases 'build))
(delete 'install))))
(inputs
- `(("guile" ,guile-3.0)
- ("libyaml" ,libyaml)))
+ (list guile-3.0 libyaml))
(propagated-inputs
- `(("guile-bytestructures" ,guile-bytestructures)))
- (native-inputs
- `(("nyacc" ,nyacc)))
+ (list guile-bytestructures nyacc))
(home-page "https://github.com/mwette/guile-libyaml")
(synopsis "Guile wrapper for libyaml")
(description
(build-system cmake-build-system)
(arguments `(#:tests? #f))
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-2.2)))
+ (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
(build-system gnu-build-system)
(arguments `())
(native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-3.0)))
+ (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
"03mwi1l3354x52nar0zwhcm0x29yai9xjln4p4gbchwvx5dsr6fb"))))
(build-system gnu-build-system)
(native-inputs
- `(("pkg-config" ,pkg-config)))
+ (list pkg-config))
(inputs
- `(("guile" ,guile-3.0)))
+ (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
"118d84p443w7hrslv8hjyhgws631ia08mggiyklkmk0b9plfdsvz"))))
(build-system guile-build-system)
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(home-page "https://notabug.org/ZelphirKaltstahl/guile-fslib")
(synopsis "Helper functions for working with locations in file systems")
(description
(define-public guile-netlink
(package
(name "guile-netlink")
- (version "1.0.1")
+ (version "1.1.1")
(source
(origin
(method git-fetch)
(file-name (git-file-name name version))
(sha256
(base32
- "03zmsha2d7whlwb52gna83jdas9bqi18rq3sss7kkicv814qb35g"))))
+ "0jcl6mzqy04if5drflmygmggbgzsxa42mlmskqb3cfqmksq0zj0y"))))
(build-system gnu-build-system)
- (arguments
- `(#:tests? #f)); no tests
(inputs
- `(("guile" ,guile-3.0)))
+ (list guile-3.0))
(native-inputs
- `(("automake" ,automake)
- ("autoconf" ,autoconf)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
+ (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
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)))))