gnu: guile-ncurses: Build with Guile 3.0.
[jackhill/guix/guix.git] / gnu / packages / guile-xyz.scm
CommitLineData
0791437f 1;;; GNU Guix --- Functional package management for GNU
f918a8d9 2;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
0791437f
RW
3;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
4;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org>
5;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
195e1c1b 6;;; Copyright © 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
0791437f 7;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com>
a52aa7fd 8;;; Copyright © 2016, 2019, 2020 Eraim Flashner <efraim@flashner.co.il>
0791437f
RW
9;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
10;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
11;;; Copyright © 2016 Amirouche <amirouche@hypermove.net>
bdf2dd79 12;;; Copyright © 2016, 2019 Jan Nieuwenhuizen <janneke@gnu.org>
0791437f
RW
13;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
14;;; Copyright © 2017 David Thompson <davet@gnu.org>
f6145358 15;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
0791437f 16;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
47956fa0 17;;; Copyright © 2017 ng0 <ng0@n0.is>
0791437f
RW
18;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
19;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
69bb61f1 20;;; Copyright © 2018, 2019, 2020 Arun Isaac <arunisaac@systemreboot.net>
0791437f
RW
21;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
22;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
cd81199c 23;;; Copyright © 2019 swedebugia <swedebugia@riseup.net>
be789065 24;;; Copyright © 2019, 2020 Amar Singh <nly@disroot.org>
f9ec89f4 25;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
3c566eba 26;;; Copyright © 2019, 2020 Martin Becze <mjbecze@riseup.net>
8ffc20ef 27;;; Copyright © 2020 Evan Straw <evan.straw99@gmail.com>
0791437f
RW
28;;;
29;;; This file is part of GNU Guix.
30;;;
31;;; GNU Guix is free software; you can redistribute it and/or modify it
32;;; under the terms of the GNU General Public License as published by
33;;; the Free Software Foundation; either version 3 of the License, or (at
34;;; your option) any later version.
35;;;
36;;; GNU Guix is distributed in the hope that it will be useful, but
37;;; WITHOUT ANY WARRANTY; without even the implied warranty of
38;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
39;;; GNU General Public License for more details.
40;;;
41;;; You should have received a copy of the GNU General Public License
42;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
43
44(define-module (gnu packages guile-xyz)
45 #:use-module ((guix licenses) #:prefix license:)
46 #:use-module (gnu packages)
7ff157c1 47 #:use-module (gnu packages algebra)
0791437f
RW
48 #:use-module (gnu packages aspell)
49 #:use-module (gnu packages autotools)
50 #:use-module (gnu packages base)
51 #:use-module (gnu packages bash)
52 #:use-module (gnu packages compression)
406ef442 53 #:use-module (gnu packages databases)
0791437f 54 #:use-module (gnu packages disk)
15218d4e 55 #:use-module (gnu packages emacs)
5531782d 56 #:use-module (gnu packages emacs-xyz)
0791437f
RW
57 #:use-module (gnu packages gawk)
58 #:use-module (gnu packages gettext)
59 #:use-module (gnu packages gl)
bdf2dd79 60 #:use-module (gnu packages glib)
5531782d 61 #:use-module (gnu packages gnome)
e8c2da41 62 #:use-module (gnu packages gnupg)
0791437f 63 #:use-module (gnu packages gperf)
bdf2dd79 64 #:use-module (gnu packages gtk)
0791437f
RW
65 #:use-module (gnu packages guile)
66 #:use-module (gnu packages hurd)
67 #:use-module (gnu packages image)
d1a3a8e1 68 #:use-module (gnu packages imagemagick)
0791437f
RW
69 #:use-module (gnu packages libffi)
70 #:use-module (gnu packages libunistring)
71 #:use-module (gnu packages linux)
72 #:use-module (gnu packages man)
73 #:use-module (gnu packages maths)
74 #:use-module (gnu packages multiprecision)
75 #:use-module (gnu packages ncurses)
76 #:use-module (gnu packages networking)
f0de9544 77 #:use-module (gnu packages noweb)
1a37fd1e 78 #:use-module (gnu packages nss)
e8c2da41 79 #:use-module (gnu packages password-utils)
406ef442 80 #:use-module (gnu packages perl)
0791437f
RW
81 #:use-module (gnu packages pkg-config)
82 #:use-module (gnu packages python)
83 #:use-module (gnu packages readline)
84 #:use-module (gnu packages sdl)
69bb61f1 85 #:use-module (gnu packages search)
0791437f
RW
86 #:use-module (gnu packages slang)
87 #:use-module (gnu packages sqlite)
69bb61f1 88 #:use-module (gnu packages swig)
f0de9544 89 #:use-module (gnu packages tex)
0791437f
RW
90 #:use-module (gnu packages texinfo)
91 #:use-module (gnu packages tls)
92 #:use-module (gnu packages version-control)
bdf2dd79 93 #:use-module (gnu packages webkit)
0791437f
RW
94 #:use-module (gnu packages xdisorg)
95 #:use-module (gnu packages xorg)
96 #:use-module (guix packages)
97 #:use-module (guix download)
98 #:use-module (guix git-download)
dec4b3aa 99 #:use-module (guix hg-download)
0791437f
RW
100 #:use-module (guix build-system gnu)
101 #:use-module (guix build-system guile)
102 #:use-module (guix utils)
103 #:use-module (ice-9 match)
104 #:use-module ((srfi srfi-1) #:select (alist-delete)))
105
106(define-public artanis
1a37fd1e
RW
107 (package
108 (name "artanis")
109 (version "0.4.1")
110 (source (origin
111 (method url-fetch)
112 (uri (string-append "mirror://gnu/artanis/artanis-"
113 version ".tar.gz"))
114 (sha256
115 (base32
116 "0nnmdfx5xwcc3kck64var7msz7g3qk817d7bv9l159nkmic0v9w4"))
117 (modules '((guix build utils)))
118 (snippet
119 '(begin
120 ;; Unbundle guile-redis and guile-json
121 (delete-file-recursively "artanis/third-party/json.scm")
122 (delete-file-recursively "artanis/third-party/json")
123 (delete-file-recursively "artanis/third-party/redis.scm")
124 (delete-file-recursively "artanis/third-party/redis")
125 (substitute* '("artanis/artanis.scm"
126 "artanis/lpc.scm"
127 "artanis/oht.scm")
128 (("(#:use-module \\()artanis third-party (json\\))" _
129 use-module json)
130 (string-append use-module json)))
131 (substitute* '("artanis/lpc.scm"
132 "artanis/session.scm")
133 (("(#:use-module \\()artanis third-party (redis\\))" _
134 use-module redis)
135 (string-append use-module redis)))
136 (substitute* "artanis/oht.scm"
137 (("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)"
138 _ pre json-string post)
139 (string-append pre
140 "scm" json-string
141 post)))
142 (substitute* "artanis/artanis.scm"
143 (("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
144 ""))
145 #t))))
146 (build-system gnu-build-system)
147 (inputs
148 `(("guile" ,guile-2.2)
149 ("nss" ,nss)))
150 ;; FIXME the bundled csv contains one more exported procedure
151 ;; (sxml->csv-string) than guile-csv. The author is maintainer of both
152 ;; projects.
153 ;; TODO: Add guile-dbi and guile-dbd optional dependencies.
154 (propagated-inputs
155 `(("guile-json" ,guile-json-1)
a7a8337b 156 ("guile-readline" ,guile2.2-readline)
1a37fd1e
RW
157 ("guile-redis" ,guile-redis)))
158 (native-inputs
159 `(("bash" ,bash) ;for the `source' builtin
160 ("pkgconfig" ,pkg-config)
161 ("util-linux" ,util-linux))) ;for the `script' command
162 (arguments
163 '(#:make-flags
164 ;; TODO: The documentation must be built with the `docs' target.
165 (let* ((out (assoc-ref %outputs "out"))
166 (scm (string-append out "/share/guile/site/2.2"))
167 (go (string-append out "/lib/guile/2.2/site-ccache")))
168 ;; Don't use (%site-dir) for site paths.
169 (list (string-append "MOD_PATH=" scm)
170 (string-append "MOD_COMPILED_PATH=" go)))
171 #:test-target "test"
172 #:phases
173 (modify-phases %standard-phases
174 (add-after 'unpack 'patch-site-dir
175 (lambda* (#:key outputs #:allow-other-keys)
176 (substitute* "artanis/commands/help.scm"
177 (("\\(%site-dir\\)")
178 (string-append "\""
179 (assoc-ref outputs "out")
180 "/share/guile/site/2.2\"")))))
181 (add-after 'unpack 'patch-reference-to-libnss
182 (lambda* (#:key inputs #:allow-other-keys)
183 (substitute* "artanis/security/nss.scm"
184 (("ffi-binding \"libnss3\"")
185 (string-append
186 "ffi-binding \""
187 (assoc-ref inputs "nss") "/lib/nss/libnss3.so"
188 "\"")))
189 #t))
190 (add-before 'install 'substitute-root-dir
191 (lambda* (#:key outputs #:allow-other-keys)
192 (let ((out (assoc-ref outputs "out")))
193 (substitute* "Makefile" ;ignore the execution of bash.bashrc
194 ((" /etc/bash.bashrc") " /dev/null"))
195 (substitute* "Makefile" ;set the root of config files to OUT
196 ((" /etc") (string-append " " out "/etc")))
197 (mkdir-p (string-append out "/bin")) ;for the `art' executable
198 #t)))
199 (add-after 'install 'wrap-art
200 (lambda* (#:key inputs outputs #:allow-other-keys)
201 (let* ((out (assoc-ref outputs "out"))
202 (bin (string-append out "/bin"))
203 (scm (string-append out "/share/guile/site/2.2"))
204 (go (string-append out "/lib/guile/2.2/site-ccache")))
205 (wrap-program (string-append bin "/art")
206 `("GUILE_LOAD_PATH" ":" prefix
207 (,scm ,(getenv "GUILE_LOAD_PATH")))
208 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
209 (,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
210 #t))))))
211 (synopsis "Web application framework written in Guile")
212 (description "GNU Artanis is a web application framework written in Guile
0791437f
RW
213Scheme. A web application framework (WAF) is a software framework that is
214designed to support the development of dynamic websites, web applications, web
215services and web resources. The framework aims to alleviate the overhead
216associated with common activities performed in web development. Artanis
217provides several tools for web development: database access, templating
218frameworks, session management, URL-remapping for RESTful, page caching, and
219more.")
1a37fd1e
RW
220 (home-page "https://www.gnu.org/software/artanis/")
221 (license (list license:gpl3+ license:lgpl3+)))) ;dual license
0791437f
RW
222
223;; There has not been any release yet.
224(define-public guildhall
225 (let ((commit "2fe2cc539f4b811bbcd69e58738db03eb5a2b778")
226 (revision "1"))
227 (package
228 (name "guildhall")
229 (version (string-append "0-" revision "." (string-take commit 9)))
230 (source (origin
231 (method git-fetch)
232 (uri (git-reference
233 (url "https://github.com/ijp/guildhall.git")
234 (commit commit)))
235 (file-name (string-append name "-" version "-checkout"))
236 (sha256
237 (base32
238 "115bym7bg66h3gs399yb2vkzc2ygriaqsn4zbrg8f054mgy8wzn1"))))
239 (build-system gnu-build-system)
240 (arguments
241 `(#:phases
242 (modify-phases %standard-phases
243 ;; Tests fail without this fix because they try to load the bash
244 ;; executable as a Scheme file. See bug report at
245 ;; https://github.com/ijp/guildhall/issues/22
246 (add-after 'unpack 'fix-bug-22
247 (lambda _
248 (substitute* "Makefile.am"
249 (("TESTS_ENVIRONMENT=.*")
250 "AM_TESTS_ENVIRONMENT=srcdir=$(abs_top_srcdir)/tests/
251TEST_EXTENSIONS = .scm
252SCM_LOG_COMPILER= $(top_builddir)/env $(GUILE)
253AM_SCM_LOG_FLAGS = --no-auto-compile -s")
254 ;; FIXME: one of the database tests fails for unknown
255 ;; reasons. It does not fail when run outside of Guix.
256 (("tests/database.scm") ""))
257 #t)))))
258 (inputs
259 `(("guile" ,guile-2.0)))
260 (native-inputs
261 `(("zip" ,zip) ; for tests
262 ("autoconf" ,autoconf)
263 ("automake" ,automake)
264 ("texinfo" ,texinfo)))
265 (synopsis "Package manager for Guile")
266 (description
267 "Guildhall is a package manager written for Guile Scheme. A guild is
268an association of independent craftspeople. A guildhall is where they meet.
269This Guildhall aims to make a virtual space for Guile wizards and journeyfolk
270to share code.
271
272On a practical level, Guildhall lets you share Scheme modules and programs
273over the internet, and install code that has been shared by others. Guildhall
274can handle dependencies, so when a program requires several libraries, and
275each of those has further dependencies, all of the prerequisites for the
276program can be installed in one go.")
277 (home-page "https://github.com/ijp/guildhall")
278 (license license:gpl3+))))
279
280(define-public guile-aspell
281 (package
282 (name "guile-aspell")
283 (version "0.4")
284 (source (origin
285 (method url-fetch)
286 (uri (string-append
287 "http://lonelycactus.com/tarball/guile_aspell-"
288 version ".tar.gz"))
289 (sha256
290 (base32
291 "0vpk5xj9m9qc702z3khmkwhgpb949qbsyz8kw2qycda6qnxk0077"))))
292 (build-system gnu-build-system)
293 (arguments
294 '(#:phases (modify-phases %standard-phases
295 (add-before 'configure 'set-guilesitedir
296 (lambda _
297 (substitute* "Makefile.in"
298 (("^guilesitedir =.*$")
299 "guilesitedir = \
300$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
301 #t))
302 (add-before 'build 'set-libaspell-file-name
303 (lambda* (#:key inputs #:allow-other-keys)
304 (let ((aspell (assoc-ref inputs "aspell")))
305 (substitute* "aspell.scm"
306 (("\"libaspell\\.so\"")
307 (string-append "\"" aspell
308 "/lib/libaspell\"")))
309 #t))))))
310 (native-inputs `(("pkg-config" ,pkg-config)))
311 (inputs `(("guile" ,guile-2.2)
312 ("aspell" ,aspell)))
313 (home-page "https://github.com/spk121/guile-aspell")
314 (synopsis "Spell-checking from Guile")
315 (description
316 "guile-aspell is a Guile Scheme library for comparing a string against a
317dictionary and suggesting spelling corrections.")
318 (license license:gpl3+)))
319
320(define-public guile-bash
321 ;; This project is currently retired. It was initially announced here:
322 ;; <https://lists.gnu.org/archive/html/guile-user/2015-02/msg00003.html>.
323 (let ((commit "1eabc563ca5692b3e08d84f1f0e6fd2283284469")
324 (revision "0"))
325 (package
326 (name "guile-bash")
327 (version (string-append "0.1.6-" revision "." (string-take commit 7)))
328 (home-page
329 "https://anonscm.debian.org/cgit/users/kaction-guest/retired/dev.guile-bash.git")
330 (source (origin
331 (method git-fetch)
332 (uri (git-reference
333 (commit commit)
334 (url home-page)))
335 (sha256
336 (base32
337 "097vny990wp2qpjij6a5a5gwc6fxzg5wk56inhy18iki5v6pif1p"))
338 (file-name (string-append name "-" version "-checkout"))))
339 (build-system gnu-build-system)
340 (arguments
341 '(#:configure-flags
342 ;; Add -I to match 'bash.pc' of Bash 4.4.
343 (list (string-append "CPPFLAGS=-I"
344 (assoc-ref %build-inputs "bash:include")
345 "/include/bash/include")
346
347 ;; The '.a' file is useless.
348 "--disable-static"
349
350 ;; Install 'lib/bash' as Bash 4.4 expects.
351 (string-append "--libdir=" (assoc-ref %outputs "out")
352 "/lib/bash"))))
353 (native-inputs `(("pkg-config" ,pkg-config)
354 ("autoconf" ,autoconf-wrapper)
355 ("automake" ,automake)
356 ("libtool" ,libtool)
357 ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
358 ("gettext" ,gettext-minimal)
359
360 ;; Bash with loadable module support, for the test
361 ;; suite.
362 ("bash-full" ,bash)))
363 (inputs `(("guile" ,guile-2.0)
364 ("bash:include" ,bash "include")))
365 (synopsis "Extend Bash using Guile")
366 (description
367 "Guile-Bash provides a shared library and set of Guile modules,
368allowing you to extend Bash in Scheme. Scheme interfaces allow you to access
369the following aspects of Bash:
370
371@itemize
372@item aliases;
373@item setting and getting Bash variables;
374@item creating dynamic variables;
375@item creating Bash functions with a Scheme implementation;
376@item reader macro for output capturing;
377@item reader macro for evaluating raw Bash commands.
378@end itemize
379
380To enable it, run:
381
382@example
383enable -f ~/.guix-profile/lib/bash/libguile-bash.so scm
384@end example
385
386and then run @command{scm example.scm}.")
387 (license license:gpl3+))))
388
389(define-public guile-8sync
390 (package
391 (name "guile-8sync")
392 (version "0.4.2")
393 (source (origin
394 (method url-fetch)
395 (uri (string-append "mirror://gnu/8sync/8sync-" version
396 ".tar.gz"))
397 (sha256
398 (base32
399 "031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
400 (build-system gnu-build-system)
401 (native-inputs `(("autoconf" ,autoconf)
402 ("automake" ,automake)
403 ("guile" ,guile-2.2)
404 ("pkg-config" ,pkg-config)
405 ("texinfo" ,texinfo)))
406 (arguments
407 `(#:phases (modify-phases %standard-phases
408 (add-before 'configure 'setenv
409 (lambda _
410 ;; quiet warnings
411 (setenv "GUILE_AUTO_COMPILE" "0")
412 #t)))))
413 (home-page "https://gnu.org/s/8sync/")
414 (synopsis "Asynchronous actor model library for Guile")
415 (description
416 "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
417library for GNU Guile based on the actor model.
418
419Note that 8sync is only available for Guile 2.2.")
eee4173c 420 (properties '((upstream-name . "8sync")))
0791437f
RW
421 (license license:lgpl3+)))
422
423(define-public guile-daemon
424 (package
425 (name "guile-daemon")
f975f82d 426 (version "0.1.3")
0791437f
RW
427 (source (origin
428 (method url-fetch)
429 (uri (string-append "https://github.com/alezost/" name
430 "/releases/download/v" version
431 "/" name "-" version ".tar.gz"))
432 (sha256
433 (base32
f975f82d 434 "08gaqrgjlly9k5si72vvpbr4xhq5v52l5ma5y6a7spid5dd057cy"))))
0791437f
RW
435 (build-system gnu-build-system)
436 (native-inputs
437 `(("pkg-config" ,pkg-config)))
438 (inputs
439 `(("guile" ,guile-2.2)))
440 (home-page "https://github.com/alezost/guile-daemon")
441 (synopsis "Evaluate code in a running Guile process")
442 (description
443 "Guile-Daemon is a small Guile program that loads your initial
444configuration file, and then reads and evaluates Guile expressions that
445you send to a FIFO file.")
446 (license license:gpl3+)))
447
448(define-public guile-dsv
449 (package
450 (name "guile-dsv")
451 (version "0.2.1")
452 (source (origin
453 (method git-fetch)
454 (uri (git-reference
455 (url "https://github.com/artyom-poptsov/guile-dsv")
456 (commit "bdc5267d007478abc20ea96d7c459b7dd9560b3d")))
457 (file-name (string-append name "-" version "-checkout"))
458 (sha256
459 (base32
460 "1irw6mz8998nwyhzrw9g94jcz60b9zljgqfmipaz1ybn8579qjx0"))))
461 (build-system gnu-build-system)
462 (native-inputs
463 `(("autoconf" ,autoconf)
464 ("automake" ,automake)
465 ("pkg-config" ,pkg-config)
466 ("texinfo" ,texinfo)))
467 (inputs `(("guile" ,guile-2.2)))
468 (propagated-inputs `(("guile-lib" ,guile-lib)))
469 (arguments
470 '(#:phases (modify-phases %standard-phases
471 (add-before 'configure 'set-guilesitedir
472 (lambda _
473 (substitute* "Makefile.in"
474 (("^guilesitedir =.*$")
475 "guilesitedir = \
476$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
477 (substitute* "modules/Makefile.in"
478 (("^guilesitedir =.*$")
479 "guilesitedir = \
480$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
481 (substitute* "modules/dsv/Makefile.in"
482 (("^guilesitedir =.*$")
483 "guilesitedir = \
484$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
485 #t)))))
486 (home-page "https://github.com/artyom-poptsov/guile-dsv")
487 (synopsis "DSV module for Guile")
488 (description
489 "Guile-DSV is a GNU Guile module for working with the
490delimiter-separated values (DSV) data format. Guile-DSV supports the
491Unix-style DSV format and RFC 4180 format.")
492 (license license:gpl3+)))
493
494(define-public guile-fibers
495 (package
496 (name "guile-fibers")
497 (version "1.0.0")
498 (source (origin
499 (method url-fetch)
500 (uri (string-append "https://wingolog.org/pub/fibers/fibers-"
501 version ".tar.gz"))
502 (sha256
503 (base32
9e016129
LC
504 "0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0"))
505 (modules '((guix build utils)))
506 (snippet
507 '(begin
508 ;; Allow builds with Guile 3.0.
509 (substitute* "configure"
510 (("search=\"2\\.2\"")
511 "search=\"3.0 2.2\""))
512
513 ;; Explicitly include system headers rather than relying on
514 ;; <libguile.h> to do it for us.
515 (substitute* "epoll.c"
516 (("#include.*libguile\\.h.*$" all)
517 (string-append "#include <unistd.h>\n"
518 "#include <string.h>\n"
519 all "\n")))
520
521 ;; Import (ice-9 threads) for 'current-processor-count'.
522 (substitute* "tests/channels.scm"
523 (("#:use-module \\(fibers\\)")
524 (string-append "#:use-module (fibers)\n"
525 "#:use-module (ice-9 threads)\n")))
526 #t))))
0791437f
RW
527 (build-system gnu-build-system)
528 (arguments
b6bee63b
LC
529 '(;; The code uses 'scm_t_uint64' et al., which are deprecated in 3.0.
530 #:configure-flags '("CFLAGS=-Wno-error=deprecated-declarations")
531 #:phases (modify-phases %standard-phases
0791437f
RW
532 (add-after 'install 'mode-guile-objects
533 (lambda* (#:key outputs #:allow-other-keys)
534 ;; .go files are installed to "lib/guile/X.Y/cache".
535 ;; This phase moves them to "…/site-ccache".
536 (let* ((out (assoc-ref outputs "out"))
537 (lib (string-append out "/lib/guile"))
538 (old (car (find-files lib "^ccache$"
539 #:directories? #t)))
540 (new (string-append (dirname old)
541 "/site-ccache")))
542 (rename-file old new)
543 #t))))))
544 (native-inputs
545 `(("texinfo" ,texinfo)
546 ("pkg-config" ,pkg-config)))
547 (inputs
b6bee63b 548 `(("guile" ,guile-3.0)))
0791437f
RW
549 (synopsis "Lightweight concurrency facility for Guile")
550 (description
551 "Fibers is a Guile library that implements a a lightweight concurrency
552facility, inspired by systems like Concurrent ML, Go, and Erlang. A fiber is
553like a \"goroutine\" from the Go language: a lightweight thread-like
554abstraction. Systems built with Fibers can scale up to millions of concurrent
555fibers, tens of thousands of concurrent socket connections, and many parallel
556cores. The Fibers library also provides Concurrent ML-like channels for
557communication between fibers.
558
559Note that Fibers makes use of some Guile 2.1/2.2-specific features and
560is not available for Guile 2.0.")
561 (home-page "https://github.com/wingo/fibers")
562 (license license:lgpl3+)))
563
b6bee63b 564(define-public guile2.0-fibers
9e016129
LC
565 (package
566 (inherit guile-fibers)
b6bee63b
LC
567 (name "guile2.2-fibers")
568 (inputs `(("guile" ,guile-2.2)))))
569
570(define-public guile3.0-fibers
571 (deprecated-package "guile3.0-fibers" guile-fibers))
9e016129 572
0791437f
RW
573(define-public guile-syntax-highlight
574 (package
575 (name "guile-syntax-highlight")
576 (version "0.1")
577 (source (origin
578 (method url-fetch)
579 (uri (string-append "https://files.dthompson.us/"
580 "guile-syntax-highlight/"
581 "guile-syntax-highlight-"
582 version ".tar.gz"))
583 (sha256
584 (base32
fb8a77f4
LC
585 "1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi"))
586 (modules '((guix build utils)))
587 (snippet
588 '(begin
589 ;; Allow builds with Guile 3.0.
590 (substitute* "configure"
591 (("2\\.2 2\\.0")
592 "3.0 2.2 2.0"))
593 #t))))
0791437f
RW
594 (build-system gnu-build-system)
595 (native-inputs
596 `(("pkg-config" ,pkg-config)))
597 (inputs
b6bee63b 598 `(("guile" ,guile-3.0)))
0791437f
RW
599 (synopsis "General-purpose syntax highlighter for GNU Guile")
600 (description "Guile-syntax-highlight is a general-purpose syntax
601highlighting library for GNU Guile. It can parse code written in various
602programming languages into a simple s-expression that can be converted to
603HTML (via SXML) or any other format for rendering.")
02e052ba 604 (home-page "https://dthompson.us/projects/guile-syntax-highlight.html")
0791437f
RW
605 (license license:lgpl3+)))
606
b6bee63b 607(define-public guile2.2-syntax-highlight
fb8a77f4
LC
608 (package
609 (inherit guile-syntax-highlight)
b6bee63b
LC
610 (name "guile2.2-syntax-highlight")
611 (inputs `(("guile" ,guile-2.2)))))
612
613(define-public guile3.0-syntax-highlight
614 (deprecated-package "guile3.0-syntax-highlight" guile-syntax-highlight))
fb8a77f4 615
0791437f
RW
616(define-public guile-sjson
617 (package
618 (name "guile-sjson")
619 (version "0.2.1")
620 (source (origin
621 (method url-fetch)
622 (uri (string-append "https://dustycloud.org/misc/sjson-" version
623 ".tar.gz"))
624 (sha256
625 (base32
eef54583
RW
626 "1mzmapln79vv10qxaggz9qwcdbag3jnrj19xx8bgkmxss8h03sv3"))
627 (modules '((guix build utils)))
628 (snippet
629 '(begin
630 ;; Allow builds with Guile 3.0.
631 (substitute* "configure"
632 (("2\\.2 2\\.0")
633 "3.0 2.2 2.0"))
634 #t))))
0791437f
RW
635 (build-system gnu-build-system)
636 (native-inputs
637 `(("autoconf" ,autoconf)
638 ("automake" ,automake)
639 ("pkg-config" ,pkg-config)))
640 (inputs
eef54583 641 `(("guile" ,guile-3.0)))
0791437f
RW
642 (home-page "https://gitlab.com/dustyweb/guile-sjson")
643 (synopsis "S-expression based json reader/writer for Guile")
644 (description "guile-sjson is a json reader/writer for Guile.
645It has a nice, simple s-expression based syntax.")
646 (license license:lgpl3+)))
647
eef54583
RW
648(define-public guile2.2-sjson
649 (package
650 (inherit guile-sjson)
651 (name "guile2.2-sjson")
652 (inputs `(("guile" ,guile-2.2)))))
653
61dafdc0
CB
654(define-public guile-squee
655 (let ((commit "a85902a92bf6f58a1d35fd974a01ade163deda8d")
656 (revision "0"))
657 (package
658 (name "guile-squee")
659 (version (string-append "0-" revision "." (string-take commit 7)))
660 (source (origin
661 (method git-fetch)
662 (uri (git-reference
663 (url "https://notabug.org/cwebber/guile-squee.git")
664 (commit commit)))
665 (file-name (git-file-name name version))
666 (sha256
667 (base32
668 "0p1lpsp4kx57j3ai1dkxilm4ziavzzx8wbbc42m3hpziq0a7qz5z"))))
669 (build-system guile-build-system)
670 (arguments
671 '(#:phases
672 (modify-phases %standard-phases
673 (add-after 'unpack 'patch
674 (lambda* (#:key inputs #:allow-other-keys)
675 (substitute* "squee.scm"
676 (("dynamic-link \"libpq\"")
677 (string-append
678 "dynamic-link \""
679 (assoc-ref inputs "postgresql") "/lib/libpq.so"
680 "\"")))
681 #t)))))
682 (inputs
683 `(("postgresql" ,postgresql)))
684 (native-inputs
ca03dca5 685 `(("guile" ,guile-3.0)))
61dafdc0
CB
686 (home-page "https://notabug.org/cwebber/guile-squee")
687 (synopsis "Connect to PostgreSQL using Guile")
688 (description
689 "@code{squee} is a Guile library for connecting to PostgreSQL databases
690using Guile's foreign function interface.")
6fd72f70 691 (license license:lgpl3+))))
61dafdc0 692
ca03dca5 693(define-public guile2.2-squee
945a73d8
CB
694 (package
695 (inherit guile-squee)
ca03dca5
LC
696 (name "guile2.2-squee")
697 (native-inputs `(("guile" ,guile-2.2)
cfe35814
CB
698 ,@(alist-delete "guile"
699 (package-native-inputs guile-squee))))))
945a73d8 700
ca03dca5
LC
701(define-public guile3.0-squee
702 (deprecated-package "guile3.0-squee" guile-squee))
703
0791437f
RW
704(define-public guile-colorized
705 (package
706 (name "guile-colorized")
707 (version "0.1")
1340ce28
TGR
708 (source
709 (origin
710 (method git-fetch)
711 (uri (git-reference
55f4282e 712 (url "https://gitlab.com/NalaGinrut/guile-colorized.git")
1340ce28
TGR
713 (commit (string-append "v" version))))
714 (file-name (git-file-name name version))
715 (sha256
716 (base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc"))))
0791437f
RW
717 (build-system guile-build-system)
718 (native-inputs
b6bee63b 719 `(("guile" ,guile-3.0)))
55f4282e 720 (home-page "https://gitlab.com/NalaGinrut/guile-colorized")
0791437f
RW
721 (synopsis "Colorized REPL for Guile")
722 (description
723 "Guile-colorized provides you with a colorized REPL for GNU Guile.")
724 (license license:gpl3+)))
725
b6bee63b 726(define-public guile2.2-colorized
fc870a0d
LC
727 (package
728 (inherit guile-colorized)
b6bee63b
LC
729 (name "guile2.2-colorized")
730 (native-inputs `(("guile" ,guile-2.2)))))
731
732(define-public guile3.0-colorized
733 (deprecated-package "guile3.0-colorized" guile-colorized))
fc870a0d 734
0791437f
RW
735(define-public guile-pfds
736 (package
737 (name "guile-pfds")
738 (version "0.3")
739 (home-page "https://github.com/ijp/pfds")
740 (source (origin
741 (method git-fetch)
742 (uri (git-reference
743 (url home-page)
744 (commit (string-append "v" version))))
745 (sha256
746 (base32
747 "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh"))
748 (file-name (string-append name "-" version "-checkout"))))
749 (build-system guile-build-system)
750 (arguments
751 '(#:source-directory "src"
752 #:phases (modify-phases %standard-phases
b6bee63b
LC
753 (add-after 'unpack 'work-around-guile-bug
754 (lambda _
755 ;; See bug #39210.
756 (substitute* '("fingertrees.sls"
757 "queues/private/condition.sls"
758 "deques/private/condition.sls")
759 (("&assertion") "&violation"))
760 #t))
0791437f
RW
761 (add-after 'unpack 'move-files-around
762 (lambda _
763 ;; Move files under a pfds/ directory to reflect the
764 ;; module hierarchy.
765 (mkdir-p "src/pfds")
766 (for-each (lambda (file)
767 (rename-file file
768 (string-append "src/pfds/"
769 file)))
770 '("bbtrees.sls"
771 "deques"
772 "deques.sls"
773 "dlists.sls"
774 "fingertrees.sls"
775 "hamts.sls"
776 "heaps.sls"
777 "private"
778 "psqs.sls"
779 "queues"
780 "queues.sls"
781 "sequences.sls"
782 "sets.sls"))
783
784 ;; In Guile <= 2.2.4, there's no way to tell 'guild
785 ;; compile' to accept the ".sls" extension. So...
786 (for-each (lambda (file)
787 (rename-file file
788 (string-append
789 (string-drop-right file 4)
790 ".scm")))
791 (find-files "." "\\.sls$"))
792 #t)))))
793 (native-inputs
b6bee63b 794 `(("guile" ,guile-3.0)))
0791437f
RW
795 (synopsis "Purely functional data structures for Guile")
796 (description
797 "This package provides purely functional data structures written in R6RS
798Scheme and compiled for Guile. It has been tested with Racket, Guile 2,
799Vicare Scheme and IronScheme. Right now it contains:
800
801@itemize
802@item queues
803@item deques
804@item bbtrees
805@item sets
806@item dlists
807@item priority search queues (PSQs)
808@item finger trees
809@item sequences
810@item heaps
811@item hash array mapped tries (HAMTs).
812@end itemize\n")
813 (license license:bsd-3)))
814
b6bee63b 815(define-public guile2.2-pfds
77c95ee6
RW
816 (package
817 (inherit guile-pfds)
b6bee63b
LC
818 (name "guile2.2-pfds")
819 (native-inputs `(("guile" ,guile-2.2)))
77c95ee6 820 (arguments
0dd1e277
RW
821 (substitute-keyword-arguments (package-arguments guile-pfds)
822 ((#:phases phases)
823 `(modify-phases ,phases
b6bee63b
LC
824 (delete 'work-around-guile-bug)))))))
825
826(define-public guile3.0-pfds
827 (deprecated-package "guile3.0-pfds" guile-pfds))
77c95ee6 828
0791437f
RW
829(define-public guile-aa-tree
830 (package
831 (name "guile-aa-tree")
832 (version "3.1.1")
833 (source (origin
834 (method url-fetch)
835 (uri (string-append "mirror://savannah/guile-aa-tree/guile-aa-tree-"
836 version ".tar.gz"))
837 (sha256
838 (base32
839 "0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh"))))
840 (build-system guile-build-system)
841 (native-inputs `(("guile" ,guile-2.2)))
842 ;; https://savannah.nongnu.org/projects/guile-aa-tree
843 (home-page "https://qlfiles.net/guile-aa-tree/")
844 (synopsis "AA tree data structure for Guile")
845 (description
846 "This package provides an implementation of @dfn{AA trees}, a
847self-balancing binary tree data structure, for Guile. It ensure @math{O(log
848n)} worst case performance for core operations. The module provides
849non-mutating insert, delete, and search operations, with support for
850convenient nested tree operations.")
851 (license license:gpl3+)))
852
853(define-public guile-simple-zmq
854 (let ((commit "68bedb6679716214fb9d3472da57544526f7a618")
855 (revision "3"))
856 (package
857 (name "guile-simple-zmq")
858 (version (git-version "0.0.0" revision commit))
859 (source
860 (origin
861 (method git-fetch)
862 (uri (git-reference
863 (url "https://github.com/jerry40/guile-simple-zmq")
864 (commit commit)))
865 (sha256
866 (base32
867 "1ad3xg69qqviy1f6dnlw0ysmfdbmp1jq65rfqb8nfd8dsrq2syli"))
868 (file-name (git-file-name name version))))
869 (build-system guile-build-system)
870 (arguments
871 `(#:source-directory "src"
872 #:phases (modify-phases %standard-phases
873 (add-after 'unpack 'set-libzmq-file-name
874 (lambda* (#:key inputs #:allow-other-keys)
875 (substitute* "src/simple-zmq.scm"
876 (("\\(dynamic-link \"libzmq\"\\)")
877 (format #f "(dynamic-link \"~a/lib/libzmq.so\")"
878 (assoc-ref inputs "zeromq"))))
879 #t)))))
880 (native-inputs
b6bee63b 881 `(("guile" ,guile-3.0)))
0791437f
RW
882 (inputs
883 `(("zeromq" ,zeromq)))
884 (home-page "https://github.com/jerry40/guile-simple-zmq")
885 (synopsis "Guile wrapper over ZeroMQ library")
886 (description
887 "This package provides a Guile programming interface to the ZeroMQ
888messaging library.")
889 (license license:gpl3+))))
890
b6bee63b 891(define-public guile2.2-simple-zmq
015bb1c8
LC
892 (package
893 (inherit guile-simple-zmq)
b6bee63b
LC
894 (name "guile2.2-simple-zmq")
895 (native-inputs `(("guile" ,guile-2.2)))))
896
897(define-public guile3.0-simple-zmq
898 (deprecated-package "guile3.0-simple-zmq" guile-simple-zmq))
015bb1c8 899
0791437f
RW
900(define-public jupyter-guile-kernel
901 (let ((commit "a7db9245a886e104138474df46c3e88b95cff629")
902 (revision "1"))
903 (package
904 (name "jupyter-guile-kernel")
905 (version (git-version "0.0.0" revision commit))
906 (source
907 (origin
908 (method git-fetch)
909 (uri (git-reference
910 (url "https://github.com/jerry40/guile-kernel")
911 (commit commit)))
f1d4d79f 912 (file-name (git-file-name name version))
0791437f
RW
913 (sha256
914 (base32
915 "0aj04853bqm47ivfcmrgpb7w3wkis847kc7qrwsa5zcn9h38qh2f"))))
916 (build-system guile-build-system)
917 (arguments
918 '(#:phases (modify-phases %standard-phases
919 (add-after 'unpack 'set-openssl-file-name
920 (lambda* (#:key inputs #:allow-other-keys)
921 ;; Record the absolute file name of the 'openssl'
922 ;; command.
923 (substitute* "src/hmac.scm"
924 (("openssl")
925 (string-append (assoc-ref inputs "openssl")
926 "/bin/openssl")))
927 #t))
928
929 ;; XXX: The code uses 'include' to include its own source
930 ;; files, and "-L src" isn't enough in this case.
931 (add-before 'build 'chdir
932 (lambda _ (chdir "src") #t))
933 (add-after 'build 'chdir-back
934 (lambda _ (chdir "..") #t))
935
936 (add-after 'install 'install-kernel
937 (lambda* (#:key inputs outputs #:allow-other-keys)
938 (let* ((out (assoc-ref outputs "out"))
939 (json (assoc-ref inputs "guile-json"))
940 (zmq (assoc-ref inputs "guile-simple-zmq"))
941 (deps (list json zmq))
942 (dir (string-append
943 out "/share/jupyter/kernels/guile"))
944 (effective (target-guile-effective-version)))
945 ;; Install kernel.
946 (install-file "src/kernel.json" dir)
947
948 ;; Fix hard-coded file name in the kernel.
949 (substitute* (string-append dir "/kernel.json")
950 (("/home/.*/guile-jupyter-kernel.scm")
951 (string-append out "/share/guile/site/"
952 (target-guile-effective-version)
953 "/guile-jupyter-kernel.scm"))
954 (("\"guile\"")
955 (string-append "\"" (assoc-ref inputs "guile")
956 "/bin/guile\""))
957 (("-s")
958 ;; Add '-L' and '-C' flags so that the kernel
959 ;; finds its dependencies.
960 (let ((-L (map (lambda (item)
961 (string-append "\"" item
962 "/share/guile/site/"
963 effective "\""))
964 deps))
965 (-C (map (lambda (item)
966 (string-append "\"" item
967 "/lib/guile/"
968 effective
969 "/site-ccache\""))
970 deps)))
971 (string-append "--no-auto-compile\""
972 (string-join -L ", \"-L\", "
973 'prefix)
974 (string-join -C ", \"-C\", "
975 'prefix)
976 ", \"-s"))))
977 #t))))))
978 (inputs
979 `(("openssl" ,openssl)
980 ("guile" ,guile-2.2)
91f55717 981 ("guile-json" ,guile-json-1)
0791437f
RW
982 ("guile-simple-zmq" ,guile-simple-zmq)))
983 (synopsis "Guile kernel for the Jupyter Notebook")
984 (description
985 "This package provides a Guile 2.x kernel for the Jupyter Notebook. It
986allows users to interact with the Guile REPL through Jupyter.")
987 (home-page "https://github.com/jerry40/guile-kernel")
988 (license license:gpl3+))))
989
990(define-public guile-sparql
991 (package
992 (name "guile-sparql")
993 (version "0.0.7")
994 (source (origin
995 (method url-fetch)
996 (uri (string-append
997 "https://github.com/roelj/guile-sparql/releases/download/"
998 version "/guile-sparql-" version ".tar.gz"))
999 (sha256
1000 (base32 "1drnvhsgl0gc5crmb16yyw1j98nkhwwcgssv9vgm36ng43nnzffd"))))
1001 (build-system gnu-build-system)
1002 (arguments `(#:tests? #f)) ; There are no tests.
1003 (native-inputs
1004 `(("pkg-config" ,pkg-config)))
1005 (inputs
1006 `(("guile" ,guile-2.2)))
1007 (home-page "https://github.com/roelj/guile-sparql")
1008 (synopsis "SPARQL module for Guile")
1009 (description "This package provides the functionality to query a SPARQL
1010endpoint. Additionally, it provides an interface to write SPARQL queries
1011using S-expressions.")
1012 (license license:gpl3+)))
1013
1014(define-public guile-debbugs
1015 (package
1016 (name "guile-debbugs")
5144f542 1017 (version "0.0.3")
0791437f
RW
1018 (source (origin
1019 (method url-fetch)
1020 (uri (string-append "mirror://gnu/guile-debbugs/guile-debbugs-"
1021 version ".tar.gz"))
1022 (sha256
1023 (base32
5144f542 1024 "1cc63nw3xdfjrfk8c58r6d5lidmfq5cpqcy32yd5xp81yccprvn9"))))
0791437f 1025 (build-system gnu-build-system)
5144f542
RW
1026 (propagated-inputs
1027 `(("guile-email" ,guile-email)))
0791437f
RW
1028 (native-inputs
1029 `(("guile" ,guile-2.2)
1030 ("pkg-config" ,pkg-config)))
1031 (home-page "https://savannah.gnu.org/projects/guile-debbugs/")
1032 (synopsis "Guile interface to the Debbugs bug tracking service")
1033 (description
1034 "This package provides a Guile library to communicate with a Debbugs bug
1035tracker's SOAP service, such as @url{https://bugs.gnu.org}.")
1036 (license license:gpl3+)))
1037
1038(define-public guile-email
50771f5b
AI
1039 (package
1040 (name "guile-email")
223cb7c6 1041 (version "0.2.2")
50771f5b
AI
1042 (source
1043 (origin
1044 (method url-fetch)
1045 (uri (string-append
db18d87a
AI
1046 "https://guile-email.systemreboot.net/releases/guile-email-"
1047 version ".tar.lz"))
50771f5b
AI
1048 (sha256
1049 (base32
223cb7c6 1050 "1rc8r0fgvflnyq5ckl7ii8sghpsgpkzxa8vskjr1ak2kyar6m35k"))))
50771f5b
AI
1051 (build-system gnu-build-system)
1052 (native-inputs
1053 `(("pkg-config" ,pkg-config)
db18d87a 1054 ("lzip" ,lzip)))
50771f5b 1055 (inputs
ca6c1509 1056 `(("guile" ,guile-3.0)))
db18d87a 1057 (arguments
2c33a849 1058 '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
db18d87a 1059 (home-page "https://guile-email.systemreboot.net")
50771f5b 1060 (synopsis "Guile email parser")
db18d87a
AI
1061 (description "guile-email is a collection of email utilities implemented
1062in pure guile. It supports parsing MIME (Multipurpose Internet Mail
1063Extensions) compliant email messages and reading emails from the mbox
1064format.")
50771f5b 1065 (license license:agpl3+)))
0791437f 1066
ca6c1509 1067(define-public guile2.2-email
63a847cb
CB
1068 (package
1069 (inherit guile-email)
ca6c1509
LC
1070 (name "guile2.2-email")
1071 (inputs `(("guile" ,guile-2.2)
63a847cb
CB
1072 ,@(alist-delete "guile" (package-inputs guile-email))))))
1073
ca6c1509
LC
1074(define-public guile3.0-email
1075 (deprecated-package "guile3.0-email" guile-email))
1076
0791437f 1077(define-public guile-newt
442a11f6
MO
1078 (package
1079 (name "guile-newt")
f52c1f5f 1080 (version "0.0.2")
442a11f6
MO
1081 (source (origin
1082 (method git-fetch)
1083 (uri (git-reference
1084 (url "https://gitlab.com/mothacehe/guile-newt")
1085 (commit version)))
1086 (file-name (git-file-name name version))
1087 (sha256
1088 (base32
f52c1f5f 1089 "1gksd1lzgjjh1p9vczghg8jw995d22hm34kbsiv8rcryirv2xy09"))))
442a11f6
MO
1090 (build-system gnu-build-system)
1091 (arguments
1092 '(#:make-flags
1093 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
1094 (inputs
b6bee63b 1095 `(("guile" ,guile-3.0)
442a11f6
MO
1096 ("newt" ,newt)))
1097 (native-inputs
1098 `(("autoconf" ,autoconf)
1099 ("automake" ,automake)
1100 ("pkg-config" ,pkg-config)))
1101 (synopsis "Guile bindings to Newt")
1102 (description
1103 "This package provides bindings for Newt, a programming library for
0791437f
RW
1104color text mode, widget based user interfaces. The bindings are written in pure
1105Scheme by using Guile’s foreign function interface.")
442a11f6
MO
1106 (home-page "https://gitlab.com/mothacehe/guile-newt")
1107 (license license:gpl3+)))
0791437f 1108
b6bee63b 1109(define-public guile2.2-newt
e7fc7746
LC
1110 (package
1111 (inherit guile-newt)
b6bee63b 1112 (name "guile2.2-newt")
318e1a93 1113 (inputs `(("guile" ,guile-2.2)
e7fc7746
LC
1114 ,@(alist-delete "guile" (package-inputs guile-newt))))))
1115
b6bee63b
LC
1116(define-public guile3.0-newt
1117 (deprecated-package "guile3.0-newt" guile-newt))
1118
0791437f
RW
1119(define-public guile-mastodon
1120 (package
1121 (name "guile-mastodon")
1122 (version "0.0.1")
1123 (source (origin
1124 (method git-fetch)
1125 (uri (git-reference
1126 (url "https://framagit.org/prouby/guile-mastodon.git")
1127 (commit (string-append "v" version))))
1128 (file-name (git-file-name name version))
1129 (sha256
1130 (base32
1131 "1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))))
1132 (build-system gnu-build-system)
1133 (native-inputs
1134 `(("autoconf" ,autoconf)
1135 ("automake" ,automake)
1136 ("pkg-config" ,pkg-config)))
1137 (inputs
1138 `(("guile" ,guile-2.2)
1139 ("gnutls" ,gnutls)
91f55717 1140 ("guile-json" ,guile-json-1)))
0791437f
RW
1141 (home-page "https://framagit.org/prouby/guile-mastodon")
1142 (synopsis "Guile Mastodon REST API module")
1143 (description "This package provides Guile modules to access the
1144@uref{https://docs.joinmastodon.org/api/, REST API of Mastodon}, a federated
1145microblogging service.")
1146 (license license:gpl3+)))
1147
0791437f 1148(define-public guile-parted
dbcd503c
MO
1149 (package
1150 (name "guile-parted")
575032c8 1151 (version "0.0.4")
dbcd503c
MO
1152 (source (origin
1153 (method git-fetch)
1154 (uri (git-reference
1155 (url "https://gitlab.com/mothacehe/guile-parted")
1156 (commit version)))
1157 (file-name (git-file-name name version))
1158 (sha256
1159 (base32
575032c8 1160 "0b7h8psfm9gmmwb65pp5zwzglvwnfmw5j40g09hhf3f7kwxc0mv2"))
f6145358 1161 (modules '((guix build utils)))))
dbcd503c
MO
1162 (build-system gnu-build-system)
1163 (arguments
1164 '(#:make-flags
1165 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
1166 (inputs
b6bee63b 1167 `(("guile" ,guile-3.0)
dbcd503c
MO
1168 ("parted" ,parted)))
1169 (propagated-inputs
1170 `(("guile-bytestructures" ,guile-bytestructures)))
1171 (native-inputs
1172 `(("autoconf" ,autoconf)
1173 ("automake" ,automake)
1174 ("pkg-config" ,pkg-config)))
1175 (synopsis "Guile bindings to GNU Parted")
1176 (description
1177 "This package provides bindings for GNU Parted library, a C library
1178allowing disk partition tables creation and manipulation. The bindings are
0791437f 1179written in pure Scheme by using Guile's foreign function interface.")
dbcd503c
MO
1180 (home-page "https://gitlab.com/mothacehe/guile-parted")
1181 (license license:gpl3+)))
0791437f 1182
b6bee63b 1183(define-public guile2.2-parted
e5b95558
LC
1184 (package
1185 (inherit guile-parted)
b6bee63b 1186 (name "guile2.2-parted")
318e1a93 1187 (inputs `(("guile" ,guile-2.2)
e5b95558
LC
1188 ,@(alist-delete "guile" (package-inputs guile-parted))))
1189 (propagated-inputs
b6bee63b
LC
1190 `(("guile-bytestructures" ,guile2.2-bytestructures)))))
1191
1192(define-public guile3.0-parted
1193 (deprecated-package "guile3.0-parted" guile-parted))
e5b95558 1194
0791437f
RW
1195(define-public guile-xosd
1196 (package
1197 (name "guile-xosd")
1198 (version "0.2.1")
1199 (source (origin
1200 (method url-fetch)
1201 (uri (string-append "https://github.com/alezost/" name
1202 "/releases/download/v" version
1203 "/" name "-" version ".tar.gz"))
1204 (sha256
1205 (base32
1206 "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
1207 (build-system gnu-build-system)
1208 (native-inputs
1209 `(("pkg-config" ,pkg-config)))
1210 (inputs
1211 `(("guile" ,guile-2.2)
1212 ("libx11" ,libx11)
1213 ("libxext" ,libxext)
1214 ("libxinerama" ,libxinerama)
1215 ("xosd" ,xosd)))
1216 (home-page "https://github.com/alezost/guile-xosd")
1217 (synopsis "XOSD bindings for Guile")
1218 (description
1219 "Guile-XOSD provides Guile bindings for @code{libxosd},
1220@uref{http://sourceforge.net/projects/libxosd/, the X On Screen Display
1221library}.")
1222 (license license:gpl3+)))
1223
1224(define-public guile-dbi
1225 (package
1226 (name "guile-dbi")
1227 (version "2.1.6")
1228 (source (origin
1229 (method url-fetch)
1230 (uri (string-append
1231 "http://download.gna.org/guile-dbi/guile-dbi-"
1232 version ".tar.gz"))
1233 (sha256
1234 (base32
1235 "116njrprhgrsv1qm904sp3b02rq01fx639r433d657gyhw3x159n"))))
1236 (build-system gnu-build-system)
1237 (arguments
1238 '(#:configure-flags
1239 (list (string-append
1240 "--with-guile-site-dir=" %output "/share/guile/site/2.2"))
1241 #:make-flags
406ef442
CB
1242 (list (string-append
1243 "LDFLAGS=-Wl,-rpath=" %output "/lib:"
1244 (assoc-ref %build-inputs "guile-dbd-sqlite3") "/lib" ":"
1245 (assoc-ref %build-inputs "guile-dbd-postgresql") "/lib"))
0791437f
RW
1246 #:phases
1247 (modify-phases %standard-phases
1248 (add-after 'install 'patch-extension-path
1249 (lambda* (#:key outputs #:allow-other-keys)
1250 (let* ((out (assoc-ref outputs "out"))
1251 (dbi.scm (string-append
1252 out "/share/guile/site/2.2/dbi/dbi.scm"))
1253 (ext (string-append out "/lib/libguile-dbi")))
1254 (substitute* dbi.scm (("libguile-dbi") ext))
1255 #t))))))
1256 (inputs
406ef442
CB
1257 `(("guile-dbd-sqlite3" ,guile-dbd-sqlite3)
1258 ("guile-dbd-postgresql" ,guile-dbd-postgresql))) ; only shared library, no scheme files
0791437f
RW
1259 (propagated-inputs
1260 `(("guile" ,guile-2.2)))
1261 (synopsis "Guile database abstraction layer")
1262 (home-page "http://home.gna.org/guile-dbi/guile-dbi.html")
1263 (description
1264 "guile-dbi is a library for Guile that provides a convenient interface to
1265SQL databases. Database programming with guile-dbi is generic in that the same
1266programming interface is presented regardless of which database system is used.
1267It currently supports MySQL, Postgres and SQLite3.")
1268 (license license:gpl2+)))
1269
1270(define guile-dbi-bootstrap
1271 (package
1272 (inherit guile-dbi)
1273 (name "guile-dbi-bootstrap")
1274 (inputs '())
1275 (arguments
1276 (substitute-keyword-arguments (package-arguments guile-dbi)
1277 ((#:make-flags _) '(list))))))
1278
1279(define-public guile-dbd-sqlite3
1280 (package
1281 (name "guile-dbd-sqlite3")
1282 (version "2.1.6")
1283 (source (origin
1284 (method url-fetch)
1285 (uri (string-append
1286 "http://download.gna.org/guile-dbi/guile-dbd-sqlite3-"
1287 version ".tar.gz"))
1288 (sha256
1289 (base32
1290 "0rg71jchxd2y8x496s8zmfmikr5g8zxi8zv2ar3f7a23pph92iw2"))))
1291 (build-system gnu-build-system)
1292 (native-inputs
1293 `(("pkg-config" ,pkg-config)
1294 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap))) ; only required for headers
1295 (inputs
1296 `(("sqlite" ,sqlite)
1297 ("zlib" ,(@ (gnu packages compression) zlib))))
1298 (synopsis "Guile DBI driver for SQLite")
1299 (home-page "https://github.com/jkalbhenn/guile-dbd-sqlite3")
1300 (description
1301 "guile-dbi is a library for Guile that provides a convenient interface to
1302SQL databases. This package implements the interface for SQLite.")
1303 (license license:gpl2+)))
1304
406ef442
CB
1305(define-public guile-dbd-postgresql
1306 (let ((commit "e97589b6b018b206c901e4cc24db463407a4036b")
1307 (revision 0))
1308 (package
1309 (name "guile-dbd-postgresql")
1310 (version (string-append
1311 "2.1.6-" (number->string revision) "." (string-take commit 7)))
1312 (source
1313 (origin
1314 (method git-fetch)
1315 (uri (git-reference
1316 (url "https://github.com/opencog/guile-dbi.git")
1317 (commit commit)))
1318 (file-name (git-file-name name version))
1319 (sha256
1320 (base32 "0n1gv9a0kdys10a4qmnrwvg5sydwb03880asri4gqdchcj3fimni"))))
1321 (build-system gnu-build-system)
1322 (arguments
1323 '(#:phases
1324 (modify-phases %standard-phases
1325 (add-after 'unpack 'chdir
1326 (lambda _
1327 ;; The upstream Git repository contains all the code, so change
1328 ;; to the relevant directory.
1329 (chdir "guile-dbd-postgresql")
1330 #t))
1331 (add-after 'chdir 'patch-src/Makefile.am
1332 (lambda* (#:key inputs #:allow-other-keys)
1333 (substitute* "src/Makefile.am"
1334 (("/usr/include")
1335 (string-append (assoc-ref inputs "postgresql") "/include")))
1336 #t))
1337 (add-after 'patch-src/Makefile.am 'patch-src
1338 (lambda _
1339 (substitute* "src/guile-dbd-postgresql.c"
1340 (("postgresql/libpq-fe\\.h") "libpq-fe.h"))
1341 #t)))))
1342 (native-inputs
1343 `(("pkg-config" ,pkg-config)
1344 ("automake" ,automake)
1345 ("autoconf" ,autoconf)
1346 ("perl" ,perl)
1347 ("libtool" ,libtool)
1348 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap)))
1349 (inputs
1350 `(("postgresql" ,postgresql)
1351 ("zlib" ,zlib)))
1352 (synopsis "Guile DBI driver for PostgreSQL")
1353 (home-page
1354 "https://github.com/opencog/guile-dbi/tree/master/guile-dbd-postgresql")
1355 (description
1356 "@code{guile-dbi} is a library for Guile that provides a convenient
1357interface to SQL databases. This package implements the interface for
1358PostgreSQL.")
1359 (license license:gpl2+))))
1360
0791437f
RW
1361(define-public guile-config
1362 (package
1363 (name "guile-config")
91e29547 1364 (version "0.3.1")
0791437f
RW
1365 (source
1366 (origin
1367 (method git-fetch)
1368 (uri (git-reference
1369 (url "https://gitlab.com/a-sassmannshausen/guile-config")
91e29547
AS
1370 (commit (string-append "v" version))))
1371 (file-name (git-file-name name version))
1372 (sha256 (base32
1373 "0gglsqwpw77gvrqcny8irpqfl7qdf2v8n9ggwrswanxalj4vcbvf"))))
0791437f
RW
1374 (build-system gnu-build-system)
1375 (native-inputs
1376 `(("autoconf" ,autoconf)
1377 ("automake" ,automake)
1378 ("pkg-config" ,pkg-config)
1379 ("texinfo" ,texinfo)))
b6bee63b 1380 (inputs `(("guile" ,guile-3.0)))
0791437f
RW
1381 (synopsis
1382 "Guile application configuration parsing library.")
1383 (description
1384 "Guile Config is a library providing a declarative approach to
1385application configuration specification. The library provides clean
1386configuration declaration forms, and processors that take care of:
1387configuration file creation; configuration file parsing; command-line
1388parameter parsing using getopt-long; basic GNU command-line parameter
1389generation (--help, --usage, --version); automatic output generation for the
1390above command-line parameters.")
1391 (home-page
1392 "https://gitlab.com/a-sassmannshausen/guile-config")
1393 (license license:gpl3+)))
1394
b6bee63b 1395(define-public guile2.2-config
0ac6b836
AS
1396 (package
1397 (inherit guile-config)
b6bee63b
LC
1398 (name "guile2.2-config")
1399 (inputs `(("guile" ,guile-2.2)
0ac6b836
AS
1400 ,@(alist-delete "guile" (package-inputs guile-config))))))
1401
b6bee63b
LC
1402(define-public guile3.0-config
1403 (deprecated-package "guile3.0-config" guile-config))
1404
0791437f
RW
1405(define-public guile-hall
1406 (package
1407 (name "guile-hall")
cfc4e498 1408 (version "0.2.1")
0791437f 1409 (source
feb11b08
RW
1410 (origin
1411 (method git-fetch)
1412 (uri (git-reference
1413 (url "https://gitlab.com/a-sassmannshausen/guile-hall")
1414 (commit (string-append "v" version))))
1415 (file-name (git-file-name name version))
1416 (sha256 (base32
cfc4e498 1417 "0dwx5iyg0dmdf64wq0b4w306bapr86jwnw35npgbjq4cqm8qbzqn"))))
0791437f
RW
1418 (build-system gnu-build-system)
1419 (arguments
63bf0afd
AS
1420 `(#:modules
1421 ((ice-9 match)
1422 (ice-9 ftw)
1423 ,@%gnu-build-system-modules)
1424 #:phases
1425 (modify-phases
1426 %standard-phases
1427 (add-after 'install 'hall-wrap-binaries
1428 (lambda* (#:key inputs outputs #:allow-other-keys)
1429 (let* ((compiled-dir
1430 (lambda (out version)
1431 (string-append
1432 out "/lib/guile/" version "/site-ccache")))
1433 (uncompiled-dir
1434 (lambda (out version)
1435 (string-append
1436 out "/share/guile/site"
1437 (if (string-null? version) "" "/") version)))
1438 (dep-path
1439 (lambda (env modules path)
1440 (list env ":" 'prefix
1441 (cons modules
1442 (map (lambda (input)
1443 (string-append
1444 (assoc-ref inputs input)
1445 path))
1446 ,''("guile-config"))))))
1447 (out (assoc-ref outputs "out"))
1448 (bin (string-append out "/bin/"))
1449 (site (uncompiled-dir out "")))
1450 (match (scandir site)
1451 (("." ".." version)
1452 (for-each
1453 (lambda (file)
1454 (wrap-program
1455 (string-append bin file)
1456 (dep-path
1457 "GUILE_LOAD_PATH"
1458 (uncompiled-dir out version)
1459 (uncompiled-dir "" version))
1460 (dep-path
1461 "GUILE_LOAD_COMPILED_PATH"
1462 (compiled-dir out version)
1463 (compiled-dir "" version))))
1464 ,''("hall"))
1465 #t))))))))
0791437f 1466 (native-inputs
63bf0afd
AS
1467 `(("autoconf" ,autoconf)
1468 ("automake" ,automake)
1469 ("pkg-config" ,pkg-config)
1470 ("texinfo" ,texinfo)))
b6bee63b 1471 (inputs `(("guile" ,guile-3.0)))
0791437f 1472 (propagated-inputs
3c3e6620 1473 `(("guile-config" ,guile-config)))
0791437f
RW
1474 (synopsis "Guile project tooling")
1475 (description
3c3e6620
RW
1476 "Hall is a command-line application and a set of Guile libraries that
1477allow you to quickly create and publish Guile projects. It allows you to
1478transparently support the GNU build system, manage a project hierarchy &
1479provides tight coupling to Guix.")
1480 (home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
06085fac 1481 (license license:gpl3+)))
0791437f 1482
b6bee63b 1483(define-public guile2.2-hall
df18ea6f
AS
1484 (package
1485 (inherit guile-hall)
b6bee63b
LC
1486 (name "guile2.2-hall")
1487 (inputs `(("guile" ,guile-2.2)
df18ea6f
AS
1488 ,@(alist-delete "guile" (package-inputs guile-hall))))
1489 (propagated-inputs
b6bee63b 1490 `(("guile-config" ,guile2.2-config)
df18ea6f
AS
1491 ,@(alist-delete "guile-config"
1492 (package-propagated-inputs guile-hall))))))
1493
b6bee63b
LC
1494(define-public guile3.0-hall
1495 (deprecated-package "guile3.0-hall" guile-hall))
1496
0791437f
RW
1497(define-public guile-ics
1498 (package
1499 (name "guile-ics")
1500 (version "0.2.0")
1501 (source (origin
1502 (method git-fetch)
1503 (uri (git-reference
1504 (url "https://github.com/artyom-poptsov/guile-ics")
1505 (commit (string-append "v" version))))
1506 (file-name (string-append name "-" version "-checkout"))
1507 (sha256
1508 (base32
6713589d
LC
1509 "0qjjvadr7gibdq9jvwkmlkb4afsw9n2shfj9phpiadinxk3p4m2g"))
1510 (modules '((guix build utils)))
1511 (snippet
1512 '(begin
1513 ;; Allow builds with Guile 3.0.
1514 (substitute* "configure.ac"
1515 (("^GUILE_PKG.*")
1516 "GUILE_PKG([3.0 2.2 2.0])\n"))
1517 #t))))
0791437f
RW
1518 (build-system gnu-build-system)
1519 (native-inputs
1520 `(("autoconf" ,autoconf-wrapper)
1521 ("automake" ,automake)
1522 ("texinfo" ,texinfo)
1523 ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
1524 ("gettext" ,gettext-minimal)
1525 ("pkg-config" ,pkg-config)))
b6bee63b 1526 (inputs `(("guile" ,guile-3.0) ("which" ,which)))
0791437f
RW
1527 (propagated-inputs `(("guile-lib" ,guile-lib)))
1528 (home-page "https://github.com/artyom-poptsov/guile-ics")
1529 (synopsis "Guile parser library for the iCalendar format")
1530 (description
1531 "Guile-ICS is an iCalendar (RFC5545) format parser library written in
1532pure Scheme. The library can be used to read and write iCalendar data.
1533
1534The library is shipped with documentation in Info format and usage examples.")
1535 (license license:gpl3+)))
1536
b6bee63b 1537(define-public guile2.2-ics
6713589d
LC
1538 (package
1539 (inherit guile-ics)
b6bee63b
LC
1540 (name "guile2.2-ics")
1541 (inputs `(("guile" ,guile-2.2)
6713589d 1542 ,@(alist-delete "guile" (package-inputs guile-ics))))
b6bee63b
LC
1543 (propagated-inputs `(("guile-lib" ,guile2.2-lib)))))
1544
1545(define-public guile3.0-ics
1546 (deprecated-package "guile3.0-ics" guile-ics))
6713589d 1547
0791437f
RW
1548(define-public guile-wisp
1549 (package
1550 (name "guile-wisp")
65610f73 1551 (version "1.0.2")
0791437f
RW
1552 (source (origin
1553 (method url-fetch)
1554 (uri (string-append "https://bitbucket.org/ArneBab/"
1555 "wisp/downloads/wisp-"
1556 version ".tar.gz"))
1557 (sha256
1558 (base32
65610f73 1559 "03pz7pj9jyallynhflp5s7qax8dj1fs8la434wrfgz7g1kgjnvf6"))))
0791437f
RW
1560 (build-system gnu-build-system)
1561 (arguments
1562 `(#:modules ((guix build gnu-build-system)
15218d4e 1563 ((guix build emacs-build-system) #:prefix emacs:)
0791437f 1564 (guix build utils)
15218d4e 1565 (guix build emacs-utils)
0791437f
RW
1566 (ice-9 rdelim)
1567 (ice-9 popen))
15218d4e
RW
1568 #:imported-modules (,@%gnu-build-system-modules
1569 (guix build emacs-build-system)
1570 (guix build emacs-utils))
0791437f
RW
1571 #:phases
1572 (modify-phases %standard-phases
b6bee63b
LC
1573 (add-after 'unpack 'support-guile-3.0
1574 (lambda _
1575 (substitute* "configure"
1576 (("_guile_versions_to_search=\"2.2")
1577 "_guile_versions_to_search=\"3.0 2.2"))
1578 #t))
0791437f
RW
1579 (add-before 'configure 'patch-/usr/bin/env
1580 (lambda _
1581 (substitute* "Makefile.in"
65610f73 1582 (("/usr/bin/env bash") (which "bash")))
0791437f
RW
1583 #t))
1584 ;; auto compilation breaks, but if we set HOME to /tmp,
1585 ;; that works ok
1586 (add-before 'check 'auto-compile-hacky-workaround
1587 (lambda _ (setenv "HOME" "/tmp") #t))
1588 (add-after 'install 'install-go-files
1589 (lambda* (#:key outputs inputs #:allow-other-keys)
1590 (let* ((out (assoc-ref outputs "out"))
1591 (effective (read-line
1592 (open-pipe* OPEN_READ
1593 "guile" "-c"
1594 "(display (effective-version))")))
1595 (module-dir (string-append out "/share/guile/site/"
1596 effective))
1597 (object-dir (string-append out "/lib/guile/" effective
1598 "/site-ccache"))
1599 (prefix (string-length module-dir)))
1600 ;; compile to the destination
1601 (for-each (lambda (file)
1602 (let* ((base (string-drop (string-drop-right file 4)
1603 prefix))
1604 (go (string-append object-dir base ".go")))
1605 (invoke "guild" "compile" "-L" module-dir
1606 file "-o" go)))
1607 (find-files module-dir "\\.scm$"))
15218d4e
RW
1608 #t)))
1609 (add-after 'install 'install-emacs-files
1610 (assoc-ref emacs:%standard-phases 'install))
1611 (add-after 'install-emacs-files 'compile-emacs-files
1612 (assoc-ref emacs:%standard-phases 'build))
1613 (add-after 'compile-emacs-files 'make-autoloads
1614 (assoc-ref emacs:%standard-phases 'make-autoloads)))))
17f90b67 1615 (home-page "https://www.draketo.de/english/wisp")
0791437f 1616 (inputs
b6bee63b 1617 `(("guile" ,guile-3.0)))
0791437f 1618 (native-inputs
15218d4e
RW
1619 `(("emacs" ,emacs-minimal)
1620 ("python" ,python)
0791437f
RW
1621 ("pkg-config" ,pkg-config)))
1622 (synopsis "Whitespace to lisp syntax for Guile")
1623 (description "Wisp is a syntax for Guile which provides a Python-like
1624whitespace-significant language. It may be easier on the eyes for some
1625users and in some situations.")
1626 (license license:gpl3+)))
1627
b6bee63b 1628(define-public guile2.2-wisp
b0b725ed
RW
1629 (package
1630 (inherit guile-wisp)
b6bee63b
LC
1631 (name "guile2.2-wisp")
1632 (inputs `(("guile" ,guile-2.2)))))
1633
1634(define-public guile3.0-wisp
1635 (deprecated-package "guile3.0-wisp" guile-wisp))
b0b725ed 1636
0791437f
RW
1637(define-public guile-sly
1638 (package
1639 (name "guile-sly")
1640 (version "0.1")
1641 (source (origin
1642 (method url-fetch)
1643 (uri (string-append "https://files.dthompson.us/sly/sly-"
1644 version ".tar.gz"))
1645 (sha256
1646 (base32
1647 "1svzlbz2vripmyq2kjh0rig16bsrnbkwbsm558pjln9l65mcl4qq"))
1648 (modules '((guix build utils)))
1649 (snippet
1650 '(begin
1651 (substitute* "configure"
1652 (("_guile_required_version=\"2.0.11\"")
1653 "_guile_required_version=\"2\"")
1654 (("ac_subst_vars='")
1655 "ac_subst_vars='GUILE_EFFECTIVE_VERSION\n"))
1656 (substitute* (find-files "." "Makefile.in")
1657 (("moddir = .*$")
1658 (string-append
1659 "moddir = "
1660 "$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n"))
1661 (("godir = .*$")
1662 (string-append
1663 "godir = "
1664 "$(prefix)/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")))
1665 #t))))
1666 (build-system gnu-build-system)
1667 (arguments
1668 '(#:configure-flags
1669 (list (string-append "--with-libfreeimage-prefix="
1670 (assoc-ref %build-inputs "freeimage"))
1671 (string-append "--with-libgslcblas-prefix="
1672 (assoc-ref %build-inputs "gsl")))))
1673 (native-inputs
1674 `(("pkg-config" ,pkg-config)))
1675 (propagated-inputs
1676 `(("guile-sdl" ,guile-sdl)
1677 ("guile-opengl" ,guile-opengl)))
1678 (inputs
1679 `(("guile" ,guile-2.2)
1680 ("gsl" ,gsl)
1681 ("freeimage" ,freeimage)
1682 ("mesa" ,mesa)))
1683 (synopsis "2D/3D game engine for GNU Guile")
1684 (description "Sly is a 2D/3D game engine written in Guile Scheme. Sly
1685features a functional reactive programming interface and live coding
1686capabilities.")
1687 (home-page "https://dthompson.us/projects/sly.html")
1688 (license license:gpl3+)))
1689
dfe277a5
VS
1690(define-public g-golf
1691 (let ((commit "4a4edf25e4877df9182c77843bdd98ab59e13ef7"))
1692 (package
1693 (name "g-golf")
1694 (version (git-version "1" "683" commit))
1695 (source (origin
1696 (method git-fetch)
1697 (uri (git-reference
1698 (url "https://git.savannah.gnu.org/git/g-golf.git")
1699 (commit commit)))
1700 (file-name (git-file-name name version))
1701 (sha256
1702 (base32
1703 "09p0gf71wbmlm9kri693a8fvr9hl3hhlmlidyadwjdh7853xg0h8"))))
1704 (build-system gnu-build-system)
1705 (native-inputs
1706 `(("autoconf" ,autoconf)
1707 ("automake" ,automake)
1708 ("texinfo" ,texinfo)
1709 ("gettext" ,gettext-minimal)
1710 ("libtool" ,libtool)
1711 ("pkg-config" ,pkg-config)))
1712 (inputs
1713 `(("guile" ,guile-2.2)
1714 ("guile-lib" ,guile-lib)
1715 ("clutter" ,clutter)
1716 ("gtk" ,gtk+)
1717 ("glib" ,glib)))
1718 (propagated-inputs
1719 `(("gobject-introspection" ,gobject-introspection)))
1720 (arguments
1721 `(#:phases
1722 (modify-phases %standard-phases
1723 (add-before 'configure 'tests-work-arounds
1724 (lambda* (#:key inputs #:allow-other-keys)
1725 ;; In build environment, There is no /dev/tty
1726 (substitute*
1727 "test-suite/tests/gobject.scm"
1728 (("/dev/tty") "/dev/null"))))
1729 (add-before 'configure 'substitute-libs
1730 (lambda* (#:key inputs outputs #:allow-other-keys)
1731 (let* ((get (lambda (key lib)
1732 (string-append (assoc-ref inputs key) "/lib/" lib)))
1733 (libgi (get "gobject-introspection" "libgirepository-1.0"))
1734 (libglib (get "glib" "libglib-2.0"))
1735 (libgobject (get "glib" "libgobject-2.0"))
1736 (libgdk (get "gtk" "libgdk-3")))
1737 (substitute* "configure"
1738 (("SITEDIR=\"\\$datadir/g-golf\"")
1739 "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"")
1740 (("SITECCACHEDIR=\"\\$libdir/g-golf/")
1741 "SITECCACHEDIR=\"$libdir/"))
1742 (substitute* "g-golf/init.scm"
1743 (("libgirepository-1.0") libgi)
1744 (("libglib-2.0") libglib)
1745 (("libgdk-3") libgdk)
1746 (("libgobject-2.0") libgobject)
1747 (("\\(dynamic-link \"libg-golf\"\\)")
1748 (format #f "~s"
1749 `(dynamic-link
1750 (format #f "~alibg-golf"
1751 (if (getenv "GUILE_GGOLF_UNINSTALLED")
1752 ""
1753 ,(format #f "~a/lib/"
1754 (assoc-ref outputs "out"))))))))
1755 (setenv "GUILE_AUTO_COMPILE" "0")
1756 (setenv "GUILE_GGOLF_UNINSTALLED" "1")
1757 #t))))))
1758 (home-page "https://www.gnu.org/software/g-golf/")
1759 (synopsis "Guile bindings for GObject Introspection")
1760 (description
1761 "G-Golf (Gnome: (Guile Object Library for)) is a library for developing
1762modern applications in Guile Scheme. It comprises a direct binding to the
1763GObject Introspection API and higher-level functionality for importing Gnome
1764libraries and making GObject classes (and methods) available in Guile's
1765object-oriented programming system, GOOPS.")
1766 (license license:lgpl3+))))
1767
0791437f
RW
1768(define-public g-wrap
1769 (package
1770 (name "g-wrap")
1771 (version "1.9.15")
1772 (source (origin
1773 (method url-fetch)
1774 (uri (string-append "mirror://savannah/g-wrap/g-wrap-"
1775 version ".tar.gz"))
1776 (sha256
1777 (base32
1778 "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
1779 (build-system gnu-build-system)
1780 (native-inputs
1781 `(("pkg-config" ,pkg-config)))
1782 (propagated-inputs
1783 `(("guile" ,guile-2.2)
1784 ("guile-lib" ,guile-lib)))
1785 (inputs
1786 `(("libffi" ,libffi)))
1787 (arguments
1788 `(#:configure-flags '("--disable-Werror")
1789 #:phases
1790 (modify-phases %standard-phases
1791 (add-before 'configure 'pre-configure
1792 (lambda* (#:key outputs #:allow-other-keys)
1793 (let ((out (assoc-ref outputs "out")))
1794 (substitute* (find-files "." "^Makefile.in$")
1795 (("guilemoduledir =.*guile/site" all)
1796 (string-append all "/@GUILE_EFFECTIVE_VERSION@")))
1797 #t))))))
1798 (synopsis "Generate C bindings for Guile")
1799 (description "G-Wrap is a tool and Guile library for generating function
1800wrappers for inter-language calls. It currently only supports generating Guile
1801wrappers for C functions. Given a definition of the types and prototypes for
1802a given C interface, G-Wrap will automatically generate the C code that
1803provides access to that interface and its types from the Scheme level.")
1804 (home-page "https://www.nongnu.org/g-wrap/index.html")
1805 (license license:lgpl2.1+)))
1806
1807(define-public guile-miniadapton
1808 (let ((commit "1b5749422304567c96ac5367f2221dda9eff5880")
1809 (revision "1"))
1810 (package
1811 (name "guile-miniadapton")
1812 (version (string-append "0-" revision "." (string-take commit 9)))
1813 (source (origin
1814 (method git-fetch)
1815 (uri (git-reference
1816 (url "https://github.com/fisherdj/miniAdapton.git")
1817 (commit commit)))
1818 (file-name (string-append name "-" version "-checkout"))
1819 (sha256
1820 (base32
1821 "09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
1822 (build-system guile-build-system)
1823 (native-inputs
1824 `(("guile" ,guile-2.2)))
1825 (home-page "https://github.com/fisherdj/miniAdapton")
1826 (synopsis "Minimal implementation of incremental computation in Guile
1827Scheme")
1828 (description "This package provides a complete Scheme implementation of
1829miniAdapton, which implements the core functionality of the Adapton system for
1830incremental computation (also known as self-adjusting computation). Like
1831Adapton, miniAdapton allows programmers to safely combine mutation and
1832memoization. miniAdapton is built on top of an even simpler system,
1833microAdapton. Both miniAdapton and microAdapton are designed to be easy to
1834understand, extend, and port to host languages other than Scheme.")
1835 (license license:expat))))
1836
1837(define-public guile-reader
1838 (package
1839 (name "guile-reader")
1840 (version "0.6.2")
1841 (source (origin
1842 (method url-fetch)
1843 (uri (string-append "mirror://savannah/guile-reader/guile-reader-"
1844 version ".tar.gz"))
1845 (sha256
1846 (base32
1847 "0592s2s8ampqmqwilc4fvcild6rb9gy79di6vxv5kcdmv23abkgx"))))
1848 (build-system gnu-build-system)
1849 (native-inputs `(("pkgconfig" ,pkg-config)
1850 ("gperf" ,gperf-3.0)))
1851 (inputs `(("guile" ,guile-2.2)))
1852 (synopsis "Framework for building readers for GNU Guile")
1853 (description
1854 "Guile-Reader is a simple framework for building readers for GNU Guile.
1855
1856The idea is to make it easy to build procedures that extend Guile’s read
1857procedure. Readers supporting various syntax variants can easily be written,
1858possibly by re-using existing “token readers” of a standard Scheme
1859readers. For example, it is used to implement Skribilo’s R5RS-derived
1860document syntax.
1861
1862Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
1863hopefully more powerful and flexible (for instance, one may instantiate as
1864many readers as needed).")
1865 (home-page "https://www.nongnu.org/guile-reader/")
1866 (license license:gpl3+)))
1867
0791437f
RW
1868(define-public guile-ncurses
1869 (package
1870 (name "guile-ncurses")
2b155e3a 1871 (version "3.0")
0791437f
RW
1872 (source (origin
1873 (method url-fetch)
1874 (uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
1875 version ".tar.gz"))
1876 (sha256
1877 (base32
2b155e3a 1878 "038xbffalhymg26lvmzgf7ljilxz2f2zmqg5r5nfzbipfbprwjhf"))))
0791437f
RW
1879 (build-system gnu-build-system)
1880 (inputs `(("ncurses" ,ncurses)
b01a73b0 1881 ("guile" ,guile-3.0)))
0791437f
RW
1882 (native-inputs `(("pkg-config" ,pkg-config)))
1883 (arguments
3c566eba
MB
1884 `(#:modules ((guix build gnu-build-system)
1885 ((guix build guile-build-system)
1886 #:select (target-guile-effective-version))
1887 (guix build utils))
1888 #:imported-modules ((guix build guile-build-system)
1889 ,@%gnu-build-system-modules)
1890 #:configure-flags (list "--with-ncursesw" ; Unicode support
0791437f
RW
1891 "--with-gnu-filesystem-hierarchy")
1892 #:phases
1893 (modify-phases %standard-phases
1894 (add-before 'build 'fix-libguile-ncurses-file-name
1895 (lambda* (#:key outputs #:allow-other-keys)
1896 (invoke "make" "install"
1897 "-C" "src/ncurses"
1898 "-j" (number->string
1899 (parallel-job-count)))
1900 (let* ((out (assoc-ref outputs "out"))
1901 (dir "src/ncurses")
1902 (files (find-files dir ".scm")))
1903 (substitute* files
1904 (("\"libguile-ncurses\"")
3c566eba
MB
1905 (format #f "\"~a/lib/guile/~a/libguile-ncurses\""
1906 out (target-guile-effective-version))))
0791437f
RW
1907 #t))))))
1908 (home-page "https://www.gnu.org/software/guile-ncurses/")
1909 (synopsis "Guile bindings to ncurses")
1910 (description
1911 "guile-ncurses provides Guile language bindings for the ncurses
1912library.")
1913 (license license:lgpl3+)))
1914
b01a73b0 1915(define-public guile2.2-ncurses
3c566eba
MB
1916 (package
1917 (inherit guile-ncurses)
b01a73b0 1918 (name "guile2.2-ncurses")
3c566eba 1919 (inputs `(("ncurses" ,ncurses)
b01a73b0
RW
1920 ("guile" ,guile-2.2)))))
1921
1922(define-public guile3.0-ncurses
1923 (deprecated-package "guile3.0-ncurses" guile-ncurses))
3c566eba 1924
0791437f
RW
1925(define-public guile-ncurses/gpm
1926 (package
1927 (inherit guile-ncurses)
1928 (name "guile-ncurses-with-gpm")
1929 (inputs `(("ncurses" ,ncurses/gpm)
1930 ("guile" ,guile-2.2)))))
1931
87001355
MB
1932(define-public guile3.0-ncurses/gpm
1933 (package
1934 (inherit guile3.0-ncurses)
1935 (name "guile3.0-ncurses-with-gpm")
1936 (inputs `(("ncurses" ,ncurses/gpm)
1937 ("guile" ,guile-3.0)))))
1938
0791437f
RW
1939(define-public guile-lib
1940 (package
1941 (name "guile-lib")
1942 (version "0.2.6.1")
1943 (source (origin
1944 (method url-fetch)
1945 (uri (string-append "mirror://savannah/guile-lib/guile-lib-"
1946 version ".tar.gz"))
1947 (sha256
1948 (base32
675f1940
LC
1949 "0aizxdif5dpch9cvs8zz5g8ds5s4xhfnwza2il5ji7fv2h7ks7bd"))
1950 (modules '((guix build utils)))
1951 (snippet
1952 '(begin
1953 ;; Work around miscompilation on Guile 3.0.0 at -O2:
1954 ;; <https://bugs.gnu.org/39251>.
1955 (substitute* "src/md5.scm"
1956 (("\\(define f-ash ash\\)")
1957 "(define f-ash (@ (guile) ash))\n")
1958 (("\\(define f-add \\+\\)")
1959 "(define f-add (@ (guile) +))\n"))
1960 #t))))
0791437f
RW
1961 (build-system gnu-build-system)
1962 (arguments
1963 '(#:make-flags
1964 '("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
1965 #:phases
1966 (modify-phases %standard-phases
1967 (add-before 'configure 'patch-module-dir
1968 (lambda _
1969 (substitute* "src/Makefile.in"
1970 (("^moddir = ([[:graph:]]+)")
1971 "moddir = $(datadir)/guile/site/@GUILE_EFFECTIVE_VERSION@\n")
1972 (("^godir = ([[:graph:]]+)")
1973 "godir = \
1974$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
1975 #t)))))
1976 (native-inputs `(("pkg-config" ,pkg-config)))
b6bee63b 1977 (inputs `(("guile" ,guile-3.0)))
0791437f
RW
1978 (home-page "https://www.nongnu.org/guile-lib/")
1979 (synopsis "Collection of useful Guile Scheme modules")
1980 (description
1981 "Guile-Lib is intended as an accumulation place for pure-scheme Guile
1982modules, allowing for people to cooperate integrating their generic Guile
1983modules into a coherent library. Think \"a down-scaled, limited-scope CPAN
1984for Guile\".")
1985
1986 ;; The whole is under GPLv3+, but some modules are under laxer
1987 ;; distribution terms such as LGPL and public domain. See `COPYING' for
1988 ;; details.
1989 (license license:gpl3+)))
1990
1991(define-public guile2.0-lib
1992 (package
1993 (inherit guile-lib)
1994 (name "guile2.0-lib")
1995 (inputs `(("guile" ,guile-2.0)))))
1996
b6bee63b 1997(define-public guile2.2-lib
675f1940
LC
1998 (package
1999 (inherit guile-lib)
b6bee63b
LC
2000 (name "guile2.2-lib")
2001 (inputs `(("guile" ,guile-2.2)))))
2002
2003(define-public guile3.0-lib
2004 (deprecated-package "guile3.0-lib" guile-lib))
675f1940 2005
0791437f
RW
2006(define-public guile-minikanren
2007 (package
2008 (name "guile-minikanren")
2009 (version "20150424.e844d85")
2010 (source (origin
2011 (method git-fetch)
2012 (uri (git-reference
2013 (url "https://github.com/ijp/minikanren.git")
2014 (commit "e844d85512f8c055d3f96143ee506007389a25e3")))
2015 (file-name (string-append name "-" version "-checkout"))
2016 (sha256
2017 (base32
2018 "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
2019 (build-system guile-build-system)
2020 (native-inputs
b6bee63b 2021 `(("guile" ,guile-3.0)))
0791437f
RW
2022 (home-page "https://github.com/ijp/minikanren")
2023 (synopsis "MiniKanren declarative logic system, packaged for Guile")
2024 (description
2025 "MiniKanren is a relational programming extension to the Scheme
2026programming Language, written as a smaller version of Kanren suitable for
2027pedagogical purposes. It is featured in the book, The Reasoned Schemer,
2028written by Dan Friedman, William Byrd, and Oleg Kiselyov.
2029
2030This is Ian Price's r6rs packaged version of miniKanren, which deviates
2031slightly from miniKanren mainline.
2032
2033See http://minikanren.org/ for more on miniKanren generally.")
2034 (license license:expat)))
2035
2036(define-public guile2.0-minikanren
2037 (package
2038 (inherit guile-minikanren)
2039 (name "guile2.0-minikanren")
2040 (native-inputs `(("guile" ,guile-2.0)))))
2041
b6bee63b 2042(define-public guile2.2-minikanren
89a99d53
LC
2043 (package
2044 (inherit guile-minikanren)
b6bee63b
LC
2045 (name "guile2.2-minikanren")
2046 (native-inputs `(("guile" ,guile-2.2)))))
2047
2048(define-public guile3.0-minikanren
2049 (deprecated-package "guile3.0-minikanren" guile-minikanren))
89a99d53 2050
0791437f
RW
2051(define-public guile-irregex
2052 (package
2053 (name "guile-irregex")
2054 (version "0.9.6")
2055 (source (origin
2056 (method url-fetch)
2057 (uri (string-append
2058 "http://synthcode.com/scheme/irregex/irregex-"
2059 version ".tar.gz"))
2060 (sha256
2061 (base32
2062 "1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq"))))
2063 (build-system guile-build-system)
2064 (arguments
2065 '(#:phases (modify-phases %standard-phases
2066 (add-after 'unpack 'move-files-around
2067 (lambda _
2068 ;; Move the relevant source files to src/ and create the
2069 ;; rx/ directory to match the expected module hierarchy.
2070 (mkdir-p "src/rx/source")
2071 (rename-file "irregex-guile.scm"
2072 "src/rx/irregex.scm")
2073 (rename-file "irregex.scm"
2074 "src/rx/source/irregex.scm")
2075 ;; Not really reachable via guile's packaging system,
2076 ;; but nice to have around.
2077 (rename-file "irregex-utils.scm"
2078 "src/rx/source/irregex-utils.scm")
2079 #t)))
2080 #:source-directory "src"))
2081 (native-inputs
b6bee63b 2082 `(("guile" ,guile-3.0)))
0791437f
RW
2083 (home-page "http://synthcode.com/scheme/irregex")
2084 (synopsis "S-expression based regular expressions")
2085 (description
2086 "Irregex is an s-expression based alternative to your classic
2087string-based regular expressions. It implements SRFI 115 and is deeply
2088inspired by the SCSH regular expression system.")
2089 (license license:bsd-3)))
2090
2091(define-public guile2.0-irregex
2092 (package
2093 (inherit guile-irregex)
2094 (name "guile2.0-irregex")
2095 (native-inputs `(("guile" ,guile-2.0)))))
2096
b6bee63b 2097(define-public guile2.2-irregex
89a99d53
LC
2098 (package
2099 (inherit guile-irregex)
b6bee63b
LC
2100 (name "guile2.2-irregex")
2101 (native-inputs `(("guile" ,guile-2.2)))))
2102
2103(define-public guile3.0-irregex
2104 (deprecated-package "guile3.0-irregex" guile-irregex))
89a99d53 2105
0791437f
RW
2106(define-public haunt
2107 (package
2108 (name "haunt")
2109 (version "0.2.4")
2110 (source (origin
2111 (method url-fetch)
2112 (uri (string-append "https://files.dthompson.us/haunt/haunt-"
2113 version ".tar.gz"))
2114 (sha256
2115 (base32
93d94134
LC
2116 "056z4znikk83nr5mr0x2ac3iinqbywa2bvb37mhr566a1q50isfc"))
2117 (modules '((guix build utils)))
2118 (snippet
2119 '(begin
2120 ;; Allow builds with Guile 3.0.
2121 (substitute* "configure"
2122 (("2\\.2 2\\.0")
2123 "3.0 2.2 2.0"))
2124 #t))))
0791437f
RW
2125 (build-system gnu-build-system)
2126 (arguments
2127 `(#:modules ((ice-9 match) (ice-9 ftw)
2128 ,@%gnu-build-system-modules)
2129 #:tests? #f ; test suite is non-deterministic :(
2130 #:phases (modify-phases %standard-phases
2131 (add-after 'install 'wrap-haunt
2132 (lambda* (#:key inputs outputs #:allow-other-keys)
2133 ;; Wrap the 'haunt' command to refer to the right
2134 ;; modules.
2135 (let* ((out (assoc-ref outputs "out"))
2136 (bin (string-append out "/bin"))
2137 (site (string-append
2138 out "/share/guile/site"))
93d94134
LC
2139 (guile-reader (assoc-ref inputs "guile-reader"))
2140 (deps `(,@(if guile-reader
2141 (list guile-reader)
2142 '())
2143 ,(assoc-ref inputs "guile-commonmark"))))
0791437f
RW
2144 (match (scandir site)
2145 (("." ".." version)
2146 (let ((modules (string-append site "/" version))
2147 (compiled-modules (string-append
2148 out "/lib/guile/" version
2149 "/site-ccache")))
2150 (wrap-program (string-append bin "/haunt")
2151 `("GUILE_LOAD_PATH" ":" prefix
2152 (,modules
2153 ,@(map (lambda (dep)
2154 (string-append dep
2155 "/share/guile/site/"
2156 version))
2157 deps)))
2158 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
2159 (,compiled-modules
2160 ,@(map (lambda (dep)
2161 (string-append dep "/lib/guile/"
2162 version
2163 "/site-ccache"))
2164 deps))))
2165 #t)))))))))
2166 (native-inputs
2167 `(("pkg-config" ,pkg-config)
2168 ("texinfo" ,texinfo)))
2169 (inputs
b6bee63b 2170 `(("guile" ,guile-3.0)))
0791437f 2171 (propagated-inputs
b6bee63b
LC
2172 ;; XXX: Guile-Reader is currently unavailable for Guile 2.2 so strip it.
2173 `(;;("guile-reader" ,guile-reader)
0791437f
RW
2174 ("guile-commonmark" ,guile-commonmark)))
2175 (synopsis "Functional static site generator")
2176 (description "Haunt is a static site generator written in Guile
2177Scheme. Haunt features a functional build system and an extensible
2178interface for reading articles in any format.")
2179 (home-page "http://haunt.dthompson.us")
2180 (license license:gpl3+)))
2181
b6bee63b 2182(define-public guile2.2-haunt
93d94134
LC
2183 (package
2184 (inherit haunt)
b6bee63b
LC
2185 (name "guile2.2-haunt")
2186 (inputs `(("guile" ,guile-2.2)))
93d94134 2187 (propagated-inputs
b6bee63b
LC
2188 `(("guile-reader" ,guile-reader)
2189 ("guile-commonmark" ,guile2.2-commonmark)))))
93d94134 2190
0791437f
RW
2191(define-public guile2.0-haunt
2192 (package
2193 (inherit haunt)
2194 (name "guile2.0-haunt")
2195 (inputs `(("guile" ,guile-2.0)))))
2196
b6bee63b
LC
2197(define-public guile3.0-haunt
2198 (deprecated-package "guile3.0-haunt" haunt))
2199
0791437f
RW
2200(define-public guile-redis
2201 (package
2202 (name "guile-redis")
f57bf15c 2203 (version "1.3.0")
0791437f
RW
2204 (home-page "https://github.com/aconchillo/guile-redis")
2205 (source (origin
29fde3bf
EF
2206 (method git-fetch)
2207 (uri (git-reference
2208 (url home-page)
2209 (commit version)))
2210 (file-name (git-file-name name version))
0791437f
RW
2211 (sha256
2212 (base32
29fde3bf 2213 "14izs8daxh7pb7vwpxi5g427qa31137jkaxrb1cy5rpjkwchy723"))))
0791437f
RW
2214 (build-system gnu-build-system)
2215 (native-inputs
2216 `(("autoconf" ,autoconf)
2217 ("automake" ,automake)
2218 ("pkg-config" ,pkg-config)
2219 ("guile" ,guile-2.2)))
2220 (synopsis "Redis client library for Guile")
2221 (description "Guile-redis provides a Scheme interface to the Redis
2222key-value cache and store.")
2223 (license license:lgpl3+)))
2224
2225(define-public guile2.0-redis
2226 (package
2227 (inherit guile-redis)
2228 (name "guile2.0-redis")
2229 (native-inputs `(("guile" ,guile-2.0)
2230 ,@(alist-delete "guile"
2231 (package-native-inputs guile-redis))))))
2232
0791437f
RW
2233(define-public guile-commonmark
2234 (package
2235 (name "guile-commonmark")
b552e307 2236 (version "0.1.2")
0791437f
RW
2237 (source (origin
2238 (method url-fetch)
2239 (uri (string-append "https://github.com/OrangeShark/" name
2240 "/releases/download/v" version
2241 "/" name "-" version ".tar.gz"))
2242 (sha256
2243 (base32
1fa34232
LC
2244 "17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))
2245 (modules '((guix build utils)))
2246 (snippet
2247 '(begin
2248 ;; Allow builds with Guile 3.0.
2249 (substitute* "configure"
2250 (("2\\.2 2\\.0")
2251 "3.0 2.2 2.0"))
2252 #t))))
0791437f
RW
2253 (build-system gnu-build-system)
2254 (inputs
b6bee63b 2255 `(("guile" ,guile-3.0)))
0791437f
RW
2256 (native-inputs
2257 `(("pkg-config" ,pkg-config)))
2258 (synopsis "CommonMark parser for Guile")
2259 (description
2260 "guile-commonmark is a library for parsing CommonMark, a fully specified
2261variant of Markdown. The library is written in Guile Scheme and is designed
2262to transform a CommonMark document to SXML. guile-commonmark tries to closely
2263follow the @uref{http://commonmark.org/, CommonMark spec}, the main difference
2264is no support for parsing block and inline level HTML.")
2265 (home-page "https://github.com/OrangeShark/guile-commonmark")
2266 (license license:lgpl3+)))
2267
b6bee63b 2268(define-public guile2.2-commonmark
1fa34232
LC
2269 (package
2270 (inherit guile-commonmark)
b6bee63b
LC
2271 (name "guile2.2-commonmark")
2272 (inputs `(("guile" ,guile-2.2)))))
1fa34232 2273
0791437f
RW
2274(define-public guile2.0-commonmark
2275 (package
2276 (inherit guile-commonmark)
2277 (name "guile2.0-commonmark")
2278 (inputs `(("guile" ,guile-2.0)))))
2279
b6bee63b
LC
2280(define-public guile3.0-commonmark
2281 (deprecated-package "guile3.0-commonmark" guile-commonmark))
2282
0791437f
RW
2283(define-public mcron
2284 (package
2285 (name "mcron")
a52aa7fd 2286 (version "1.1.4")
0791437f
RW
2287 (source (origin
2288 (method url-fetch)
2289 (uri (string-append "mirror://gnu/mcron/mcron-"
2290 version ".tar.gz"))
2291 (sha256
2292 (base32
a52aa7fd 2293 "1521w3h33bhdlg6qc66sq4dwv3qsx8r8x6srq4ca6kaahy6dszw8"))))
0791437f
RW
2294 (build-system gnu-build-system)
2295 (arguments
2296 '(#:phases (modify-phases %standard-phases
0791437f
RW
2297 (add-before 'check 'adjust-tests
2298 (lambda _
2299 (substitute* "tests/job-specifier.scm"
2300 ;; (getpw) fails with "entry not found" in the build
2301 ;; environment, so pass an argument.
2302 (("\\(getpw\\)")
2303 "(getpwnam (getuid))")
2304 ;; The build environment lacks an entry for root in
2305 ;; /etc/passwd.
2306 (("\\(getpw 0\\)")
2307 "(getpwnam \"nobody\")")
2308
2309 ;; FIXME: Skip the 4 faulty tests (see above).
2310 (("\\(test-equal \"next-year\"" all)
2311 (string-append "(test-skip 4)\n" all)))
2312 #t)))))
30ebff69 2313 (native-inputs `(("pkg-config" ,pkg-config)
0791437f 2314 ("tzdata" ,tzdata-for-tests)))
b6bee63b 2315 (inputs `(("guile" ,guile-3.0)))
0791437f
RW
2316 (home-page "https://www.gnu.org/software/mcron/")
2317 (synopsis "Run jobs at scheduled times")
2318 (description
2319 "GNU Mcron is a complete replacement for Vixie cron. It is used to run
2320tasks on a schedule, such as every hour or every Monday. Mcron is written in
2321Guile, so its configuration can be written in Scheme; the original cron
2322format is also supported.")
2323 (license license:gpl3+)))
2324
b6bee63b 2325(define-public guile2.2-mcron
3de0d20b
LC
2326 (package
2327 (inherit mcron)
b6bee63b
LC
2328 (name "guile2.2-mcron")
2329 (inputs `(("guile" ,guile-2.2)))))
2330
2331(define-public guile3.0-mcron
2332 (deprecated-package "guile3.0-mcron" mcron))
3de0d20b 2333
6bb5f88e 2334(define-public guile-picture-language
d1a3a8e1
RW
2335 (let ((commit "91d10c96708d732145006dd2802acc4de08b632e")
2336 (revision "1"))
6bb5f88e
RW
2337 (package
2338 (name "guile-picture-language")
d1a3a8e1 2339 (version (git-version "0.0.1" revision commit))
6bb5f88e
RW
2340 (source (origin
2341 (method git-fetch)
2342 (uri (git-reference
2343 (url "https://git.elephly.net/software/guile-picture-language.git")
2344 (commit commit)))
f1d4d79f 2345 (file-name (git-file-name name version))
6bb5f88e
RW
2346 (sha256
2347 (base32
d1a3a8e1
RW
2348 "1ydvw9dvssdvlvhh1dr8inyzy2x6m41qgp8hsivca1xysr4gc23a"))))
2349 (build-system gnu-build-system)
6bb5f88e 2350 (inputs
b6bee63b 2351 `(("guile" ,guile-3.0)))
d1a3a8e1
RW
2352 (native-inputs
2353 `(("autoconf" ,autoconf)
2354 ("automake" ,automake)
2355 ("imagemagick" ,imagemagick)
2356 ("pkg-config" ,pkg-config)
2357 ("texinfo" ,texinfo)))
6bb5f88e
RW
2358 (home-page "https://git.elephly.net/software/guile-picture-language.git")
2359 (synopsis "Picture language for Guile")
2360 (description
2361 "This package provides a simple SVG-based picture language for Guile.
2362The picture values can directly be displayed in Geiser.")
2363 (license license:lgpl3+))))
5531782d 2364
b6bee63b 2365(define-public guile2.2-picture-language
4f408684
LC
2366 (package
2367 (inherit guile-picture-language)
b6bee63b
LC
2368 (name "guile2.2-picture-language")
2369 (inputs `(("guile" ,guile-2.2)))))
2370
2371(define-public guile3.0-picture-language
2372 (deprecated-package "guile3.0-picture-language"
2373 guile-picture-language))
4f408684 2374
5531782d 2375(define-public guile-studio
223236f6
RW
2376 (package
2377 (name "guile-studio")
2378 (version "0.0.2")
2379 (source (origin
2380 (method git-fetch)
2381 (uri (git-reference
2382 (url "https://git.elephly.net/software/guile-studio.git")
2383 (commit version)))
2384 (file-name (git-file-name name version))
2385 (sha256
2386 (base32
2387 "10ls4ra148hd9ra7sin4kh9vv0am5pwk48p7dsjhrlg2l1hsh4hi"))))
2388 (build-system gnu-build-system)
2389 (arguments
2390 `(#:modules
2391 ((ice-9 match)
2392 (srfi srfi-1)
2393 ,@%gnu-build-system-modules)
2394 #:tests? #f ; there are none
2395 #:make-flags
2396 (list (string-append "ICONS_DIR="
2397 (assoc-ref %build-inputs "adwaita-icon-theme")
2398 "/share/icons/Adwaita/")
2399 (string-append "PICT_DIR="
2400 (assoc-ref %build-inputs "guile-picture-language"))
2401 (string-append "EMACS_DIR="
2402 (assoc-ref %build-inputs "emacs"))
2403 (string-append "GUILE_DIR="
2404 (assoc-ref %build-inputs "guile"))
2405 (string-join (cons "INPUTS="
2406 (filter-map
2407 (lambda (input)
2408 (match input
2409 ((label . pkg)
2410 (and (string-prefix? "emacs" label) pkg))))
2411 %build-inputs)))
2412 (string-append "PREFIX=" (assoc-ref %outputs "out")))
2413 #:phases
2414 (modify-phases %standard-phases
2415 (delete 'configure)
2416 (delete 'install))))
2417 (inputs
2418 `(("guile" ,guile-2.2)
2419 ("guile-picture-language" ,guile-picture-language)
2420 ("emacs" ,emacs)
2421 ("emacs-geiser" ,emacs-geiser)
2422 ("emacs-company" ,emacs-company)
2423 ("emacs-flycheck" ,emacs-flycheck)
2424 ("emacs-smart-mode-line" ,emacs-smart-mode-line)
2425 ("emacs-paren-face" ,emacs-paren-face)
2426 ("adwaita-icon-theme" ,adwaita-icon-theme)))
2427 (native-inputs
2428 `(("texinfo" ,texinfo)))
2429 (home-page "https://gnu.org/software/guile")
2430 (synopsis "IDE for Guile")
2431 (description
2432 "This is Emacs with a few settings that make working with Guile easier
5531782d
RW
2433for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons
2434to evaluate Guile buffers, support for Guile's very own picture language, code
2435completion, a simple mode line, etc.")
223236f6 2436 (license license:gpl3+)))
9f8698ad
RW
2437
2438(define-public guile-stis-parser
2439 (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")
2440 (revision "1"))
2441 (package
2442 (name "guile-stis-parser")
2443 (version (git-version "0" revision commit))
2444 (source (origin
2445 (method git-fetch)
2446 (uri (git-reference
2447 (url "https://gitlab.com/tampe/stis-parser")
2448 (commit commit)))
29e76f07 2449 (file-name (git-file-name name version))
9f8698ad
RW
2450 (sha256
2451 (base32
2452 "0v4hvq7rlpbra1ni73lf8k6sdmjlflr50yi3p1f24g85h77pc7c0"))))
2453 (build-system gnu-build-system)
2454 (arguments
2455 `(#:parallel-build? #f ; not supported
2456 #:phases
2457 (modify-phases %standard-phases
2458 (add-after 'unpack 'chdir
2459 (lambda _ (chdir "modules") #t))
8318b3ed
RW
2460 (add-after 'chdir 'use-canonical-directory-for-go-files
2461 (lambda _
2462 (substitute* "Makefile.am"
2463 (("/ccache") "/site-ccache"))
2464 #t))
9f8698ad
RW
2465 (add-after 'chdir 'delete-broken-symlink
2466 (lambda _
2467 (delete-file "parser/stis-parser/lang/.#calc.scm")
2468 #t)))))
2469 (inputs
2470 `(("guile" ,guile-2.2)))
2471 (native-inputs
2472 `(("autoconf" ,autoconf)
2473 ("automake" ,automake)
2474 ("pkg-config" ,pkg-config)))
2475 (home-page "https://gitlab.com/tampe/stis-parser")
2476 (synopsis "Parser combinator framework")
2477 (description
2478 "This package provides a functional parser combinator library that
2479supports backtracking and a small logical framework. The idea is to build up
2480chunks that are memoized and there is no clear scanner/parser separation,
2481chunks can be expressions as well as simple tokens.")
2482 (license license:lgpl2.0+))))
12d73f9c
RW
2483
2484(define-public guile-persist
2485 (let ((commit "b14927b0368af51c024560aee5f55724aee35233")
2486 (revision "1"))
2487 (package
2488 (name "guile-persist")
2489 (version (git-version "0" revision commit))
2490 (source (origin
2491 (method git-fetch)
2492 (uri (git-reference
2493 (url "https://gitlab.com/tampe/guile-persist")
2494 (commit commit)))
2495 (file-name (git-file-name name version))
2496 (sha256
2497 (base32
85a411bc
LC
2498 "0z5nf377wh8yj6n3sx2ddn4bdx1qrqnw899dlqjhg0q69qzil522"))
2499 (modules '((guix build utils)))
2500 (snippet
2501 '(begin
2502 ;; Install .go files in the right place.
2503 (substitute* "Makefile.am"
2504 (("/ccache") "/site-ccache"))
2505 #t))))
12d73f9c
RW
2506 (build-system gnu-build-system)
2507 (arguments
2508 `(#:phases
2509 (modify-phases %standard-phases
2510 (add-after 'unpack 'patch-prefix
2511 (lambda* (#:key inputs outputs #:allow-other-keys)
2512 (substitute* "src/Makefile.am"
2513 (("/usr/local/lib/guile")
2514 (string-append (assoc-ref outputs "out") "/lib/guile"))
2515 (("/usr/local/include/guile")
2516 (string-append (assoc-ref inputs "guile") "/include/guile"))
2517 (("-L/usr/local/lib")
8f052528
RW
2518 (string-append "-L" (assoc-ref inputs "guile") "/lib"))
2519 ;; Use canonical directory for go files.
2520 (("/ccache") "/site-ccache"))
12d73f9c
RW
2521 #t))
2522 (add-after 'unpack 'patch-library-reference
2523 (lambda* (#:key outputs #:allow-other-keys)
2524 (let ((out (assoc-ref outputs "out")))
2525 (substitute* "persist/persistance.scm"
2526 (("\"libguile-persist\"")
2527 (format #f "\"~a/lib/guile/2.2/extensions/libguile-persist\"" out)))
2528 #t))))))
2529 (inputs
2530 `(("guile" ,guile-2.2)))
2531 (native-inputs
2532 `(("autoconf" ,autoconf)
2533 ("automake" ,automake)
2534 ("libtool" ,libtool)
2535 ("pkg-config" ,pkg-config)))
2536 (home-page "https://gitlab.com/tampe/guile-persist")
028053f2 2537 (synopsis "Persistence programming framework for Guile")
12d73f9c
RW
2538 (description
2539 "This is a serialization library for serializing objects like classes
2540and objects, closures and structs. This currently does not support
2541serializing continuations or delimited continuations.")
2542 (license license:lgpl2.0+))))
6d37301b
RW
2543
2544(define-public python-on-guile
5d5edb88
LC
2545 (let ((commit "00a51a23247f1edc4ae8eda72b30df5cd7d0015f")
2546 (revision "3"))
6d37301b
RW
2547 (package
2548 (name "python-on-guile")
2549 (version (git-version "0.1.0" revision commit))
2550 (source (origin
2551 (method git-fetch)
2552 (uri (git-reference
4088ae42 2553 (url "https://git.elephly.net/software/python-on-guile.git")
6d37301b
RW
2554 (commit commit)))
2555 (file-name (git-file-name name version))
2556 (sha256
2557 (base32
5d5edb88 2558 "03rpnqr08rqr3gay128g564rwk8w4jbj28ss6b46z1d4vjs4nk68"))))
6d37301b
RW
2559 (build-system gnu-build-system)
2560 (arguments
2561 `(#:parallel-build? #f ; not supported
83817158
LC
2562 #:make-flags '("GUILE_AUTO_COMPILE=0") ;to prevent guild warnings
2563
6d37301b
RW
2564 #:phases
2565 (modify-phases %standard-phases
2566 (add-after 'unpack 'chdir
83817158
LC
2567 (lambda _ (chdir "modules") #t))
2568 (add-after 'install 'wrap
2569 (lambda* (#:key outputs #:allow-other-keys)
2570 ;; Wrap the 'python' executable so it can find its
2571 ;; dependencies.
2572 (let ((out (assoc-ref outputs "out")))
2573 (wrap-program (string-append out "/bin/python")
2574 `("GUILE_LOAD_PATH" ":" prefix
2575 (,(getenv "GUILE_LOAD_PATH")))
2576 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
2577 (,(getenv "GUILE_LOAD_COMPILED_PATH"))))
2578 #t))))))
6d37301b
RW
2579 (inputs
2580 `(("guile" ,guile-2.2)))
2581 (propagated-inputs
2582 `(("guile-persist" ,guile-persist)
2583 ("guile-readline" ,guile-readline)
2584 ("guile-stis-parser" ,guile-stis-parser)))
2585 (native-inputs
2586 `(("autoconf" ,autoconf)
2587 ("automake" ,automake)
2588 ("libtool" ,libtool)
2589 ("pkg-config" ,pkg-config)))
2590 (home-page "https://gitlab.com/python-on-guile/python-on-guile/")
2591 (synopsis "Python implementation in Guile")
2592 (description
2593 "This package allows you to compile a Guile Python file to any target
2594from @code{tree-il}.")
2595 (license license:lgpl2.0+))))
b97b4624
RW
2596
2597(define-public guile-file-names
2598 (package
2599 (name "guile-file-names")
72a0706f 2600 (version "0.3")
b97b4624
RW
2601 (source (origin
2602 (method url-fetch)
2603 (uri (string-append "http://brandon.invergo.net/software/download/"
2604 "guile-file-names/guile-file-names-"
2605 version ".tar.gz"))
2606 (sha256
2607 (base32
72a0706f 2608 "01chizdxkhw6aqv629vxka9f5x3534ij7r0jqndawsg2vxm1r9sz"))))
b97b4624
RW
2609 (build-system gnu-build-system)
2610 (arguments
2611 `(#:phases
2612 (modify-phases %standard-phases
481eca80 2613 (add-after 'unpack 'fix-target-directory
b97b4624 2614 (lambda _
481eca80 2615 (substitute* "src/Makefile.in"
b97b4624
RW
2616 (("guilemoddir = \\$\\(GUILE_SITE\\)")
2617 "guilemoddir = $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
2618 #t)))))
2619 (inputs
2620 `(("guile" ,guile-2.2)))
2621 (native-inputs
2622 `(("pkg-config" ,pkg-config)))
2623 (home-page "https://gitlab.com/brandoninvergo/guile-file-names")
2624 (synopsis "Manipulate file names")
2625 (description
2626 "The @code{(file-names)} module provides tools for manipulating file
2627names. The module was built on the idea that doing anything more than a
2628non-trivial modification of a file name string is a pain (making sure all
2629slashes are present and accounted for, resolving @code{.} and @code{..}, etc).
2630Inevitably, you have to break the string up into chunks and operate on that
2631list of components. This module takes care of that for you.")
2632 (license license:lgpl3+)))
bdf2dd79
JN
2633
2634(define-public guile-gi
bb6c8f20
RW
2635 (package
2636 (name "guile-gi")
c67db509 2637 (version "0.3.0")
bb6c8f20
RW
2638 (source (origin
2639 (method url-fetch)
2640 (uri (string-append "http://lonelycactus.com/tarball/guile_gi-"
2641 version ".tar.gz"))
2642 (sha256
2643 (base32
c67db509 2644 "05xbwrk50h4f9fh8la8fk2wsxbnm0jcyb9phnpkkjq4sqkhkxlbj"))))
bb6c8f20
RW
2645 (build-system gnu-build-system)
2646 (arguments
b5d4d5b9 2647 `(#:configure-flags '("--with-gnu-filesystem-hierarchy")
a431a635
RW
2648 #:modules ((guix build gnu-build-system)
2649 (guix build utils)
2650 (ice-9 popen)
2651 (ice-9 rdelim))
b5d4d5b9
RW
2652 #:phases
2653 (modify-phases %standard-phases
a431a635
RW
2654 (add-after 'unpack 'patch-references-to-extension
2655 (lambda* (#:key outputs #:allow-other-keys)
2656 (let ((effective (read-line
2657 (open-pipe* OPEN_READ
2658 "guile" "-c"
2659 "(display (effective-version))"))))
2660 (substitute* '("module/gi.scm"
2661 "module/gi/oop.scm"
2662 "module/gi/documentation.scm"
2663 "module/gi/types.scm"
2664 "module/gi/repository.scm")
2665 (("\\(load-extension \"libguile-gi\" \"(.*)\"\\)" m arg)
2666 (format #f "~s"
2667 `(load-extension
2668 (format #f "~alibguile-gi"
2669 (if (getenv "GUILE_GI_UNINSTALLED")
2670 ""
2671 ,(format #f "~a/lib/guile/~a/"
2672 (assoc-ref outputs "out")
2673 effective)))
2674 ,arg)))))
2675 (setenv "GUILE_GI_UNINSTALLED" "1")
2676 #t))
b5d4d5b9
RW
2677 (add-before 'check 'start-xorg-server
2678 (lambda* (#:key inputs #:allow-other-keys)
2679 ;; The init_check test requires a running X server.
2680 (system (format #f "~a/bin/Xvfb :1 &"
2681 (assoc-ref inputs "xorg-server")))
2682 (setenv "DISPLAY" ":1")
2683 #t)))))
bb6c8f20 2684 (native-inputs
f2d97d57 2685 `(("gettext" ,gettext-minimal)
6153fa0a 2686 ("glib:bin" ,glib "bin") ; for glib-compile-resources
bb6c8f20 2687 ("libtool" ,libtool)
b5d4d5b9
RW
2688 ("pkg-config" ,pkg-config)
2689 ("xorg-server" ,xorg-server)))
bb6c8f20
RW
2690 (propagated-inputs
2691 `(("glib" ,glib)
2692 ("gobject-introspection" ,gobject-introspection)
2693 ("gssettings-desktop-schemas" ,gsettings-desktop-schemas)
2694 ("gtk+" ,gtk+)
2695 ("guile-lib" ,guile-lib)
2696 ("webkitgtk" ,webkitgtk)))
b6bee63b 2697 (inputs `(("guile" ,guile-3.0)))
bb6c8f20
RW
2698 (home-page "https://github.com/spk121/guile-gi")
2699 (synopsis "GObject bindings for Guile")
2700 (description
2701 "Guile-GI is a library for Guile that allows using GObject-based
bdf2dd79
JN
2702libraries, such as GTK+3. Its README comes with the disclaimer: This is
2703pre-alpha code.")
bb6c8f20 2704 (license license:gpl3+)))
dec4b3aa 2705
b6bee63b 2706(define-public guile2.2-gi
bfb51f5e
RW
2707 (package
2708 (inherit guile-gi)
b6bee63b 2709 (name "guile2.2-gi")
bfb51f5e 2710 (native-inputs
b6bee63b 2711 `(("guile" ,guile-2.2)
bfb51f5e
RW
2712 ,@(package-native-inputs guile-gi)))))
2713
b6bee63b
LC
2714(define-public guile3.0-gi
2715 (deprecated-package "guile3.0-gi" guile-gi))
2716
dec4b3aa
LC
2717(define-public guile-srfi-159
2718 (let ((commit "1bd98abda2ae4ef8f36761a167903e55c6bda7bb")
2719 (revision "0"))
2720 (package
2721 (name "guile-srfi-159")
2722 (version (git-version "0" revision commit))
2723 (home-page "https://bitbucket.org/bjoli/guile-srfi-159")
2724 (source (origin
2725 (method hg-fetch)
2726 (uri (hg-reference (changeset commit)
2727 (url home-page)))
2728 (sha256
2729 (base32
2730 "1zw6cmcy7xdbfiz3nz9arqnn7l2daidaps6ixkcrc9b6k51fdv3p"))
2731 (file-name (git-file-name name version))))
2732 (build-system guile-build-system)
2733 (arguments
2734 ;; The *-impl.scm files are actually included from module files; they
2735 ;; should not be compiled separately, but they must be installed.
2736 '(#:not-compiled-file-regexp "-impl\\.scm$"))
2737 (inputs
2738 `(("guile" ,guile-2.2)))
2739 (synopsis "Formatting combinators for Guile")
2740 (description
2741 "The @code{(srfi-159)} module and its sub-modules implement the
2742formatting combinators specified by
2743@uref{https://srfi.schemers.org/srfi-159/srfi-159.html, SRFI-159}. These are
2744more expressive and flexible than the traditional @code{format} procedure.")
2745 (license license:bsd-3))))
f0de9544
JN
2746
2747(define-public emacsy
48eb71ae
JN
2748 (package
2749 (name "emacsy")
2750 (version "0.4.1")
2751 (source (origin
2752 (method url-fetch)
2753 (uri (string-append
2754 "https://download.savannah.nongnu.org/releases/"
2755 name "/" name "-" version ".tar.gz"))
2756 (sha256
2757 (base32
2758 "1cpb85dl1nibd34c2x2h7vfmjpkgh353p5b1w20v6cs6gmvgg4np"))))
2759 (build-system gnu-build-system)
2760 (native-inputs
2761 `(("autoconf" ,autoconf)
2762 ("automake" ,automake)
2763 ("bzip2" ,bzip2)
2764 ("guile" ,guile-2.2)
f2d97d57 2765 ("gettext" ,gettext-minimal)
48eb71ae
JN
2766 ("libtool" ,libtool)
2767 ("perl" ,perl)
2768 ("pkg-config" ,pkg-config)
2769 ("texinfo" ,texinfo)
1aa026aa 2770 ("texlive" ,(texlive-union (list texlive-generic-epsf)))))
114f02ba 2771 (inputs
48eb71ae
JN
2772 `(("dbus-glib" ,dbus-glib)
2773 ("guile" ,guile-2.2)
2774 ("guile-lib" ,guile-lib)
2775 ("guile-readline" ,guile-readline)
48eb71ae 2776 ("freeglut" ,freeglut)
48eb71ae 2777 ("webkitgtk" ,webkitgtk)))
114f02ba
AS
2778 (propagated-inputs
2779 `(("glib-networking" ,glib-networking)
2780 ("gssettings-desktop-schemas" ,gsettings-desktop-schemas)))
48eb71ae 2781 (arguments
114f02ba
AS
2782 `(#:modules ((guix build gnu-build-system)
2783 (guix build utils)
2784 (ice-9 popen)
2785 (ice-9 rdelim)
2786 (ice-9 regex)
2787 (ice-9 ftw)
2788 (srfi srfi-26))
2789 #:phases
48eb71ae
JN
2790 (modify-phases %standard-phases
2791 (add-before 'configure 'setenv
2792 (lambda _
2793 (setenv "GUILE_AUTO_COMPILE" "0")
114f02ba
AS
2794 #t))
2795 (add-after 'install 'wrap-binaries
2796 (lambda* (#:key inputs outputs #:allow-other-keys)
2797 (let* ((out (assoc-ref outputs "out"))
2798 (effective (read-line
2799 (open-pipe* OPEN_READ
2800 "guile" "-c"
2801 "(display (effective-version))")))
2802 (deps (map (cut assoc-ref inputs <>)
2803 '("guile-lib" "guile-readline")))
2804 (scm-path (map (cut string-append <> "/share/guile/site/"
2805 effective) `(,out ,@deps)))
2806 (go-path (map (cut string-append <> "/lib/guile/" effective
2807 "/site-ccache/") `(,out ,@deps)))
2808 (examples (filter (cut string-match "emacsy" <>)
2809 (scandir (string-append out "/bin/"))))
2810 (progs (map (cut string-append out "/bin/" <>)
2811 examples)))
2812 (map (cut wrap-program <>
2813 `("GUILE_LOAD_PATH" ":" prefix ,scm-path)
2814 `("GUILE_LOAD_COMPILED_PATH" ":" prefix ,go-path))
2815 progs)
2816 #t))))))
48eb71ae
JN
2817 (home-page "https://savannah.nongnu.org/projects/emacsy")
2818 (synopsis "Embeddable GNU Emacs-like library using Guile")
2819 (description
2820 "Emacsy is an embeddable Emacs-like library that uses GNU Guile
f0de9544
JN
2821as extension language. Emacsy can give a C program an Emacsy feel with
2822keymaps, minibuffer, recordable macros, history, tab completion, major
2823and minor modes, etc., and can also be used as a pure Guile library. It
48eb71ae
JN
2824comes with a simple counter example using FreeGLUT and browser examples
2825in C using Gtk+-3 and WebKitGtk.")
2826 (license license:gpl3+)))
2135610c 2827
c99f32b9 2828(define-public emacsy-minimal
2708ae3d 2829 (let ((commit "d459ca1d3d09e7624e662bc4cfc3596850796fc6"))
c99f32b9
AS
2830 (package
2831 (inherit emacsy)
2832 (name "emacsy-minimal")
2708ae3d 2833 (version (git-version "v0.4.1" "28" commit))
c99f32b9
AS
2834 (source (origin
2835 (method git-fetch)
2836 (uri (git-reference
2837 (url "https://git.savannah.gnu.org/git/emacsy.git")
2838 (commit commit)))
2839 (file-name (git-file-name name version))
2840 (sha256
2841 (base32
2708ae3d 2842 "1ps15w8cxj9kc18gmvys9jv9xa1qqa7m43ismv34l3cmhddrn0sr"))))
c99f32b9
AS
2843 (build-system gnu-build-system)
2844 (inputs
2845 `(("guile" ,guile-2.2)
2846 ("guile-lib" ,guile-lib)
2847 ("guile-readline" ,guile-readline)))
2848 (propagated-inputs '())
2849 (arguments
2850 `(#:configure-flags '("--without-examples")
2851 #:phases
2852 (modify-phases %standard-phases
2853 (add-before 'configure 'setenv
2854 (lambda _
2855 (setenv "GUILE_AUTO_COMPILE" "0")
2856 #t))))))))
2857
2135610c
LC
2858(define-public guile-jpeg
2859 (let ((commit "6a1673578b297c2c1b28e44a76bd5c49e76a5046")
2860 (revision "0"))
2861 (package
2862 (name "guile-jpeg")
2863 (version (git-version "0.0" revision commit))
2864 (home-page "https://gitlab.com/wingo/guile-jpeg")
2865 (source (origin
2866 (method git-fetch)
2867 (uri (git-reference (url home-page)
2868 (commit commit)))
2869 (sha256
2870 (base32
2871 "05z9m408w3h6aqb5k3r3qa7khir0k10rxwvsrzhkcq1hr5vbmr4m"))
2872 (file-name (git-file-name name version))
2873 (modules '((guix build utils)))
2874 (snippet
2875 '(begin
2876 ;; Install .go files in the right place.
2877 (substitute* "Makefile.am"
2878 (("/ccache") "/site-ccache"))
2879 #t))))
2880 (build-system gnu-build-system)
2881 (native-inputs
2882 `(("autoconf" ,autoconf)
2883 ("automake" ,automake)
2884 ("pkg-config" ,pkg-config)
2885 ("guile" ,guile-2.2)))
2886 (synopsis "JPEG file parsing library for Guile")
2887 (description
2888 "Guile-JPEG is a Scheme library to parse JPEG image files and to
2889perform geometrical transforms on JPEG images.")
2890 (license license:gpl3+))))
e8c2da41
AS
2891
2892(define-public nomad
2893 (package
2894 (name "nomad")
5f1553ce 2895 (version "0.1.2-alpha")
e8c2da41
AS
2896 (source (origin
2897 (method git-fetch)
2898 (uri (git-reference
2899 (url "https://git.savannah.gnu.org/git/nomad.git")
2900 (commit version)))
2901 (file-name (git-file-name name version))
2902 (sha256
2903 (base32
5f1553ce 2904 "1dnkr1hmvfkwgxd75dcf93pg39yfgawvdpzdhv991yhghv0qxc9h"))))
e8c2da41
AS
2905 (build-system gnu-build-system)
2906 (native-inputs
2907 `(("autoconf" ,autoconf)
2908 ("automake" ,automake)
2909 ("bash" ,bash)
2910 ("pkg-config" ,pkg-config)
2911 ("libtool" ,libtool)
2912 ("guile" ,guile-2.2)
5f1553ce
AS
2913 ("glib:bin" ,glib "bin")
2914 ("texinfo" ,texinfo)
2915 ("perl" ,perl)))
e8c2da41
AS
2916 (inputs
2917 `(("guile" ,guile-2.2)
2918 ("guile-lib" ,guile-lib)
2919 ("guile-gcrypt" ,guile-gcrypt)
2920 ("guile-readline" ,guile-readline)
2921 ("gnutls" ,gnutls)
2922 ("shroud" ,shroud)
2923 ("emacsy" ,emacsy-minimal)
2924 ("glib" ,glib)
2925 ("dbus-glib" ,dbus-glib)
2926 ("gtk+" ,gtk+)
2927 ("gtksourceview" ,gtksourceview)
2928 ("webkitgtk" ,webkitgtk)
2929 ("xorg-server" ,xorg-server)))
2930 (propagated-inputs
2931 `(("glib" ,glib)
2932 ("glib-networking" ,glib-networking)
2933 ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)))
2934 (arguments
2935 `(#:modules ((guix build gnu-build-system)
2936 (guix build utils)
2937 (ice-9 popen)
2938 (ice-9 rdelim)
2939 (srfi srfi-26))
2940 #:phases
2941 (modify-phases %standard-phases
2942 (add-before 'check 'start-xorg-server
2943 (lambda* (#:key inputs #:allow-other-keys)
2944 ;; The test suite requires a running X server.
2945 (system (format #f "~a/bin/Xvfb :1 &"
2946 (assoc-ref inputs "xorg-server")))
2947 (setenv "DISPLAY" ":1")
2948 #t))
2949 (add-after 'install 'wrap-binaries
2950 (lambda* (#:key inputs outputs #:allow-other-keys)
2951 (let* ((out (assoc-ref outputs "out"))
2952 (gio-deps (map (cut assoc-ref inputs <>) '("glib-networking"
2953 "glib")))
2954 (gio-mod-path (map (cut string-append <> "/lib/gio/modules")
2955 gio-deps))
2956 (effective (read-line (open-pipe*
2957 OPEN_READ
2958 "guile" "-c"
2959 "(display (effective-version))")))
2960 (deps (map (cut assoc-ref inputs <>)
2961 '("emacsy" "guile-lib" "guile-readline"
2962 "shroud")))
2963 (scm-path (map (cut string-append <>
2964 "/share/guile/site/" effective)
2965 `(,out ,@deps)))
2966 (go-path (map (cut string-append <>
2967 "/lib/guile/" effective "/site-ccache")
2968 `(,out ,@deps)))
2969 (progs (map (cut string-append out "/bin/" <>)
2970 '("nomad"))))
2971 (map (cut wrap-program <>
2972 `("GIO_EXTRA_MODULES" ":" prefix ,gio-mod-path)
2973 `("GUILE_LOAD_PATH" ":" prefix ,scm-path)
2974 `("GUILE_LOAD_COMPILED_PATH" ":"
2975 prefix ,go-path))
2976 progs)
2977 #t))))))
2978 (home-page "https://savannah.nongnu.org/projects/nomad/")
2979 (synopsis "Extensible Web Browser in Guile Scheme")
2980 (description "Nomad is an Emacs-like Web Browser built using Webkitgtk and
2981Emacsy. It has a small C layer and most browser features are fully
2982programmable in Guile. It has hooks, keymaps, and self documentation
2983features.")
2984 (license license:gpl3+)))
248965c9
RW
2985
2986(define-public guile-cv
2987 (package
2988 (name "guile-cv")
2989 (version "0.2.1")
2990 (source (origin
2991 (method url-fetch)
2992 (uri (string-append "mirror://gnu/guile-cv/guile-cv-"
2993 version ".tar.gz"))
2994 (sha256
2995 (base32
2996 "0qdf0s2h1xj5lbhnc1pfw69i3zg08pqy2y6869b92ydfis8r82j9"))))
2997 (build-system gnu-build-system)
2998 (arguments
2999 `(#:phases
3000 (modify-phases %standard-phases
3001 (add-after 'unpack 'prepare-build
3002 (lambda* (#:key inputs outputs #:allow-other-keys)
3003 (substitute* "configure"
3004 (("SITEDIR=\"\\$datadir/guile-cv\"")
3005 "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"")
3006 (("SITECCACHEDIR=\"\\$libdir/guile-cv/")
3007 "SITECCACHEDIR=\"$libdir/"))
3008 (substitute* "cv/init.scm"
3009 (("\\(dynamic-link \"libvigra_c\"\\)")
3010 (string-append "(dynamic-link \""
3011 (assoc-ref inputs "vigra-c")
3012 "/lib/libvigra_c\")"))
3013 (("\\(dynamic-link \"libguile-cv\"\\)")
3014 (format #f "~s"
3015 `(dynamic-link
3016 (format #f "~alibguile-cv"
3017 (if (getenv "GUILE_CV_UNINSTALLED")
3018 ""
3019 ,(format #f "~a/lib/"
3020 (assoc-ref outputs "out"))))))))
3021 (setenv "GUILE_CV_UNINSTALLED" "1")
3022 ;; Only needed to satisfy the configure script.
3023 (setenv "LD_LIBRARY_PATH"
3024 (string-append (assoc-ref inputs "vigra-c") "/lib"))
3025 #t)))))
3026 (inputs
3027 `(("vigra" ,vigra)
3028 ("vigra-c" ,vigra-c)
3029 ("guile" ,guile-2.2)))
3030 (native-inputs
3031 `(("texlive" ,(texlive-union (list texlive-booktabs
3032 texlive-lm
3033 texlive-siunitx
3034 texlive-standalone
3035 texlive-xcolor
3036 texlive-fonts-iwona)))
3037 ("pkg-config" ,pkg-config)))
3038 (propagated-inputs
3039 `(("guile-lib" ,guile-lib)))
3040 (home-page "https://www.gnu.org/software/guile-cv/")
3041 (synopsis "Computer vision library for Guile")
3042 (description "Guile-CV is a Computer Vision functional programming library
3043for the Guile Scheme language. It is based on Vigra (Vision with Generic
3044Algorithms), a C++ image processing and analysis library. Guile-CV contains
3045bindings to Vigra C (a C wrapper to most of the Vigra functionality) and is
3046enriched with pure Guile Scheme algorithms, all accessible through a nice,
3047clean and easy to use high level API.")
3048 (license license:gpl3+)))
7ff157c1
RW
3049
3050(define-public guile-ffi-fftw
353fb48f
RW
3051 (let ((commit "294ad9e7491dcb40026d2fec9be2af05263be1c0")
3052 (revision "2"))
7ff157c1
RW
3053 (package
3054 (name "guile-ffi-fftw")
3055 (version (git-version "0" revision commit))
3056 (source (origin
3057 (method git-fetch)
3058 (uri (git-reference
3059 (url "https://github.com/lloda/guile-ffi-fftw.git")
3060 (commit commit)))
3061 (file-name (git-file-name "guile-ffi-fftw" version))
3062 (sha256
3063 (base32
353fb48f 3064 "08j40a5p6a8pgvhffmzb5rfdnrav2mksy3gfjkdqy93jfj1z5afg"))))
7ff157c1
RW
3065 (build-system guile-build-system)
3066 (arguments
3067 `(#:source-directory "mod"
3068 #:phases
3069 (modify-phases %standard-phases
3070 (add-after 'unpack 'prepare-build
3071 (lambda* (#:key inputs #:allow-other-keys)
3072 (substitute* "mod/ffi/fftw.scm"
3073 (("\\(getenv \"GUILE_FFI_FFTW_LIBFFTW3_PATH\"\\)")
3074 (format #f "\"~a/lib\"" (assoc-ref inputs "fftw"))))
3075 #t))
3076 (add-after 'build 'check
3077 (lambda _
3078 (invoke "guile" "-L" "mod"
3079 "-s" "test/test-ffi-fftw.scm"))))))
3080 (inputs
3081 `(("fftw" ,fftw)
3082 ("guile" ,guile-2.2)))
3083 (home-page "https://github.com/lloda/guile-ffi-fftw/")
3084 (synopsis "Access FFTW through Guile's FFI")
3085 (description "This is a minimal set of Guile FFI bindings for the FFTW
3086library's ‘guru interface’. It provides two functions: @code{fftw-dft! rank
3087sign in out} and @code{fftw-dft rank sign in}. These bindings being minimal,
3088there is no support for computing & reusing plans, or split r/i transforms, or
3089anything other than straight complex DFTs.")
353fb48f 3090 (license license:lgpl3+))))
f9ec89f4
TS
3091
3092(define-public srfi-64-driver
3093 (package
3094 (name "srfi-64-driver")
3095 (version "0.1")
3096 (source (origin
3097 (method url-fetch)
3098 (uri (string-append "https://files.ngyro.com/srfi-64-driver/"
3099 "srfi-64-driver-" version ".tar.gz"))
3100 (sha256
3101 (base32
3102 "188b6mb7sjjg0a8zldikinglf40ky8mg8rwh5768gjmch6gkk3ph"))))
3103 (build-system gnu-build-system)
3104 (arguments
3105 `(#:tests? #f
3106 #:phases
3107 (modify-phases %standard-phases
3108 (delete 'build))))
3109 (native-inputs
3110 `(("pkg-config" ,pkg-config)))
3111 (inputs
3112 `(("guile" ,guile-2.2)))
3113 (home-page "https://ngyro.com/software/srfi-64-driver.html")
3114 (synopsis "Automake test driver for SRFI 64 test suites")
3115 (description "This package provides an Automake test driver that can
3116run SRFI 64 test suites. It gives Automake insight into the individual
3117tests being run, resulting clearer and more specific output.")
3118 (license license:gpl3+)))
f6bf4b2c
TS
3119
3120(define-public guile-semver
3121 (package
3122 (name "guile-semver")
85ced665 3123 (version "0.1.1")
f6bf4b2c
TS
3124 (source (origin
3125 (method url-fetch)
3126 (uri (string-append "https://files.ngyro.com/guile-semver/"
3127 "guile-semver-" version ".tar.gz"))
3128 (sha256
3129 (base32
85ced665 3130 "109p4n39ln44cxvwdccf9kgb96qx54makvd2ir521ssz6wchjyag"))))
f6bf4b2c
TS
3131 (build-system gnu-build-system)
3132 (native-inputs
85ced665 3133 `(("pkg-config" ,pkg-config)))
f6bf4b2c
TS
3134 (inputs
3135 `(("guile" ,guile-2.2)))
3136 (home-page "https://ngyro.com/software/guile-semver.html")
3137 (synopsis "Semantic Versioning (SemVer) for Guile")
3138 (description "This Guile library provides tools for reading,
3139comparing, and writing Semantic Versions. It also includes ranges in
3140the style of the Node Package Manager (NPM).")
3141 (license license:gpl3+)))
d67fa5c8 3142
b488b64a
MB
3143(define-public guile3.0-semver
3144 (package
3145 (inherit guile-semver)
3146 (name "guile3.0-semver")
3147 (inputs
3148 `(("guile" ,guile-3.0)))))
3149
d67fa5c8
LC
3150(define-public guile-hashing
3151 (package
3152 (name "guile-hashing")
3153 (version "1.2.0")
3154 (home-page "https://github.com/weinholt/hashing")
3155 (source (origin
3156 (method git-fetch)
3157 (uri (git-reference
3158 (url home-page)
3159 (commit (string-append "v" version))))
3160 (file-name (git-file-name name version))
3161 (sha256
3162 (base32
3163 "1362d3lmpv7slmv1zmr9wy8panq9sjr9787gc2hagd646mpsfpkl"))))
3164 (build-system guile-build-system)
3165 (arguments
3166 `(#:modules ((guix build guile-build-system)
3167 (guix build utils)
3168 (srfi srfi-26)
3169 (ice-9 ftw))
3170 #:implicit-inputs? #f ;needs nothing but Guile
3171 #:phases (modify-phases %standard-phases
3172 (add-before 'build 'move-sls-files
3173 (lambda _
3174 ;; Move the source under hashing/ in order to match
3175 ;; module names, and rename .sls files to .scm.
3176 (define (target file)
3177 (string-append "hashing/" file))
3178
3179 (define (sls->scm sls)
3180 (string-append (string-drop-right sls 4)
3181 ".scm"))
3182
3183 (mkdir "hashing")
3184 (for-each (lambda (file)
3185 (rename-file file (sls->scm file)))
3186 (find-files "." "\\.sls$"))
3187 (for-each (lambda (file)
3188 (rename-file file (target file)))
3189 (scandir "." (cut string-suffix? ".scm" <>)))
3190 (rename-file "private" "hashing/private")
3191 #t)))))
3192 (native-inputs
b6bee63b 3193 `(("guile" ,guile-3.0)))
d67fa5c8
LC
3194 (synopsis "Cryprographic hash functions implemented in Scheme")
3195 (description
3196 "The @code{(hashing @dots{})} modules implement cryptographic hash
3197functions in pure R6RS Scheme: CRC, HMAC, MD5, SHA-1, and SHA-2 (SHA-256,
3198SHA-512).")
3199 (license license:expat)))
f918a8d9 3200
b6bee63b 3201(define-public guile2.2-hashing
f918a8d9
LC
3202 (package
3203 (inherit guile-hashing)
b6bee63b 3204 (name "guile2.2-hashing")
f918a8d9 3205 (native-inputs
318e1a93 3206 `(("guile" ,guile-2.2)))))
ef2b1d2c 3207
b6bee63b
LC
3208(define-public guile3.0-hashing
3209 (deprecated-package "guile3.0-hashing" guile-hashing))
3210
60c9264b
LC
3211(define-public guile-packrat
3212 (package
3213 (name "guile-packrat")
3214 (version "0.1.1")
3215 (home-page "https://github.com/weinholt/packrat")
3216 (source (origin
3217 (method git-fetch)
3218 (uri (git-reference
3219 (url home-page)
3220 (commit (string-append "v" version))))
3221 (file-name (git-file-name name version))
3222 (sha256
3223 (base32
3224 "1aga17164fkhbgllqc7ni6fk5zl8mkmgkl5zcsy67x7ngpyalbby"))))
3225 (build-system guile-build-system)
3226 (arguments
3227 `(#:implicit-inputs? #f ;needs nothing but Guile
3228 #:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch")
3229 #:not-compiled-file-regexp "/extensible\\.scm$"
3230 #:phases (modify-phases %standard-phases
3231 (add-before 'build 'no-srfi-23
3232 (lambda _
3233 (substitute* "packrat.sls"
3234 (("\\(srfi :23 error\\)")
3235 (object->string '(only (guile) error))))
3236 #t)))))
3237 (native-inputs
3238 `(("guile" ,guile-3.0)))
3239 (synopsis "Packrat parser library in R6RS Scheme")
3240 (description
3241 "This is an R6RS Scheme adaptation of the
3242@uref{https://bford.info/packrat/, packrat parsing}. Packrat parsing is a
3243memoizing, backtracking, recursive-descent parsing technique that runs in time
3244and space linear in the size of the input text.")
3245 (license license:expat)))
3246
97a77eab
LC
3247(define-public guile-ac-d-bus
3248 (package
3249 (name "guile-ac-d-bus")
933fdd55 3250 (version "1.0.0-beta.0")
97a77eab
LC
3251 (home-page "https://gitlab.com/weinholt/ac-d-bus/")
3252 (source (origin
3253 (method git-fetch)
3254 (uri (git-reference
3255 (url home-page)
3256 (commit (string-append "v" version))))
3257 (file-name (git-file-name name version))
3258 (sha256
3259 (base32
933fdd55 3260 "0rl809qimhgz6b0rixakb42r2l4g53jr09a2g0s1hxgab0blz0kb"))))
97a77eab
LC
3261 (build-system guile-build-system)
3262 (arguments
3263 `(#:implicit-inputs? #f ;needs nothing but Guile
3264 #:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch")
3265 #:phases (modify-phases %standard-phases
3266 (add-before 'build 'adjust-for-guile
3267 (lambda _
3268 ;; Adjust source file names for Guile.
3269 (define (guile-sls->sls file)
3270 (string-append (string-drop-right
3271 file (string-length ".guile.sls"))
3272 ".sls"))
3273
3274 ;; Remove files targeting other implementations:
3275 ;; *.mosh.sls, etc.
3276 (for-each delete-file
3277 (find-files
3278 "compat"
3279 (lambda (file stat)
3280 (not (string-contains file ".guile.")))))
3281
3282 ;; Rename *.guile.sls to *.sls so the ".guile" bit does
3283 ;; not appear in .go file names.
3284 (for-each (lambda (file)
3285 (rename-file file (guile-sls->sls file)))
3286 (find-files "compat" "\\.guile\\.sls"))
3287
3288 ;; Move directories under d-bus/ to match module names.
3289 (mkdir "d-bus")
3290 (for-each (lambda (directory)
3291 (rename-file directory
3292 (string-append "d-bus/"
3293 directory)))
3294 '("compat" "protocol"))
3295
3296 #t)))))
3297 (native-inputs
3298 `(("guile" ,guile-3.0)))
3299 (propagated-inputs
3300 `(("guile-packrat" ,guile-packrat)))
3301 (synopsis "D-Bus protocol implementation in R6RS Scheme")
3302 (description
3303 "AC/D-Bus is an implementation of the D-Bus wire protocol. D-Bus is an
3304interprocess communication protocol popular on GNU/Linux systems to
3305communicate with a variety of services. Originally designed for desktop
3306environments, it is now used by programs like VLC media player, BlueZ,
3307NetworkManager, Pulseaudio, systemd (including logind and resolved), Polkit,
3308gnome-keyring, and many more.")
3309 (license license:expat)))
3310
ef2b1d2c
RW
3311(define-public guile-webutils
3312 (let ((commit "8541904f761066dc9c27b1153e9a838be9a55299")
3313 (revision "0"))
3314 (package
3315 (name "guile-webutils")
3316 (version (git-version "0.1" revision commit))
3317 (source (origin
3318 (method git-fetch)
3319 (uri (git-reference
3320 (url "https://notabug.org/cwebber/guile-webutils.git")
3321 (commit commit)))
3322 (file-name (git-file-name name version))
3323 (sha256
3324 (base32
3325 "1s9n3hbxd7lfpdi0x8wr0cfvlsf6g62ird9gbspxdrp5p05rbi64"))))
3326 (build-system gnu-build-system)
3327 (native-inputs
3328 `(("autoconf" ,autoconf)
3329 ("automake" ,automake)
3330 ("pkg-config" ,pkg-config)
3331 ("texinfo" ,texinfo)))
3332 (inputs
3333 `(("guile" ,guile-2.2)))
3334 (propagated-inputs
3335 `(("guile-irregex" ,guile-irregex)
3336 ("guile-gcrypt" ,guile-gcrypt)))
3337 (home-page "https://notabug.org/cwebber/guile-webutils")
3338 (synopsis "Web application authoring utilities for Guile")
3339 (description
3340 "This package provides tooling to write web applications in Guile, such
3341as signed sessions, multipart message support, etc.")
3342 (license license:gpl3+))))
5479cef8
RW
3343
3344(define-public guile-lens
3345 (let ((commit "14b15d07255f9d3f55d40a3b750d13c9ee3a154f")
3346 (revision "0"))
3347 (package
3348 (name "guile-lens")
3349 (version (git-version "0.1" revision commit))
3350 (source (origin
3351 (method git-fetch)
3352 (uri (git-reference
3353 (url "https://gitlab.com/a-sassmannshausen/guile-lens.git")
3354 (commit commit)))
3355 (file-name (git-file-name name version))
3356 (sha256
3357 (base32
3358 "0w8jzqyla56yrgj7acsgd4nspyir6zgp3vgxid4xmwhg9wmf1ida"))))
3359 (build-system gnu-build-system)
3360 (arguments
3361 '(#:phases
3362 (modify-phases %standard-phases
3363 (add-after 'unpack 'run-hall
3364 (lambda _
3365 (setenv "HOME" "/tmp") ; for ~/.hall
3366 (invoke "hall" "dist" "-x"))))))
3367 (native-inputs
3368 `(("autoconf" ,autoconf)
3369 ("automake" ,automake)
3370 ("guile" ,guile-2.2)
3371 ("guile-hall" ,guile-hall)
3372 ("pkg-config" ,pkg-config)
3373 ("texinfo" ,texinfo)))
3374 (home-page "https://gitlab.com/a-sassmannshausen/guile-lens.git")
3375 (synopsis "Composable lenses for data structures in Guile")
3376 (description
3377 "Guile-Lens is a library implementing lenses in Guile. The library is
3378currently a re-implementation of the lentes library for Clojure. Lenses
3379provide composable procedures, which can be used to focus, apply functions
3380over, or update a value in arbitrary data structures.")
3381 (license license:gpl3+))))
69bb61f1
AI
3382
3383(define-public guile-xapian
d10e7a34
RW
3384 (package
3385 (name "guile-xapian")
3386 (version "0.1.0")
3387 (home-page "https://git.systemreboot.net/guile-xapian")
3388 (source
3389 (origin
3390 (method git-fetch)
3391 (uri (git-reference (url home-page)
3392 (commit (string-append "v" version))))
3393 (file-name (git-file-name name version))
3394 (sha256
3395 (base32
3396 "16k61f1jn3g48jaf3730b9l0izr5j933jzyri73nmcnjd09gm35i"))))
3397 (build-system gnu-build-system)
3398 (arguments
3399 '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
3400 (inputs
93989aed 3401 `(("guile" ,guile-3.0)
d10e7a34
RW
3402 ("xapian" ,xapian)
3403 ("zlib" ,zlib)))
3404 (native-inputs
3405 `(("autoconf" ,autoconf)
3406 ("autoconf-archive" ,autoconf-archive)
3407 ("automake" ,automake)
3408 ("libtool" ,libtool)
3409 ("pkg-config" ,pkg-config)
3410 ("swig" ,swig)))
3411 (synopsis "Guile bindings for Xapian")
3412 (description "@code{guile-xapian} provides Guile bindings for Xapian, a
69bb61f1
AI
3413search engine library. Xapian is a highly adaptable toolkit which allows
3414developers to easily add advanced indexing and search facilities to their own
3415applications. It has built-in support for several families of weighting
3416models and also supports a rich set of boolean query operators.")
d10e7a34 3417 (license license:gpl2+)))
69bb61f1 3418
93989aed 3419(define-public guile2.2-xapian
69bb61f1
AI
3420 (package
3421 (inherit guile-xapian)
93989aed 3422 (name "guile2.2-xapian")
69bb61f1 3423 (inputs
93989aed 3424 `(("guile" ,guile-2.2)
69bb61f1 3425 ,@(alist-delete "guile" (package-inputs guile-xapian))))))
be789065 3426
93989aed
LC
3427(define-public guile3.0-xapian
3428 (deprecated-package "guile3.0-xapian" guile-xapian))
3429
be789065
AS
3430(define-public guile-torrent
3431 (package
3432 (name "guile-torrent")
3433 (version "0.1.3")
3434 (source (origin (method git-fetch)
3435 (uri (git-reference
3436 (url
3437 "https://github.com/o-nly/torrent.git")
3438 (commit version)))
3439 (file-name (git-file-name name version))
3440 (sha256
3441 (base32
3442 "1yiagi55ncq1x7s9n7salzywjm4l96y3n7y3s47a9anvz87mrmim"))))
3443 (build-system gnu-build-system)
3444 (native-inputs
3445 `(("autoconf" ,autoconf)
3446 ("automake" ,automake)
3447 ("guile" ,guile-2.2)
3448 ("texinfo" ,texinfo)
3449 ("perl" ,perl)
3450 ("pkg-config" ,pkg-config)))
3451 (propagated-inputs
3452 `(("guile-gcrypt" ,guile-gcrypt)))
3453 (home-page "https://github.com/o-nly/torrent")
3454 (synopsis "Torrent library for GNU Guile")
3455 (description "This package provides facilities for working with
3456@code{.torrent} or metainfo files. Implements a bencode reader and writer
3457according to Bitorrent BEP003.")
3458 (license license:gpl3+)))
3c0456c6
RW
3459
3460(define-public guile-irc
3461 (let ((commit "375d3bde9c6ae7ccc9d7cc65817966b6fda8f26a")
3462 (revision "0"))
3463 (package
3464 (name "guile-irc")
3465 (version (git-version "0.3.0" revision commit))
3466 (source (origin
3467 (method git-fetch)
3468 (uri (git-reference
3469 (url "https://github.com/rekado/guile-irc.git")
3470 (commit commit)))
3471 (file-name (git-file-name name version))
3472 (sha256
3473 (base32
3474 "113lcckcywrz9060w1c3fnvr8d7crdsjgsv4h47hgmr1slgadl4y"))))
3475 (build-system gnu-build-system)
3476 (arguments
3477 `(#:configure-flags '("--enable-gnutls=yes")))
3478 (native-inputs
3479 `(("autoconf" ,autoconf)
3480 ("automake" ,automake)
3481 ("texinfo" ,texinfo)))
3482 (inputs
3483 `(("gnutls" ,gnutls)
3484 ("guile" ,guile-2.2)))
3485 (home-page "https://github.com/rekado/guile-irc")
3486 (synopsis "IRC library for Guile")
3487 (description "This package provides a Guile library for @dfn{Internet
3488Relay Chat} (IRC).")
3489 ;; Some file headers incorrectly say LGPLv2+.
3490 (license license:lgpl2.1+))))
8ffc20ef 3491
b141e1d5 3492(define-public guile-websocket
8ffc20ef
ES
3493 (let ((commit "c854e0f84a40d972cbd532bbb89c97ca0126a7cf"))
3494 (package
b141e1d5 3495 (name "guile-websocket")
8ffc20ef
ES
3496 (version "0.1")
3497 (source
3498 (origin
3499 (method git-fetch)
3500 (uri (git-reference
3501 (url "git://dthompson.us/guile-websocket.git")
3502 (commit commit)))
3503 (file-name (git-file-name name version))
3504 (sha256
3505 (base32
3506 "1hymvsfrmq9qxr5cxnsgdz7y757yp1cpsgxmdp3f5wxxxpqgsmzx"))))
3507 (build-system gnu-build-system)
3508 (arguments
3509 '(#:make-flags
3510 '("GUILE_AUTO_COMPILE=0")
3511 #:phases
3512 (modify-phases %standard-phases
3513 ;; The package was developed for Guile 2.0 and has this version
3514 ;; hardcoded in the configure.ac and Makefile.am files. Substitute
3515 ;; 3.0 instead so it can support Guile 3.0.
3516 (add-after 'unpack 'update-guile-version
3517 (lambda _
3518 (substitute* "configure.ac"
3519 (("2.0.9") "3.0.0"))
3520 (substitute* "Makefile.am"
cea91813
LC
3521 (("2.0") "3.0")
3522
3523 ;; Install .go files where they belong.
3524 (("/ccache") "/site-ccache"))
8ffc20ef
ES
3525 #t)))))
3526 (native-inputs
3527 `(("autoconf" ,autoconf)
3528 ("automake" ,automake)))
3529 (inputs
b141e1d5 3530 `(("guile" ,guile-3.0)))
8ffc20ef
ES
3531 (synopsis "Websocket server/client for Guile")
3532 (description "Guile-websocket provides an implementation of the
3533WebSocket protocol as defined by RFC 6455.")
3534 (home-page "https://git.dthompson.us/guile-websocket.git")
3535 (license license:lgpl3+))))
b141e1d5
LC
3536
3537(define-public guile3.0-websocket
3538 (deprecated-package "guile3.0-websocket" guile-websocket))