HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: guile-colorized: Don't use unstable tarball.
[jackhill/guix/guix.git] / gnu / packages / guile-xyz.scm
CommitLineData
0791437f
RW		 1;;; GNU Guix --- Functional package management for GNU
2;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
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>
6;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
7;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com>
8;;; Copyright © 2016 Eraim Flashner <efraim@flashner.co.il>
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>
12;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
13;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
14;;; Copyright © 2017 David Thompson <davet@gnu.org>
15;;; Copyright © 2017, 2018 Mathieu Othacehe <m.othacehe@gmail.com>
16;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
17;;; Copyright © 2017 Nils Gillmann <ng0@n0.is>
18;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
19;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
20;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
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>
0791437f
RW		 24;;;
25;;; This file is part of GNU Guix.
26;;;
27;;; GNU Guix is free software; you can redistribute it and/or modify it
28;;; under the terms of the GNU General Public License as published by
29;;; the Free Software Foundation; either version 3 of the License, or (at
30;;; your option) any later version.
31;;;
32;;; GNU Guix is distributed in the hope that it will be useful, but
33;;; WITHOUT ANY WARRANTY; without even the implied warranty of
34;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
35;;; GNU General Public License for more details.
36;;;
37;;; You should have received a copy of the GNU General Public License
38;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
39
40(define-module (gnu packages guile-xyz)
41 #:use-module ((guix licenses) #:prefix license:)
42 #:use-module (gnu packages)
43 #:use-module (gnu packages aspell)
44 #:use-module (gnu packages autotools)
45 #:use-module (gnu packages base)
46 #:use-module (gnu packages bash)
47 #:use-module (gnu packages compression)
406ef442 48 #:use-module (gnu packages databases)
0791437f
RW		 49 #:use-module (gnu packages disk)
50 #:use-module (gnu packages ed)
15218d4e 51 #:use-module (gnu packages emacs)
5531782d 52 #:use-module (gnu packages emacs-xyz)
0791437f
RW		 53 #:use-module (gnu packages gawk)
54 #:use-module (gnu packages gettext)
55 #:use-module (gnu packages gl)
5531782d 56 #:use-module (gnu packages gnome)
0791437f
RW		 57 #:use-module (gnu packages gperf)
58 #:use-module (gnu packages guile)
59 #:use-module (gnu packages hurd)
60 #:use-module (gnu packages image)
61 #:use-module (gnu packages libffi)
62 #:use-module (gnu packages libunistring)
63 #:use-module (gnu packages linux)
64 #:use-module (gnu packages man)
65 #:use-module (gnu packages maths)
66 #:use-module (gnu packages multiprecision)
67 #:use-module (gnu packages ncurses)
68 #:use-module (gnu packages networking)
406ef442 69 #:use-module (gnu packages perl)
0791437f
RW		 70 #:use-module (gnu packages pkg-config)
71 #:use-module (gnu packages python)
72 #:use-module (gnu packages readline)
73 #:use-module (gnu packages sdl)
74 #:use-module (gnu packages slang)
75 #:use-module (gnu packages sqlite)
76 #:use-module (gnu packages texinfo)
77 #:use-module (gnu packages tls)
78 #:use-module (gnu packages version-control)
79 #:use-module (gnu packages xdisorg)
80 #:use-module (gnu packages xorg)
81 #:use-module (guix packages)
82 #:use-module (guix download)
83 #:use-module (guix git-download)
84 #:use-module (guix build-system gnu)
85 #:use-module (guix build-system guile)
86 #:use-module (guix utils)
87 #:use-module (ice-9 match)
88 #:use-module ((srfi srfi-1) #:select (alist-delete)))
89
90(define-public artanis
cd81199c 91 (let ((release "0.3.1")
fd9a6d83 92 (revision 0))
0791437f
RW		 93 (package
94 (name "artanis")
95 (version (if (zero? revision)
96 release
97 (string-append release "-"
98 (number->string revision))))
99 (source (origin
100 (method url-fetch)
101 (uri (string-append "mirror://gnu/artanis/artanis-"
102 release ".tar.gz"))
103 (file-name (string-append name "-" version ".tar.gz"))
104 (sha256
105 (base32
cd81199c 106 "0hqr5m3mb558bdhkc2sadmd9cbrhp3y525wx7cwirgy6i0zmay68"))
0791437f
RW		 107 (modules '((guix build utils)))
108 (snippet
109 '(begin
cd81199c 110 ;; Unbundle guile-redis and guile-json
0791437f
RW		 111 (delete-file-recursively "artanis/third-party/json.scm")
112 (delete-file-recursively "artanis/third-party/json")
cd81199c 113 (delete-file-recursively "artanis/third-party/redis.scm")
114 (delete-file-recursively "artanis/third-party/redis")
0791437f 115 (substitute* '("artanis/artanis.scm"
cd81199c 116 "artanis/lpc.scm"
0791437f
RW		 117 "artanis/oht.scm")
118 (("(#:use-module \\()artanis third-party (json\\))" _
119 use-module json)
120 (string-append use-module json)))
cd81199c 121 (substitute* '("artanis/lpc.scm"
122 "artanis/session.scm")
123 (("(#:use-module \\()artanis third-party (redis\\))" _
124 use-module redis)
125 (string-append use-module redis)))
0791437f
RW		 126 (substitute* "artanis/oht.scm"
127 (("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)"
128 _ pre json-string post)
129 (string-append pre
130 "scm" json-string
131 post)))
132 (substitute* "artanis/artanis.scm"
133 (("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
134 ""))
135 #t))))
136 (build-system gnu-build-system)
cd81199c 137 ;; FIXME the bundled csv contains one more exported procedure
138 ;; (sxml->csv-string) than guile-csv. The author is maintainer of both
139 ;; projects.
0791437f
RW		 140 ;; TODO: Add guile-dbi and guile-dbd optional dependencies.
141 (inputs `(("guile" ,guile-2.2)
cd81199c 142 ("guile-json" ,guile-json)
143 ("guile-redis" ,guile-redis)))
0791437f
RW		 144 (native-inputs `(("bash" ,bash) ;for the `source' builtin
145 ("pkgconfig" ,pkg-config)
146 ("util-linux" ,util-linux))) ;for the `script' command
147 (arguments
148 '(#:make-flags
149 ;; TODO: The documentation must be built with the `docs' target.
150 (let* ((out (assoc-ref %outputs "out"))
151 (scm (string-append out "/share/guile/site/2.2"))
152 (go (string-append out "/lib/guile/2.2/site-ccache")))
153 ;; Don't use (%site-dir) for site paths.
154 (list (string-append "MOD_PATH=" scm)
155 (string-append "MOD_COMPILED_PATH=" go)))
156 #:test-target "test"
157 #:phases
158 (modify-phases %standard-phases
fd9a6d83
CB		 159 (add-after 'unpack 'patch-site-dir
160 (lambda* (#:key outputs #:allow-other-keys)
161 (substitute* "artanis/commands/help.scm"
162 (("\\(%site-dir\\)")
163 (string-append "\""
164 (assoc-ref outputs "out")
165 "/share/guile/site/2.2\"")))))
0791437f
RW		 166 (add-before 'install 'substitute-root-dir
167 (lambda* (#:key outputs #:allow-other-keys)
168 (let ((out (assoc-ref outputs "out")))
169 (substitute* "Makefile" ;ignore the execution of bash.bashrc
170 ((" /etc/bash.bashrc") " /dev/null"))
171 (substitute* "Makefile" ;set the root of config files to OUT
172 ((" /etc") (string-append " " out "/etc")))
173 (mkdir-p (string-append out "/bin")) ;for the `art' executable
174 #t)))
175 (add-after 'install 'wrap-art
fd9a6d83 176 (lambda* (#:key inputs outputs #:allow-other-keys)
0791437f
RW		 177 (let* ((out (assoc-ref outputs "out"))
178 (bin (string-append out "/bin"))
179 (scm (string-append out "/share/guile/site/2.2"))
180 (go (string-append out "/lib/guile/2.2/site-ccache")))
181 (wrap-program (string-append bin "/art")
fd9a6d83
CB		 182 `("GUILE_LOAD_PATH" ":" prefix
183 (,scm ,(getenv "GUILE_LOAD_PATH")))
184 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
185 (,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
0791437f
RW		 186 #t))))))
187 (synopsis "Web application framework written in Guile")
188 (description "GNU Artanis is a web application framework written in Guile
189Scheme. A web application framework (WAF) is a software framework that is
190designed to support the development of dynamic websites, web applications, web
191services and web resources. The framework aims to alleviate the overhead
192associated with common activities performed in web development. Artanis
193provides several tools for web development: database access, templating
194frameworks, session management, URL-remapping for RESTful, page caching, and
195more.")
196 (home-page "https://www.gnu.org/software/artanis/")
197 (license (list license:gpl3+ license:lgpl3+))))) ;dual license
198
199;; There has not been any release yet.
200(define-public guildhall
201 (let ((commit "2fe2cc539f4b811bbcd69e58738db03eb5a2b778")
202 (revision "1"))
203 (package
204 (name "guildhall")
205 (version (string-append "0-" revision "." (string-take commit 9)))
206 (source (origin
207 (method git-fetch)
208 (uri (git-reference
209 (url "https://github.com/ijp/guildhall.git")
210 (commit commit)))
211 (file-name (string-append name "-" version "-checkout"))
212 (sha256
213 (base32
214 "115bym7bg66h3gs399yb2vkzc2ygriaqsn4zbrg8f054mgy8wzn1"))))
215 (build-system gnu-build-system)
216 (arguments
217 `(#:phases
218 (modify-phases %standard-phases
219 ;; Tests fail without this fix because they try to load the bash
220 ;; executable as a Scheme file. See bug report at
221 ;; https://github.com/ijp/guildhall/issues/22
222 (add-after 'unpack 'fix-bug-22
223 (lambda _
224 (substitute* "Makefile.am"
225 (("TESTS_ENVIRONMENT=.*")
226 "AM_TESTS_ENVIRONMENT=srcdir=$(abs_top_srcdir)/tests/
227TEST_EXTENSIONS = .scm
228SCM_LOG_COMPILER= $(top_builddir)/env $(GUILE)
229AM_SCM_LOG_FLAGS = --no-auto-compile -s")
230 ;; FIXME: one of the database tests fails for unknown
231 ;; reasons. It does not fail when run outside of Guix.
232 (("tests/database.scm") ""))
233 #t)))))
234 (inputs
235 `(("guile" ,guile-2.0)))
236 (native-inputs
237 `(("zip" ,zip) ; for tests
238 ("autoconf" ,autoconf)
239 ("automake" ,automake)
240 ("texinfo" ,texinfo)))
241 (synopsis "Package manager for Guile")
242 (description
243 "Guildhall is a package manager written for Guile Scheme. A guild is
244an association of independent craftspeople. A guildhall is where they meet.
245This Guildhall aims to make a virtual space for Guile wizards and journeyfolk
246to share code.
247
248On a practical level, Guildhall lets you share Scheme modules and programs
249over the internet, and install code that has been shared by others. Guildhall
250can handle dependencies, so when a program requires several libraries, and
251each of those has further dependencies, all of the prerequisites for the
252program can be installed in one go.")
253 (home-page "https://github.com/ijp/guildhall")
254 (license license:gpl3+))))
255
256(define-public guile-aspell
257 (package
258 (name "guile-aspell")
259 (version "0.4")
260 (source (origin
261 (method url-fetch)
262 (uri (string-append
263 "http://lonelycactus.com/tarball/guile_aspell-"
264 version ".tar.gz"))
265 (sha256
266 (base32
267 "0vpk5xj9m9qc702z3khmkwhgpb949qbsyz8kw2qycda6qnxk0077"))))
268 (build-system gnu-build-system)
269 (arguments
270 '(#:phases (modify-phases %standard-phases
271 (add-before 'configure 'set-guilesitedir
272 (lambda _
273 (substitute* "Makefile.in"
274 (("^guilesitedir =.*$")
275 "guilesitedir = \
276$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
277 #t))
278 (add-before 'build 'set-libaspell-file-name
279 (lambda* (#:key inputs #:allow-other-keys)
280 (let ((aspell (assoc-ref inputs "aspell")))
281 (substitute* "aspell.scm"
282 (("\"libaspell\\.so\"")
283 (string-append "\"" aspell
284 "/lib/libaspell\"")))
285 #t))))))
286 (native-inputs `(("pkg-config" ,pkg-config)))
287 (inputs `(("guile" ,guile-2.2)
288 ("aspell" ,aspell)))
289 (home-page "https://github.com/spk121/guile-aspell")
290 (synopsis "Spell-checking from Guile")
291 (description
292 "guile-aspell is a Guile Scheme library for comparing a string against a
293dictionary and suggesting spelling corrections.")
294 (license license:gpl3+)))
295
296(define-public guile-bash
297 ;; This project is currently retired. It was initially announced here:
298 ;; <https://lists.gnu.org/archive/html/guile-user/2015-02/msg00003.html>.
299 (let ((commit "1eabc563ca5692b3e08d84f1f0e6fd2283284469")
300 (revision "0"))
301 (package
302 (name "guile-bash")
303 (version (string-append "0.1.6-" revision "." (string-take commit 7)))
304 (home-page
305 "https://anonscm.debian.org/cgit/users/kaction-guest/retired/dev.guile-bash.git")
306 (source (origin
307 (method git-fetch)
308 (uri (git-reference
309 (commit commit)
310 (url home-page)))
311 (sha256
312 (base32
313 "097vny990wp2qpjij6a5a5gwc6fxzg5wk56inhy18iki5v6pif1p"))
314 (file-name (string-append name "-" version "-checkout"))))
315 (build-system gnu-build-system)
316 (arguments
317 '(#:configure-flags
318 ;; Add -I to match 'bash.pc' of Bash 4.4.
319 (list (string-append "CPPFLAGS=-I"
320 (assoc-ref %build-inputs "bash:include")
321 "/include/bash/include")
322
323 ;; The '.a' file is useless.
324 "--disable-static"
325
326 ;; Install 'lib/bash' as Bash 4.4 expects.
327 (string-append "--libdir=" (assoc-ref %outputs "out")
328 "/lib/bash"))))
329 (native-inputs `(("pkg-config" ,pkg-config)
330 ("autoconf" ,autoconf-wrapper)
331 ("automake" ,automake)
332 ("libtool" ,libtool)
333 ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
334 ("gettext" ,gettext-minimal)
335
336 ;; Bash with loadable module support, for the test
337 ;; suite.
338 ("bash-full" ,bash)))
339 (inputs `(("guile" ,guile-2.0)
340 ("bash:include" ,bash "include")))
341 (synopsis "Extend Bash using Guile")
342 (description
343 "Guile-Bash provides a shared library and set of Guile modules,
344allowing you to extend Bash in Scheme. Scheme interfaces allow you to access
345the following aspects of Bash:
346
347@itemize
348@item aliases;
349@item setting and getting Bash variables;
350@item creating dynamic variables;
351@item creating Bash functions with a Scheme implementation;
352@item reader macro for output capturing;
353@item reader macro for evaluating raw Bash commands.
354@end itemize
355
356To enable it, run:
357
358@example
359enable -f ~/.guix-profile/lib/bash/libguile-bash.so scm
360@end example
361
362and then run @command{scm example.scm}.")
363 (license license:gpl3+))))
364
365(define-public guile-8sync
366 (package
367 (name "guile-8sync")
368 (version "0.4.2")
369 (source (origin
370 (method url-fetch)
371 (uri (string-append "mirror://gnu/8sync/8sync-" version
372 ".tar.gz"))
373 (sha256
374 (base32
375 "031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
376 (build-system gnu-build-system)
377 (native-inputs `(("autoconf" ,autoconf)
378 ("automake" ,automake)
379 ("guile" ,guile-2.2)
380 ("pkg-config" ,pkg-config)
381 ("texinfo" ,texinfo)))
382 (arguments
383 `(#:phases (modify-phases %standard-phases
384 (add-before 'configure 'setenv
385 (lambda _
386 ;; quiet warnings
387 (setenv "GUILE_AUTO_COMPILE" "0")
388 #t)))))
389 (home-page "https://gnu.org/s/8sync/")
390 (synopsis "Asynchronous actor model library for Guile")
391 (description
392 "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
393library for GNU Guile based on the actor model.
394
395Note that 8sync is only available for Guile 2.2.")
396 (license license:lgpl3+)))
397
398(define-public guile-daemon
399 (package
400 (name "guile-daemon")
401 (version "0.1.2")
402 (source (origin
403 (method url-fetch)
404 (uri (string-append "https://github.com/alezost/" name
405 "/releases/download/v" version
406 "/" name "-" version ".tar.gz"))
407 (sha256
408 (base32
409 "0hh6gq6b6phpxm0b1dkxyzj3f4sxdf7dji63609lzypa5v1ad2gv"))))
410 (build-system gnu-build-system)
411 (native-inputs
412 `(("pkg-config" ,pkg-config)))
413 (inputs
414 `(("guile" ,guile-2.2)))
415 (home-page "https://github.com/alezost/guile-daemon")
416 (synopsis "Evaluate code in a running Guile process")
417 (description
418 "Guile-Daemon is a small Guile program that loads your initial
419configuration file, and then reads and evaluates Guile expressions that
420you send to a FIFO file.")
421 (license license:gpl3+)))
422
423(define-public guile-dsv
424 (package
425 (name "guile-dsv")
426 (version "0.2.1")
427 (source (origin
428 (method git-fetch)
429 (uri (git-reference
430 (url "https://github.com/artyom-poptsov/guile-dsv")
431 (commit "bdc5267d007478abc20ea96d7c459b7dd9560b3d")))
432 (file-name (string-append name "-" version "-checkout"))
433 (sha256
434 (base32
435 "1irw6mz8998nwyhzrw9g94jcz60b9zljgqfmipaz1ybn8579qjx0"))))
436 (build-system gnu-build-system)
437 (native-inputs
438 `(("autoconf" ,autoconf)
439 ("automake" ,automake)
440 ("pkg-config" ,pkg-config)
441 ("texinfo" ,texinfo)))
442 (inputs `(("guile" ,guile-2.2)))
443 (propagated-inputs `(("guile-lib" ,guile-lib)))
444 (arguments
445 '(#:phases (modify-phases %standard-phases
446 (add-before 'configure 'set-guilesitedir
447 (lambda _
448 (substitute* "Makefile.in"
449 (("^guilesitedir =.*$")
450 "guilesitedir = \
451$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
452 (substitute* "modules/Makefile.in"
453 (("^guilesitedir =.*$")
454 "guilesitedir = \
455$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
456 (substitute* "modules/dsv/Makefile.in"
457 (("^guilesitedir =.*$")
458 "guilesitedir = \
459$(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
460 #t)))))
461 (home-page "https://github.com/artyom-poptsov/guile-dsv")
462 (synopsis "DSV module for Guile")
463 (description
464 "Guile-DSV is a GNU Guile module for working with the
465delimiter-separated values (DSV) data format. Guile-DSV supports the
466Unix-style DSV format and RFC 4180 format.")
467 (license license:gpl3+)))
468
469(define-public guile-fibers
470 (package
471 (name "guile-fibers")
472 (version "1.0.0")
473 (source (origin
474 (method url-fetch)
475 (uri (string-append "https://wingolog.org/pub/fibers/fibers-"
476 version ".tar.gz"))
477 (sha256
478 (base32
479 "0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0"))))
480 (build-system gnu-build-system)
481 (arguments
482 '(#:phases (modify-phases %standard-phases
483 (add-after 'install 'mode-guile-objects
484 (lambda* (#:key outputs #:allow-other-keys)
485 ;; .go files are installed to "lib/guile/X.Y/cache".
486 ;; This phase moves them to "…/site-ccache".
487 (let* ((out (assoc-ref outputs "out"))
488 (lib (string-append out "/lib/guile"))
489 (old (car (find-files lib "^ccache$"
490 #:directories? #t)))
491 (new (string-append (dirname old)
492 "/site-ccache")))
493 (rename-file old new)
494 #t))))))
495 (native-inputs
496 `(("texinfo" ,texinfo)
497 ("pkg-config" ,pkg-config)))
498 (inputs
499 `(("guile" ,guile-2.2)))
500 (synopsis "Lightweight concurrency facility for Guile")
501 (description
502 "Fibers is a Guile library that implements a a lightweight concurrency
503facility, inspired by systems like Concurrent ML, Go, and Erlang. A fiber is
504like a \"goroutine\" from the Go language: a lightweight thread-like
505abstraction. Systems built with Fibers can scale up to millions of concurrent
506fibers, tens of thousands of concurrent socket connections, and many parallel
507cores. The Fibers library also provides Concurrent ML-like channels for
508communication between fibers.
509
510Note that Fibers makes use of some Guile 2.1/2.2-specific features and
511is not available for Guile 2.0.")
512 (home-page "https://github.com/wingo/fibers")
513 (license license:lgpl3+)))
514
515(define-public guile-syntax-highlight
516 (package
517 (name "guile-syntax-highlight")
518 (version "0.1")
519 (source (origin
520 (method url-fetch)
521 (uri (string-append "https://files.dthompson.us/"
522 "guile-syntax-highlight/"
523 "guile-syntax-highlight-"
524 version ".tar.gz"))
525 (sha256
526 (base32
527 "1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi"))))
528 (build-system gnu-build-system)
529 (native-inputs
530 `(("pkg-config" ,pkg-config)))
531 (inputs
532 `(("guile" ,guile-2.2)))
533 (synopsis "General-purpose syntax highlighter for GNU Guile")
534 (description "Guile-syntax-highlight is a general-purpose syntax
535highlighting library for GNU Guile. It can parse code written in various
536programming languages into a simple s-expression that can be converted to
537HTML (via SXML) or any other format for rendering.")
538 (home-page "http://dthompson.us/projects/guile-syntax-highlight.html")
539 (license license:lgpl3+)))
540
541(define-public guile-sjson
542 (package
543 (name "guile-sjson")
544 (version "0.2.1")
545 (source (origin
546 (method url-fetch)
547 (uri (string-append "https://dustycloud.org/misc/sjson-" version
548 ".tar.gz"))
549 (sha256
550 (base32
551 "1mzmapln79vv10qxaggz9qwcdbag3jnrj19xx8bgkmxss8h03sv3"))))
552 (build-system gnu-build-system)
553 (native-inputs
554 `(("autoconf" ,autoconf)
555 ("automake" ,automake)
556 ("pkg-config" ,pkg-config)))
557 (inputs
558 `(("guile" ,guile-2.2)))
559 (home-page "https://gitlab.com/dustyweb/guile-sjson")
560 (synopsis "S-expression based json reader/writer for Guile")
561 (description "guile-sjson is a json reader/writer for Guile.
562It has a nice, simple s-expression based syntax.")
563 (license license:lgpl3+)))
564
61dafdc0
CB		 565(define-public guile-squee
566 (let ((commit "a85902a92bf6f58a1d35fd974a01ade163deda8d")
567 (revision "0"))
568 (package
569 (name "guile-squee")
570 (version (string-append "0-" revision "." (string-take commit 7)))
571 (source (origin
572 (method git-fetch)
573 (uri (git-reference
574 (url "https://notabug.org/cwebber/guile-squee.git")
575 (commit commit)))
576 (file-name (git-file-name name version))
577 (sha256
578 (base32
579 "0p1lpsp4kx57j3ai1dkxilm4ziavzzx8wbbc42m3hpziq0a7qz5z"))))
580 (build-system guile-build-system)
581 (arguments
582 '(#:phases
583 (modify-phases %standard-phases
584 (add-after 'unpack 'patch
585 (lambda* (#:key inputs #:allow-other-keys)
586 (substitute* "squee.scm"
587 (("dynamic-link \"libpq\"")
588 (string-append
589 "dynamic-link \""
590 (assoc-ref inputs "postgresql") "/lib/libpq.so"
591 "\"")))
592 #t)))))
593 (inputs
594 `(("postgresql" ,postgresql)))
595 (native-inputs
596 `(("guile" ,guile-2.2)))
597 (home-page "https://notabug.org/cwebber/guile-squee")
598 (synopsis "Connect to PostgreSQL using Guile")
599 (description
600 "@code{squee} is a Guile library for connecting to PostgreSQL databases
601using Guile's foreign function interface.")
6fd72f70 602 (license license:lgpl3+))))
61dafdc0 603
0791437f
RW		 604(define-public guile-colorized
605 (package
606 (name "guile-colorized")
607 (version "0.1")
1340ce28
TGR		 608 (source
609 (origin
610 (method git-fetch)
611 (uri (git-reference
612 (url "https://github.com/NalaGinrut/guile-colorized.git")
613 (commit (string-append "v" version))))
614 (file-name (git-file-name name version))
615 (sha256
616 (base32 "10mv8c63159r3qvwwdvsgnsvdg7nc2ghak85zapwqpv4ywrqp9zc"))))
0791437f
RW		 617 (build-system guile-build-system)
618 (native-inputs
619 `(("guile" ,guile-2.2)))
620 (home-page "https://github.com/NalaGinrut/guile-colorized")
621 (synopsis "Colorized REPL for Guile")
622 (description
623 "Guile-colorized provides you with a colorized REPL for GNU Guile.")
624 (license license:gpl3+)))
625
626(define-public guile-pfds
627 (package
628 (name "guile-pfds")
629 (version "0.3")
630 (home-page "https://github.com/ijp/pfds")
631 (source (origin
632 (method git-fetch)
633 (uri (git-reference
634 (url home-page)
635 (commit (string-append "v" version))))
636 (sha256
637 (base32
638 "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh"))
639 (file-name (string-append name "-" version "-checkout"))))
640 (build-system guile-build-system)
641 (arguments
642 '(#:source-directory "src"
643 #:phases (modify-phases %standard-phases
644 (add-after 'unpack 'move-files-around
645 (lambda _
646 ;; Move files under a pfds/ directory to reflect the
647 ;; module hierarchy.
648 (mkdir-p "src/pfds")
649 (for-each (lambda (file)
650 (rename-file file
651 (string-append "src/pfds/"
652 file)))
653 '("bbtrees.sls"
654 "deques"
655 "deques.sls"
656 "dlists.sls"
657 "fingertrees.sls"
658 "hamts.sls"
659 "heaps.sls"
660 "private"
661 "psqs.sls"
662 "queues"
663 "queues.sls"
664 "sequences.sls"
665 "sets.sls"))
666
667 ;; In Guile <= 2.2.4, there's no way to tell 'guild
668 ;; compile' to accept the ".sls" extension. So...
669 (for-each (lambda (file)
670 (rename-file file
671 (string-append
672 (string-drop-right file 4)
673 ".scm")))
674 (find-files "." "\\.sls$"))
675 #t)))))
676 (native-inputs
677 `(("guile" ,guile-2.2)))
678 (synopsis "Purely functional data structures for Guile")
679 (description
680 "This package provides purely functional data structures written in R6RS
681Scheme and compiled for Guile. It has been tested with Racket, Guile 2,
682Vicare Scheme and IronScheme. Right now it contains:
683
684@itemize
685@item queues
686@item deques
687@item bbtrees
688@item sets
689@item dlists
690@item priority search queues (PSQs)
691@item finger trees
692@item sequences
693@item heaps
694@item hash array mapped tries (HAMTs).
695@end itemize\n")
696 (license license:bsd-3)))
697
698(define-public guile-aa-tree
699 (package
700 (name "guile-aa-tree")
701 (version "3.1.1")
702 (source (origin
703 (method url-fetch)
704 (uri (string-append "mirror://savannah/guile-aa-tree/guile-aa-tree-"
705 version ".tar.gz"))
706 (sha256
707 (base32
708 "0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh"))))
709 (build-system guile-build-system)
710 (native-inputs `(("guile" ,guile-2.2)))
711 ;; https://savannah.nongnu.org/projects/guile-aa-tree
712 (home-page "https://qlfiles.net/guile-aa-tree/")
713 (synopsis "AA tree data structure for Guile")
714 (description
715 "This package provides an implementation of @dfn{AA trees}, a
716self-balancing binary tree data structure, for Guile. It ensure @math{O(log
717n)} worst case performance for core operations. The module provides
718non-mutating insert, delete, and search operations, with support for
719convenient nested tree operations.")
720 (license license:gpl3+)))
721
722(define-public guile-simple-zmq
723 (let ((commit "68bedb6679716214fb9d3472da57544526f7a618")
724 (revision "3"))
725 (package
726 (name "guile-simple-zmq")
727 (version (git-version "0.0.0" revision commit))
728 (source
729 (origin
730 (method git-fetch)
731 (uri (git-reference
732 (url "https://github.com/jerry40/guile-simple-zmq")
733 (commit commit)))
734 (sha256
735 (base32
736 "1ad3xg69qqviy1f6dnlw0ysmfdbmp1jq65rfqb8nfd8dsrq2syli"))
737 (file-name (git-file-name name version))))
738 (build-system guile-build-system)
739 (arguments
740 `(#:source-directory "src"
741 #:phases (modify-phases %standard-phases
742 (add-after 'unpack 'set-libzmq-file-name
743 (lambda* (#:key inputs #:allow-other-keys)
744 (substitute* "src/simple-zmq.scm"
745 (("\\(dynamic-link \"libzmq\"\\)")
746 (format #f "(dynamic-link \"~a/lib/libzmq.so\")"
747 (assoc-ref inputs "zeromq"))))
748 #t)))))
749 (native-inputs
750 `(("guile" ,guile-2.2)))
751 (inputs
752 `(("zeromq" ,zeromq)))
753 (home-page "https://github.com/jerry40/guile-simple-zmq")
754 (synopsis "Guile wrapper over ZeroMQ library")
755 (description
756 "This package provides a Guile programming interface to the ZeroMQ
757messaging library.")
758 (license license:gpl3+))))
759
760(define-public jupyter-guile-kernel
761 (let ((commit "a7db9245a886e104138474df46c3e88b95cff629")
762 (revision "1"))
763 (package
764 (name "jupyter-guile-kernel")
765 (version (git-version "0.0.0" revision commit))
766 (source
767 (origin
768 (method git-fetch)
769 (uri (git-reference
770 (url "https://github.com/jerry40/guile-kernel")
771 (commit commit)))
772 (sha256
773 (base32
774 "0aj04853bqm47ivfcmrgpb7w3wkis847kc7qrwsa5zcn9h38qh2f"))))
775 (build-system guile-build-system)
776 (arguments
777 '(#:phases (modify-phases %standard-phases
778 (add-after 'unpack 'set-openssl-file-name
779 (lambda* (#:key inputs #:allow-other-keys)
780 ;; Record the absolute file name of the 'openssl'
781 ;; command.
782 (substitute* "src/hmac.scm"
783 (("openssl")
784 (string-append (assoc-ref inputs "openssl")
785 "/bin/openssl")))
786 #t))
787
788 ;; XXX: The code uses 'include' to include its own source
789 ;; files, and "-L src" isn't enough in this case.
790 (add-before 'build 'chdir
791 (lambda _ (chdir "src") #t))
792 (add-after 'build 'chdir-back
793 (lambda _ (chdir "..") #t))
794
795 (add-after 'install 'install-kernel
796 (lambda* (#:key inputs outputs #:allow-other-keys)
797 (let* ((out (assoc-ref outputs "out"))
798 (json (assoc-ref inputs "guile-json"))
799 (zmq (assoc-ref inputs "guile-simple-zmq"))
800 (deps (list json zmq))
801 (dir (string-append
802 out "/share/jupyter/kernels/guile"))
803 (effective (target-guile-effective-version)))
804 ;; Install kernel.
805 (install-file "src/kernel.json" dir)
806
807 ;; Fix hard-coded file name in the kernel.
808 (substitute* (string-append dir "/kernel.json")
809 (("/home/.*/guile-jupyter-kernel.scm")
810 (string-append out "/share/guile/site/"
811 (target-guile-effective-version)
812 "/guile-jupyter-kernel.scm"))
813 (("\"guile\"")
814 (string-append "\"" (assoc-ref inputs "guile")
815 "/bin/guile\""))
816 (("-s")
817 ;; Add '-L' and '-C' flags so that the kernel
818 ;; finds its dependencies.
819 (let ((-L (map (lambda (item)
820 (string-append "\"" item
821 "/share/guile/site/"
822 effective "\""))
823 deps))
824 (-C (map (lambda (item)
825 (string-append "\"" item
826 "/lib/guile/"
827 effective
828 "/site-ccache\""))
829 deps)))
830 (string-append "--no-auto-compile\""
831 (string-join -L ", \"-L\", "
832 'prefix)
833 (string-join -C ", \"-C\", "
834 'prefix)
835 ", \"-s"))))
836 #t))))))
837 (inputs
838 `(("openssl" ,openssl)
839 ("guile" ,guile-2.2)
840 ("guile-json" ,guile-json)
841 ("guile-simple-zmq" ,guile-simple-zmq)))
842 (synopsis "Guile kernel for the Jupyter Notebook")
843 (description
844 "This package provides a Guile 2.x kernel for the Jupyter Notebook. It
845allows users to interact with the Guile REPL through Jupyter.")
846 (home-page "https://github.com/jerry40/guile-kernel")
847 (license license:gpl3+))))
848
849(define-public guile-sparql
850 (package
851 (name "guile-sparql")
852 (version "0.0.7")
853 (source (origin
854 (method url-fetch)
855 (uri (string-append
856 "https://github.com/roelj/guile-sparql/releases/download/"
857 version "/guile-sparql-" version ".tar.gz"))
858 (sha256
859 (base32 "1drnvhsgl0gc5crmb16yyw1j98nkhwwcgssv9vgm36ng43nnzffd"))))
860 (build-system gnu-build-system)
861 (arguments `(#:tests? #f)) ; There are no tests.
862 (native-inputs
863 `(("pkg-config" ,pkg-config)))
864 (inputs
865 `(("guile" ,guile-2.2)))
866 (home-page "https://github.com/roelj/guile-sparql")
867 (synopsis "SPARQL module for Guile")
868 (description "This package provides the functionality to query a SPARQL
869endpoint. Additionally, it provides an interface to write SPARQL queries
870using S-expressions.")
871 (license license:gpl3+)))
872
873(define-public guile-debbugs
874 (package
875 (name "guile-debbugs")
876 (version "0.0.2")
877 (source (origin
878 (method url-fetch)
879 (uri (string-append "mirror://gnu/guile-debbugs/guile-debbugs-"
880 version ".tar.gz"))
881 (sha256
882 (base32
883 "16l8910p57im6s3j93xhdaqvgfy6ms5n97177mrch3y961z5hy0i"))
884 (modules '((guix build utils)))
885 (snippet
886 '(substitute* "Makefile.in"
887 (("^godir = (.*)/ccache" _ prefix)
888 (string-append "godir = " prefix "/site-ccache"))))))
889 (build-system gnu-build-system)
890 (native-inputs
891 `(("guile" ,guile-2.2)
892 ("pkg-config" ,pkg-config)))
893 (home-page "https://savannah.gnu.org/projects/guile-debbugs/")
894 (synopsis "Guile interface to the Debbugs bug tracking service")
895 (description
896 "This package provides a Guile library to communicate with a Debbugs bug
897tracker's SOAP service, such as @url{https://bugs.gnu.org}.")
898 (license license:gpl3+)))
899
900(define-public guile-email
901 (let ((commit "fa52eac55e5946db89621a6c583d2aa357864dee")
902 (revision "1"))
903 (package
904 (name "guile-email")
905 (version (git-version "0.1.0" revision commit))
906 (source
907 (origin
908 (method git-fetch)
909 (uri (git-reference
910 (url "https://git.systemreboot.net/guile-email")
911 (commit commit)))
912 (file-name (git-file-name name version))
913 (sha256
914 (base32
915 "1037mbz7qd9bzaqp8ysyhnl9ipd97fmj3b9jr8qfzx9179vvsj63"))))
916 (build-system gnu-build-system)
917 (native-inputs
918 `(("pkg-config" ,pkg-config)
919 ("autoconf" ,autoconf)
920 ("automake" ,automake)))
921 (inputs
922 `(("guile" ,guile-2.2)))
923 (home-page "https://git.systemreboot.net/guile-email")
924 (synopsis "Guile email parser")
925 (description "This package provides an email parser written in pure
926Guile.")
927 (license license:agpl3+))))
928
929(define-public guile-debbugs-next
930 (let ((commit "75a331d561c8b6f8efcf16216dab961c17759efe")
931 (revision "1"))
932 (package (inherit guile-debbugs)
933 (name "guile-debbugs")
934 (version (git-version "0.0.3" revision commit))
935 (source (origin
936 (method git-fetch)
937 (uri (git-reference
938 (url "https://git.savannah.gnu.org/git/guile-debbugs.git")
939 (commit commit)))
940 (file-name (git-file-name name version))
941 (sha256
942 (base32
943 "0br3mgbw41bpc9x57jlghl0i8dz9nl63r4wzs5l47aqszf84870y"))))
944 (build-system gnu-build-system)
945 (native-inputs
946 `(("pkg-config" ,pkg-config)
947 ("autoconf" ,autoconf)
948 ("automake" ,automake)
949 ("texinfo" ,texinfo)))
950 (inputs
951 `(("guile" ,guile-2.2)
952 ("guile-email" ,guile-email))))))
953
954;; There has not been any release yet.
955(define-public guile-newt
956 (let ((commit "80c1e9e71945f833386d1632b52573e59325804f")
957 (revision "4"))
958 (package
959 (name "guile-newt")
960 (version (string-append "0-" revision "." (string-take commit 9)))
961 (source (origin
962 (method git-fetch)
963 (uri (git-reference
964 (url "https://gitlab.com/mothacehe/guile-newt")
965 (commit commit)))
966 (file-name (string-append name "-" version "-checkout"))
967 (sha256
968 (base32
969 "1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695"))))
970 (build-system gnu-build-system)
971 (arguments
972 '(#:make-flags
973 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
974 (inputs
975 `(("guile" ,guile-2.2)
976 ("newt" ,newt)))
977 (native-inputs
978 `(("autoconf" ,autoconf)
979 ("automake" ,automake)
980 ("pkg-config" ,pkg-config)))
981 (synopsis "Guile bindings to Newt")
982 (description
983 "This package provides bindings for Newt, a programming library for
984color text mode, widget based user interfaces. The bindings are written in pure
985Scheme by using Guile’s foreign function interface.")
986 (home-page "https://gitlab.com/mothacehe/guile-newt")
987 (license license:gpl3+))))
988
989(define-public guile-mastodon
990 (package
991 (name "guile-mastodon")
992 (version "0.0.1")
993 (source (origin
994 (method git-fetch)
995 (uri (git-reference
996 (url "https://framagit.org/prouby/guile-mastodon.git")
997 (commit (string-append "v" version))))
998 (file-name (git-file-name name version))
999 (sha256
1000 (base32
1001 "1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))))
1002 (build-system gnu-build-system)
1003 (native-inputs
1004 `(("autoconf" ,autoconf)
1005 ("automake" ,automake)
1006 ("pkg-config" ,pkg-config)))
1007 (inputs
1008 `(("guile" ,guile-2.2)
1009 ("gnutls" ,gnutls)
1010 ("guile-json" ,guile-json)))
1011 (home-page "https://framagit.org/prouby/guile-mastodon")
1012 (synopsis "Guile Mastodon REST API module")
1013 (description "This package provides Guile modules to access the
1014@uref{https://docs.joinmastodon.org/api/, REST API of Mastodon}, a federated
1015microblogging service.")
1016 (license license:gpl3+)))
1017
1018;; There has not been any release yet.
1019(define-public guile-parted
1020 (let ((commit "ea3f1a1f6844775fc59d3078d2a09c62ffb341b8")
1021 (revision "0"))
1022 (package
1023 (name "guile-parted")
1024 (version (string-append "0-" revision "." (string-take commit 9)))
1025 (source (origin
1026 (method git-fetch)
1027 (uri (git-reference
1028 (url "https://gitlab.com/mothacehe/guile-parted")
1029 (commit commit)))
1030 (file-name (string-append name "-" version "-checkout"))
1031 (sha256
1032 (base32
1033 "1q7425gpjlwi2wvhzq7kw046yyx7v6j6jyzkd1cr861iz34mjwiq"))))
1034 (build-system gnu-build-system)
1035 (arguments
1036 '(#:make-flags
1037 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
1038 (inputs
1039 `(("guile" ,guile-2.2)
1040 ("parted" ,parted)))
1041 (propagated-inputs
1042 `(("guile-bytestructures" ,guile-bytestructures)))
1043 (native-inputs
1044 `(("autoconf" ,autoconf)
1045 ("automake" ,automake)
1046 ("pkg-config" ,pkg-config)))
1047 (synopsis "Guile bindings to GNU Parted")
1048 (description
1049 "This package provides bindings for GNU Parted library, a C library
1050allowing disk partition tables creation and manipulation. The bindings are
1051written in pure Scheme by using Guile's foreign function interface.")
1052 (home-page "https://gitlab.com/mothacehe/guile-parted")
1053 (license license:gpl3+))))
1054
1055(define-public guile-xosd
1056 (package
1057 (name "guile-xosd")
1058 (version "0.2.1")
1059 (source (origin
1060 (method url-fetch)
1061 (uri (string-append "https://github.com/alezost/" name
1062 "/releases/download/v" version
1063 "/" name "-" version ".tar.gz"))
1064 (sha256
1065 (base32
1066 "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
1067 (build-system gnu-build-system)
1068 (native-inputs
1069 `(("pkg-config" ,pkg-config)))
1070 (inputs
1071 `(("guile" ,guile-2.2)
1072 ("libx11" ,libx11)
1073 ("libxext" ,libxext)
1074 ("libxinerama" ,libxinerama)
1075 ("xosd" ,xosd)))
1076 (home-page "https://github.com/alezost/guile-xosd")
1077 (synopsis "XOSD bindings for Guile")
1078 (description
1079 "Guile-XOSD provides Guile bindings for @code{libxosd},
1080@uref{http://sourceforge.net/projects/libxosd/, the X On Screen Display
1081library}.")
1082 (license license:gpl3+)))
1083
1084(define-public guile-dbi
1085 (package
1086 (name "guile-dbi")
1087 (version "2.1.6")
1088 (source (origin
1089 (method url-fetch)
1090 (uri (string-append
1091 "http://download.gna.org/guile-dbi/guile-dbi-"
1092 version ".tar.gz"))
1093 (sha256
1094 (base32
1095 "116njrprhgrsv1qm904sp3b02rq01fx639r433d657gyhw3x159n"))))
1096 (build-system gnu-build-system)
1097 (arguments
1098 '(#:configure-flags
1099 (list (string-append
1100 "--with-guile-site-dir=" %output "/share/guile/site/2.2"))
1101 #:make-flags
406ef442
CB		 1102 (list (string-append
1103 "LDFLAGS=-Wl,-rpath=" %output "/lib:"
1104 (assoc-ref %build-inputs "guile-dbd-sqlite3") "/lib" ":"
1105 (assoc-ref %build-inputs "guile-dbd-postgresql") "/lib"))
0791437f
RW		 1106 #:phases
1107 (modify-phases %standard-phases
1108 (add-after 'install 'patch-extension-path
1109 (lambda* (#:key outputs #:allow-other-keys)
1110 (let* ((out (assoc-ref outputs "out"))
1111 (dbi.scm (string-append
1112 out "/share/guile/site/2.2/dbi/dbi.scm"))
1113 (ext (string-append out "/lib/libguile-dbi")))
1114 (substitute* dbi.scm (("libguile-dbi") ext))
1115 #t))))))
1116 (inputs
406ef442
CB		 1117 `(("guile-dbd-sqlite3" ,guile-dbd-sqlite3)
1118 ("guile-dbd-postgresql" ,guile-dbd-postgresql))) ; only shared library, no scheme files
0791437f
RW		 1119 (propagated-inputs
1120 `(("guile" ,guile-2.2)))
1121 (synopsis "Guile database abstraction layer")
1122 (home-page "http://home.gna.org/guile-dbi/guile-dbi.html")
1123 (description
1124 "guile-dbi is a library for Guile that provides a convenient interface to
1125SQL databases. Database programming with guile-dbi is generic in that the same
1126programming interface is presented regardless of which database system is used.
1127It currently supports MySQL, Postgres and SQLite3.")
1128 (license license:gpl2+)))
1129
1130(define guile-dbi-bootstrap
1131 (package
1132 (inherit guile-dbi)
1133 (name "guile-dbi-bootstrap")
1134 (inputs '())
1135 (arguments
1136 (substitute-keyword-arguments (package-arguments guile-dbi)
1137 ((#:make-flags _) '(list))))))
1138
1139(define-public guile-dbd-sqlite3
1140 (package
1141 (name "guile-dbd-sqlite3")
1142 (version "2.1.6")
1143 (source (origin
1144 (method url-fetch)
1145 (uri (string-append
1146 "http://download.gna.org/guile-dbi/guile-dbd-sqlite3-"
1147 version ".tar.gz"))
1148 (sha256
1149 (base32
1150 "0rg71jchxd2y8x496s8zmfmikr5g8zxi8zv2ar3f7a23pph92iw2"))))
1151 (build-system gnu-build-system)
1152 (native-inputs
1153 `(("pkg-config" ,pkg-config)
1154 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap))) ; only required for headers
1155 (inputs
1156 `(("sqlite" ,sqlite)
1157 ("zlib" ,(@ (gnu packages compression) zlib))))
1158 (synopsis "Guile DBI driver for SQLite")
1159 (home-page "https://github.com/jkalbhenn/guile-dbd-sqlite3")
1160 (description
1161 "guile-dbi is a library for Guile that provides a convenient interface to
1162SQL databases. This package implements the interface for SQLite.")
1163 (license license:gpl2+)))
1164
406ef442
CB		 1165(define-public guile-dbd-postgresql
1166 (let ((commit "e97589b6b018b206c901e4cc24db463407a4036b")
1167 (revision 0))
1168 (package
1169 (name "guile-dbd-postgresql")
1170 (version (string-append
1171 "2.1.6-" (number->string revision) "." (string-take commit 7)))
1172 (source
1173 (origin
1174 (method git-fetch)
1175 (uri (git-reference
1176 (url "https://github.com/opencog/guile-dbi.git")
1177 (commit commit)))
1178 (file-name (git-file-name name version))
1179 (sha256
1180 (base32 "0n1gv9a0kdys10a4qmnrwvg5sydwb03880asri4gqdchcj3fimni"))))
1181 (build-system gnu-build-system)
1182 (arguments
1183 '(#:phases
1184 (modify-phases %standard-phases
1185 (add-after 'unpack 'chdir
1186 (lambda _
1187 ;; The upstream Git repository contains all the code, so change
1188 ;; to the relevant directory.
1189 (chdir "guile-dbd-postgresql")
1190 #t))
1191 (add-after 'chdir 'patch-src/Makefile.am
1192 (lambda* (#:key inputs #:allow-other-keys)
1193 (substitute* "src/Makefile.am"
1194 (("/usr/include")
1195 (string-append (assoc-ref inputs "postgresql") "/include")))
1196 #t))
1197 (add-after 'patch-src/Makefile.am 'patch-src
1198 (lambda _
1199 (substitute* "src/guile-dbd-postgresql.c"
1200 (("postgresql/libpq-fe\\.h") "libpq-fe.h"))
1201 #t)))))
1202 (native-inputs
1203 `(("pkg-config" ,pkg-config)
1204 ("automake" ,automake)
1205 ("autoconf" ,autoconf)
1206 ("perl" ,perl)
1207 ("libtool" ,libtool)
1208 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap)))
1209 (inputs
1210 `(("postgresql" ,postgresql)
1211 ("zlib" ,zlib)))
1212 (synopsis "Guile DBI driver for PostgreSQL")
1213 (home-page
1214 "https://github.com/opencog/guile-dbi/tree/master/guile-dbd-postgresql")
1215 (description
1216 "@code{guile-dbi} is a library for Guile that provides a convenient
1217interface to SQL databases. This package implements the interface for
1218PostgreSQL.")
1219 (license license:gpl2+))))
1220
0791437f
RW		 1221(define-public guile-config
1222 (package
1223 (name "guile-config")
1224 (version "0.3")
1225 (source
1226 (origin
1227 (method git-fetch)
1228 (uri (git-reference
1229 (url "https://gitlab.com/a-sassmannshausen/guile-config")
1230 (commit "ce12de3f438c6b2b59c43ee21bcd58251835fdf3")))
1231 (file-name "guile-config-0.3-checkout")
1232 (sha256 (base32 "02zbpin0r9m2vxmr7mv68v3xdn247dcck56kbzjn0gj4c2rhih85"))))
1233 (build-system gnu-build-system)
1234 (native-inputs
1235 `(("autoconf" ,autoconf)
1236 ("automake" ,automake)
1237 ("pkg-config" ,pkg-config)
1238 ("texinfo" ,texinfo)))
1239 (inputs `(("guile" ,guile-2.2)))
1240 (synopsis
1241 "Guile application configuration parsing library.")
1242 (description
1243 "Guile Config is a library providing a declarative approach to
1244application configuration specification. The library provides clean
1245configuration declaration forms, and processors that take care of:
1246configuration file creation; configuration file parsing; command-line
1247parameter parsing using getopt-long; basic GNU command-line parameter
1248generation (--help, --usage, --version); automatic output generation for the
1249above command-line parameters.")
1250 (home-page
1251 "https://gitlab.com/a-sassmannshausen/guile-config")
1252 (license license:gpl3+)))
1253
1254(define-public guile-hall
1255 (package
1256 (name "guile-hall")
63bf0afd 1257 (version "0.2")
0791437f 1258 (source
feb11b08
RW		 1259 (origin
1260 (method git-fetch)
1261 (uri (git-reference
1262 (url "https://gitlab.com/a-sassmannshausen/guile-hall")
1263 (commit (string-append "v" version))))
1264 (file-name (git-file-name name version))
1265 (sha256 (base32
1266 "1bkbqgj24xh5b65sw2m98iggpi67b72szx1dsiq3cpzlcxplmgaz"))))
0791437f
RW		 1267 (build-system gnu-build-system)
1268 (arguments
63bf0afd
AS		 1269 `(#:modules
1270 ((ice-9 match)
1271 (ice-9 ftw)
1272 ,@%gnu-build-system-modules)
1273 #:phases
1274 (modify-phases
1275 %standard-phases
1276 (add-after 'install 'hall-wrap-binaries
1277 (lambda* (#:key inputs outputs #:allow-other-keys)
1278 (let* ((compiled-dir
1279 (lambda (out version)
1280 (string-append
1281 out "/lib/guile/" version "/site-ccache")))
1282 (uncompiled-dir
1283 (lambda (out version)
1284 (string-append
1285 out "/share/guile/site"
1286 (if (string-null? version) "" "/") version)))
1287 (dep-path
1288 (lambda (env modules path)
1289 (list env ":" 'prefix
1290 (cons modules
1291 (map (lambda (input)
1292 (string-append
1293 (assoc-ref inputs input)
1294 path))
1295 ,''("guile-config"))))))
1296 (out (assoc-ref outputs "out"))
1297 (bin (string-append out "/bin/"))
1298 (site (uncompiled-dir out "")))
1299 (match (scandir site)
1300 (("." ".." version)
1301 (for-each
1302 (lambda (file)
1303 (wrap-program
1304 (string-append bin file)
1305 (dep-path
1306 "GUILE_LOAD_PATH"
1307 (uncompiled-dir out version)
1308 (uncompiled-dir "" version))
1309 (dep-path
1310 "GUILE_LOAD_COMPILED_PATH"
1311 (compiled-dir out version)
1312 (compiled-dir "" version))))
1313 ,''("hall"))
1314 #t))))))))
0791437f 1315 (native-inputs
63bf0afd
AS		 1316 `(("autoconf" ,autoconf)
1317 ("automake" ,automake)
1318 ("pkg-config" ,pkg-config)
1319 ("texinfo" ,texinfo)))
0791437f
RW		 1320 (inputs `(("guile" ,guile-2.2)))
1321 (propagated-inputs
3c3e6620 1322 `(("guile-config" ,guile-config)))
0791437f
RW		 1323 (synopsis "Guile project tooling")
1324 (description
3c3e6620
RW		 1325 "Hall is a command-line application and a set of Guile libraries that
1326allow you to quickly create and publish Guile projects. It allows you to
1327transparently support the GNU build system, manage a project hierarchy &
1328provides tight coupling to Guix.")
1329 (home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
06085fac 1330 (license license:gpl3+)))
0791437f
RW		 1331
1332(define-public guile-ics
1333 (package
1334 (name "guile-ics")
1335 (version "0.2.0")
1336 (source (origin
1337 (method git-fetch)
1338 (uri (git-reference
1339 (url "https://github.com/artyom-poptsov/guile-ics")
1340 (commit (string-append "v" version))))
1341 (file-name (string-append name "-" version "-checkout"))
1342 (sha256
1343 (base32
1344 "0qjjvadr7gibdq9jvwkmlkb4afsw9n2shfj9phpiadinxk3p4m2g"))))
1345 (build-system gnu-build-system)
1346 (native-inputs
1347 `(("autoconf" ,autoconf-wrapper)
1348 ("automake" ,automake)
1349 ("texinfo" ,texinfo)
1350 ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
1351 ("gettext" ,gettext-minimal)
1352 ("pkg-config" ,pkg-config)))
1353 (inputs `(("guile" ,guile-2.2) ("which" ,which)))
1354 (propagated-inputs `(("guile-lib" ,guile-lib)))
1355 (home-page "https://github.com/artyom-poptsov/guile-ics")
1356 (synopsis "Guile parser library for the iCalendar format")
1357 (description
1358 "Guile-ICS is an iCalendar (RFC5545) format parser library written in
1359pure Scheme. The library can be used to read and write iCalendar data.
1360
1361The library is shipped with documentation in Info format and usage examples.")
1362 (license license:gpl3+)))
1363
1364(define-public guile-wisp
1365 (package
1366 (name "guile-wisp")
15218d4e 1367 (version "0.9.9.1")
0791437f
RW		 1368 (source (origin
1369 (method url-fetch)
1370 (uri (string-append "https://bitbucket.org/ArneBab/"
1371 "wisp/downloads/wisp-"
1372 version ".tar.gz"))
1373 (sha256
1374 (base32
15218d4e 1375 "1ii14qz1lx7ffhb8i9q7dgaiwbif8g2q182skx17j11skp65c8r3"))))
0791437f
RW		 1376 (build-system gnu-build-system)
1377 (arguments
1378 `(#:modules ((guix build gnu-build-system)
15218d4e 1379 ((guix build emacs-build-system) #:prefix emacs:)
0791437f 1380 (guix build utils)
15218d4e 1381 (guix build emacs-utils)
0791437f
RW		 1382 (ice-9 rdelim)
1383 (ice-9 popen))
15218d4e
RW		 1384 #:imported-modules (,@%gnu-build-system-modules
1385 (guix build emacs-build-system)
1386 (guix build emacs-utils))
0791437f
RW		 1387 #:phases
1388 (modify-phases %standard-phases
1389 (add-before 'configure 'patch-/usr/bin/env
1390 (lambda _
1391 (substitute* "Makefile.in"
1392 (("/usr/bin/env bash") (which "bash"))
1393 (("\\$\\(GUILE_EFFECTIVE_VERSION\\)/site")
1394 "site/$(GUILE_EFFECTIVE_VERSION)")) ;use the right order
1395 #t))
1396 ;; auto compilation breaks, but if we set HOME to /tmp,
1397 ;; that works ok
1398 (add-before 'check 'auto-compile-hacky-workaround
1399 (lambda _ (setenv "HOME" "/tmp") #t))
1400 (add-after 'install 'install-go-files
1401 (lambda* (#:key outputs inputs #:allow-other-keys)
1402 (let* ((out (assoc-ref outputs "out"))
1403 (effective (read-line
1404 (open-pipe* OPEN_READ
1405 "guile" "-c"
1406 "(display (effective-version))")))
1407 (module-dir (string-append out "/share/guile/site/"
1408 effective))
1409 (object-dir (string-append out "/lib/guile/" effective
1410 "/site-ccache"))
1411 (prefix (string-length module-dir)))
1412 ;; compile to the destination
1413 (for-each (lambda (file)
1414 (let* ((base (string-drop (string-drop-right file 4)
1415 prefix))
1416 (go (string-append object-dir base ".go")))
1417 (invoke "guild" "compile" "-L" module-dir
1418 file "-o" go)))
1419 (find-files module-dir "\\.scm$"))
15218d4e
RW		 1420 #t)))
1421 (add-after 'install 'install-emacs-files
1422 (assoc-ref emacs:%standard-phases 'install))
1423 (add-after 'install-emacs-files 'compile-emacs-files
1424 (assoc-ref emacs:%standard-phases 'build))
1425 (add-after 'compile-emacs-files 'make-autoloads
1426 (assoc-ref emacs:%standard-phases 'make-autoloads)))))
0791437f
RW		 1427 (home-page "https://draketo.de/english/wisp")
1428 (inputs
1429 `(("guile" ,guile-2.2)))
1430 (native-inputs
15218d4e
RW		 1431 `(("emacs" ,emacs-minimal)
1432 ("python" ,python)
0791437f
RW		 1433 ("pkg-config" ,pkg-config)))
1434 (synopsis "Whitespace to lisp syntax for Guile")
1435 (description "Wisp is a syntax for Guile which provides a Python-like
1436whitespace-significant language. It may be easier on the eyes for some
1437users and in some situations.")
1438 (license license:gpl3+)))
1439
1440(define-public guile-sly
1441 (package
1442 (name "guile-sly")
1443 (version "0.1")
1444 (source (origin
1445 (method url-fetch)
1446 (uri (string-append "https://files.dthompson.us/sly/sly-"
1447 version ".tar.gz"))
1448 (sha256
1449 (base32
1450 "1svzlbz2vripmyq2kjh0rig16bsrnbkwbsm558pjln9l65mcl4qq"))
1451 (modules '((guix build utils)))
1452 (snippet
1453 '(begin
1454 (substitute* "configure"
1455 (("_guile_required_version=\"2.0.11\"")
1456 "_guile_required_version=\"2\"")
1457 (("ac_subst_vars='")
1458 "ac_subst_vars='GUILE_EFFECTIVE_VERSION\n"))
1459 (substitute* (find-files "." "Makefile.in")
1460 (("moddir = .*$")
1461 (string-append
1462 "moddir = "
1463 "$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n"))
1464 (("godir = .*$")
1465 (string-append
1466 "godir = "
1467 "$(prefix)/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")))
1468 #t))))
1469 (build-system gnu-build-system)
1470 (arguments
1471 '(#:configure-flags
1472 (list (string-append "--with-libfreeimage-prefix="
1473 (assoc-ref %build-inputs "freeimage"))
1474 (string-append "--with-libgslcblas-prefix="
1475 (assoc-ref %build-inputs "gsl")))))
1476 (native-inputs
1477 `(("pkg-config" ,pkg-config)))
1478 (propagated-inputs
1479 `(("guile-sdl" ,guile-sdl)
1480 ("guile-opengl" ,guile-opengl)))
1481 (inputs
1482 `(("guile" ,guile-2.2)
1483 ("gsl" ,gsl)
1484 ("freeimage" ,freeimage)
1485 ("mesa" ,mesa)))
1486 (synopsis "2D/3D game engine for GNU Guile")
1487 (description "Sly is a 2D/3D game engine written in Guile Scheme. Sly
1488features a functional reactive programming interface and live coding
1489capabilities.")
1490 (home-page "https://dthompson.us/projects/sly.html")
1491 (license license:gpl3+)))
1492
1493(define-public g-wrap
1494 (package
1495 (name "g-wrap")
1496 (version "1.9.15")
1497 (source (origin
1498 (method url-fetch)
1499 (uri (string-append "mirror://savannah/g-wrap/g-wrap-"
1500 version ".tar.gz"))
1501 (sha256
1502 (base32
1503 "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
1504 (build-system gnu-build-system)
1505 (native-inputs
1506 `(("pkg-config" ,pkg-config)))
1507 (propagated-inputs
1508 `(("guile" ,guile-2.2)
1509 ("guile-lib" ,guile-lib)))
1510 (inputs
1511 `(("libffi" ,libffi)))
1512 (arguments
1513 `(#:configure-flags '("--disable-Werror")
1514 #:phases
1515 (modify-phases %standard-phases
1516 (add-before 'configure 'pre-configure
1517 (lambda* (#:key outputs #:allow-other-keys)
1518 (let ((out (assoc-ref outputs "out")))
1519 (substitute* (find-files "." "^Makefile.in$")
1520 (("guilemoduledir =.*guile/site" all)
1521 (string-append all "/@GUILE_EFFECTIVE_VERSION@")))
1522 #t))))))
1523 (synopsis "Generate C bindings for Guile")
1524 (description "G-Wrap is a tool and Guile library for generating function
1525wrappers for inter-language calls. It currently only supports generating Guile
1526wrappers for C functions. Given a definition of the types and prototypes for
1527a given C interface, G-Wrap will automatically generate the C code that
1528provides access to that interface and its types from the Scheme level.")
1529 (home-page "https://www.nongnu.org/g-wrap/index.html")
1530 (license license:lgpl2.1+)))
1531
1532(define-public guile-miniadapton
1533 (let ((commit "1b5749422304567c96ac5367f2221dda9eff5880")
1534 (revision "1"))
1535 (package
1536 (name "guile-miniadapton")
1537 (version (string-append "0-" revision "." (string-take commit 9)))
1538 (source (origin
1539 (method git-fetch)
1540 (uri (git-reference
1541 (url "https://github.com/fisherdj/miniAdapton.git")
1542 (commit commit)))
1543 (file-name (string-append name "-" version "-checkout"))
1544 (sha256
1545 (base32
1546 "09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
1547 (build-system guile-build-system)
1548 (native-inputs
1549 `(("guile" ,guile-2.2)))
1550 (home-page "https://github.com/fisherdj/miniAdapton")
1551 (synopsis "Minimal implementation of incremental computation in Guile
1552Scheme")
1553 (description "This package provides a complete Scheme implementation of
1554miniAdapton, which implements the core functionality of the Adapton system for
1555incremental computation (also known as self-adjusting computation). Like
1556Adapton, miniAdapton allows programmers to safely combine mutation and
1557memoization. miniAdapton is built on top of an even simpler system,
1558microAdapton. Both miniAdapton and microAdapton are designed to be easy to
1559understand, extend, and port to host languages other than Scheme.")
1560 (license license:expat))))
1561
1562(define-public guile-reader
1563 (package
1564 (name "guile-reader")
1565 (version "0.6.2")
1566 (source (origin
1567 (method url-fetch)
1568 (uri (string-append "mirror://savannah/guile-reader/guile-reader-"
1569 version ".tar.gz"))
1570 (sha256
1571 (base32
1572 "0592s2s8ampqmqwilc4fvcild6rb9gy79di6vxv5kcdmv23abkgx"))))
1573 (build-system gnu-build-system)
1574 (native-inputs `(("pkgconfig" ,pkg-config)
1575 ("gperf" ,gperf-3.0)))
1576 (inputs `(("guile" ,guile-2.2)))
1577 (synopsis "Framework for building readers for GNU Guile")
1578 (description
1579 "Guile-Reader is a simple framework for building readers for GNU Guile.
1580
1581The idea is to make it easy to build procedures that extend Guile’s read
1582procedure. Readers supporting various syntax variants can easily be written,
1583possibly by re-using existing “token readers” of a standard Scheme
1584readers. For example, it is used to implement Skribilo’s R5RS-derived
1585document syntax.
1586
1587Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
1588hopefully more powerful and flexible (for instance, one may instantiate as
1589many readers as needed).")
1590 (home-page "https://www.nongnu.org/guile-reader/")
1591 (license license:gpl3+)))
1592
1593(define-public guile2.2-reader
1594 (deprecated-package "guile2.2-reader" guile-reader))
1595
1596(define-public guile-ncurses
1597 (package
1598 (name "guile-ncurses")
1599 (version "2.2")
1600 (source (origin
1601 (method url-fetch)
1602 (uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
1603 version ".tar.gz"))
1604 (sha256
1605 (base32
1606 "1wvggbr4xv8idh1hzd8caj4xfp4pln78a7w1wqzd4zgzwmnzxr2f"))))
1607 (build-system gnu-build-system)
1608 (inputs `(("ncurses" ,ncurses)
1609 ("guile" ,guile-2.2)))
1610 (native-inputs `(("pkg-config" ,pkg-config)))
1611 (arguments
1612 '(#:configure-flags (list "--with-ncursesw" ; Unicode support
1613 "--with-gnu-filesystem-hierarchy")
1614 #:phases
1615 (modify-phases %standard-phases
1616 (add-before 'build 'fix-libguile-ncurses-file-name
1617 (lambda* (#:key outputs #:allow-other-keys)
1618 (invoke "make" "install"
1619 "-C" "src/ncurses"
1620 "-j" (number->string
1621 (parallel-job-count)))
1622 (let* ((out (assoc-ref outputs "out"))
1623 (dir "src/ncurses")
1624 (files (find-files dir ".scm")))
1625 (substitute* files
1626 (("\"libguile-ncurses\"")
1627 (format #f "\"~a/lib/guile/2.2/libguile-ncurses\""
1628 out)))
1629 #t))))))
1630 (home-page "https://www.gnu.org/software/guile-ncurses/")
1631 (synopsis "Guile bindings to ncurses")
1632 (description
1633 "guile-ncurses provides Guile language bindings for the ncurses
1634library.")
1635 (license license:lgpl3+)))
1636
1637(define-public guile-ncurses/gpm
1638 (package
1639 (inherit guile-ncurses)
1640 (name "guile-ncurses-with-gpm")
1641 (inputs `(("ncurses" ,ncurses/gpm)
1642 ("guile" ,guile-2.2)))))
1643
1644(define-public guile-lib
1645 (package
1646 (name "guile-lib")
1647 (version "0.2.6.1")
1648 (source (origin
1649 (method url-fetch)
1650 (uri (string-append "mirror://savannah/guile-lib/guile-lib-"
1651 version ".tar.gz"))
1652 (sha256
1653 (base32
1654 "0aizxdif5dpch9cvs8zz5g8ds5s4xhfnwza2il5ji7fv2h7ks7bd"))))
1655 (build-system gnu-build-system)
1656 (arguments
1657 '(#:make-flags
1658 '("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
1659 #:phases
1660 (modify-phases %standard-phases
1661 (add-before 'configure 'patch-module-dir
1662 (lambda _
1663 (substitute* "src/Makefile.in"
1664 (("^moddir = ([[:graph:]]+)")
1665 "moddir = $(datadir)/guile/site/@GUILE_EFFECTIVE_VERSION@\n")
1666 (("^godir = ([[:graph:]]+)")
1667 "godir = \
1668$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
1669 #t)))))
1670 (native-inputs `(("pkg-config" ,pkg-config)))
1671 (inputs `(("guile" ,guile-2.2)))
1672 (home-page "https://www.nongnu.org/guile-lib/")
1673 (synopsis "Collection of useful Guile Scheme modules")
1674 (description
1675 "Guile-Lib is intended as an accumulation place for pure-scheme Guile
1676modules, allowing for people to cooperate integrating their generic Guile
1677modules into a coherent library. Think \"a down-scaled, limited-scope CPAN
1678for Guile\".")
1679
1680 ;; The whole is under GPLv3+, but some modules are under laxer
1681 ;; distribution terms such as LGPL and public domain. See `COPYING' for
1682 ;; details.
1683 (license license:gpl3+)))
1684
1685(define-public guile2.0-lib
1686 (package
1687 (inherit guile-lib)
1688 (name "guile2.0-lib")
1689 (inputs `(("guile" ,guile-2.0)))))
1690
1691(define-public guile2.2-lib
1692 (deprecated-package "guile2.2-lib" guile-lib))
1693
1694(define-public guile-minikanren
1695 (package
1696 (name "guile-minikanren")
1697 (version "20150424.e844d85")
1698 (source (origin
1699 (method git-fetch)
1700 (uri (git-reference
1701 (url "https://github.com/ijp/minikanren.git")
1702 (commit "e844d85512f8c055d3f96143ee506007389a25e3")))
1703 (file-name (string-append name "-" version "-checkout"))
1704 (sha256
1705 (base32
1706 "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
1707 (build-system guile-build-system)
1708 (native-inputs
1709 `(("guile" ,guile-2.2)))
1710 (home-page "https://github.com/ijp/minikanren")
1711 (synopsis "MiniKanren declarative logic system, packaged for Guile")
1712 (description
1713 "MiniKanren is a relational programming extension to the Scheme
1714programming Language, written as a smaller version of Kanren suitable for
1715pedagogical purposes. It is featured in the book, The Reasoned Schemer,
1716written by Dan Friedman, William Byrd, and Oleg Kiselyov.
1717
1718This is Ian Price's r6rs packaged version of miniKanren, which deviates
1719slightly from miniKanren mainline.
1720
1721See http://minikanren.org/ for more on miniKanren generally.")
1722 (license license:expat)))
1723
1724(define-public guile2.0-minikanren
1725 (package
1726 (inherit guile-minikanren)
1727 (name "guile2.0-minikanren")
1728 (native-inputs `(("guile" ,guile-2.0)))))
1729
1730(define-public guile2.2-minikanren
1731 (deprecated-package "guile2.2-minikanren" guile-minikanren))
1732
1733(define-public guile-irregex
1734 (package
1735 (name "guile-irregex")
1736 (version "0.9.6")
1737 (source (origin
1738 (method url-fetch)
1739 (uri (string-append
1740 "http://synthcode.com/scheme/irregex/irregex-"
1741 version ".tar.gz"))
1742 (sha256
1743 (base32
1744 "1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq"))))
1745 (build-system guile-build-system)
1746 (arguments
1747 '(#:phases (modify-phases %standard-phases
1748 (add-after 'unpack 'move-files-around
1749 (lambda _
1750 ;; Move the relevant source files to src/ and create the
1751 ;; rx/ directory to match the expected module hierarchy.
1752 (mkdir-p "src/rx/source")
1753 (rename-file "irregex-guile.scm"
1754 "src/rx/irregex.scm")
1755 (rename-file "irregex.scm"
1756 "src/rx/source/irregex.scm")
1757 ;; Not really reachable via guile's packaging system,
1758 ;; but nice to have around.
1759 (rename-file "irregex-utils.scm"
1760 "src/rx/source/irregex-utils.scm")
1761 #t)))
1762 #:source-directory "src"))
1763 (native-inputs
1764 `(("guile" ,guile-2.2)))
1765 (home-page "http://synthcode.com/scheme/irregex")
1766 (synopsis "S-expression based regular expressions")
1767 (description
1768 "Irregex is an s-expression based alternative to your classic
1769string-based regular expressions. It implements SRFI 115 and is deeply
1770inspired by the SCSH regular expression system.")
1771 (license license:bsd-3)))
1772
1773(define-public guile2.0-irregex
1774 (package
1775 (inherit guile-irregex)
1776 (name "guile2.0-irregex")
1777 (native-inputs `(("guile" ,guile-2.0)))))
1778
1779(define-public guile2.2-irregex
1780 (deprecated-package "guile2.2-irregex" guile-irregex))
1781
1782(define-public haunt
1783 (package
1784 (name "haunt")
1785 (version "0.2.4")
1786 (source (origin
1787 (method url-fetch)
1788 (uri (string-append "https://files.dthompson.us/haunt/haunt-"
1789 version ".tar.gz"))
1790 (sha256
1791 (base32
1792 "056z4znikk83nr5mr0x2ac3iinqbywa2bvb37mhr566a1q50isfc"))))
1793 (build-system gnu-build-system)
1794 (arguments
1795 `(#:modules ((ice-9 match) (ice-9 ftw)
1796 ,@%gnu-build-system-modules)
1797 #:tests? #f ; test suite is non-deterministic :(
1798 #:phases (modify-phases %standard-phases
1799 (add-after 'install 'wrap-haunt
1800 (lambda* (#:key inputs outputs #:allow-other-keys)
1801 ;; Wrap the 'haunt' command to refer to the right
1802 ;; modules.
1803 (let* ((out (assoc-ref outputs "out"))
1804 (bin (string-append out "/bin"))
1805 (site (string-append
1806 out "/share/guile/site"))
1807 (deps (list (assoc-ref inputs "guile-reader")
1808 (assoc-ref inputs "guile-commonmark"))))
1809 (match (scandir site)
1810 (("." ".." version)
1811 (let ((modules (string-append site "/" version))
1812 (compiled-modules (string-append
1813 out "/lib/guile/" version
1814 "/site-ccache")))
1815 (wrap-program (string-append bin "/haunt")
1816 `("GUILE_LOAD_PATH" ":" prefix
1817 (,modules
1818 ,@(map (lambda (dep)
1819 (string-append dep
1820 "/share/guile/site/"
1821 version))
1822 deps)))
1823 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
1824 (,compiled-modules
1825 ,@(map (lambda (dep)
1826 (string-append dep "/lib/guile/"
1827 version
1828 "/site-ccache"))
1829 deps))))
1830 #t)))))))))
1831 (native-inputs
1832 `(("pkg-config" ,pkg-config)
1833 ("texinfo" ,texinfo)))
1834 (inputs
1835 `(("guile" ,guile-2.2)))
1836 (propagated-inputs
1837 `(("guile-reader" ,guile-reader)
1838 ("guile-commonmark" ,guile-commonmark)))
1839 (synopsis "Functional static site generator")
1840 (description "Haunt is a static site generator written in Guile
1841Scheme. Haunt features a functional build system and an extensible
1842interface for reading articles in any format.")
1843 (home-page "http://haunt.dthompson.us")
1844 (license license:gpl3+)))
1845
1846(define-public guile2.0-haunt
1847 (package
1848 (inherit haunt)
1849 (name "guile2.0-haunt")
1850 (inputs `(("guile" ,guile-2.0)))))
1851
1852(define-public guile2.2-haunt
1853 (deprecated-package "guile2.2-haunt" haunt))
1854
1855(define-public guile-redis
1856 (package
1857 (name "guile-redis")
f57bf15c 1858 (version "1.3.0")
0791437f
RW		 1859 (home-page "https://github.com/aconchillo/guile-redis")
1860 (source (origin
1861 (method url-fetch)
1862 (uri (string-append home-page "/archive/" version ".tar.gz"))
1863 (sha256
1864 (base32
f57bf15c 1865 "1li70a2716my9q9zfq0qn2x5d1cir9k2vx0jm9glm464yaf1vj39"))))
0791437f
RW		 1866 (build-system gnu-build-system)
1867 (native-inputs
1868 `(("autoconf" ,autoconf)
1869 ("automake" ,automake)
1870 ("pkg-config" ,pkg-config)
1871 ("guile" ,guile-2.2)))
1872 (synopsis "Redis client library for Guile")
1873 (description "Guile-redis provides a Scheme interface to the Redis
1874key-value cache and store.")
1875 (license license:lgpl3+)))
1876
1877(define-public guile2.0-redis
1878 (package
1879 (inherit guile-redis)
1880 (name "guile2.0-redis")
1881 (native-inputs `(("guile" ,guile-2.0)
1882 ,@(alist-delete "guile"
1883 (package-native-inputs guile-redis))))))
1884
1885(define-public guile2.2-redis
1886 (deprecated-package "guile2.2-redis" guile-redis))
1887
1888(define-public guile-commonmark
1889 (package
1890 (name "guile-commonmark")
b552e307 1891 (version "0.1.2")
0791437f
RW		 1892 (source (origin
1893 (method url-fetch)
1894 (uri (string-append "https://github.com/OrangeShark/" name
1895 "/releases/download/v" version
1896 "/" name "-" version ".tar.gz"))
1897 (sha256
1898 (base32
b552e307 1899 "17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))))
0791437f
RW		 1900 (build-system gnu-build-system)
1901 (inputs
1902 `(("guile" ,guile-2.2)))
1903 (native-inputs
1904 `(("pkg-config" ,pkg-config)))
1905 (synopsis "CommonMark parser for Guile")
1906 (description
1907 "guile-commonmark is a library for parsing CommonMark, a fully specified
1908variant of Markdown. The library is written in Guile Scheme and is designed
1909to transform a CommonMark document to SXML. guile-commonmark tries to closely
1910follow the @uref{http://commonmark.org/, CommonMark spec}, the main difference
1911is no support for parsing block and inline level HTML.")
1912 (home-page "https://github.com/OrangeShark/guile-commonmark")
1913 (license license:lgpl3+)))
1914
1915(define-public guile2.0-commonmark
1916 (package
1917 (inherit guile-commonmark)
1918 (name "guile2.0-commonmark")
1919 (inputs `(("guile" ,guile-2.0)))))
1920
1921(define-public guile2.2-commonmark
1922 (deprecated-package "guile2.2-commonmark" guile-commonmark))
1923
1924(define-public mcron
1925 (package
1926 (name "mcron")
1927 (version "1.1.1")
1928 (source (origin
1929 (method url-fetch)
1930 (uri (string-append "mirror://gnu/mcron/mcron-"
1931 version ".tar.gz"))
1932 (sha256
1933 (base32
1934 "1i9mcp6r6my61zfiydsm3n6my41mwvl7dfala4q29qx0zn1ynlm4"))))
1935 (build-system gnu-build-system)
1936 (arguments
1937 '(#:phases (modify-phases %standard-phases
1938 (add-before 'check 'set-timezone
1939 (lambda* (#:key inputs #:allow-other-keys)
1940 ;; 'tests/job-specifier.scm' expects to be running in
1941 ;; UTC-2 or something.
1942 ;; FIXME: This issue is being investigated upstream, for
1943 ;; now we'll just skip the tests (see below):
1944 ;; <https://lists.gnu.org/archive/html/bug-mcron/2018-04/msg00005.html>.
1945 (let ((tzdata (assoc-ref inputs "tzdata")))
1946 (setenv "TZDIR"
1947 (string-append tzdata
1948 "/share/zoneinfo"))
1949 (setenv "TZ" "UTC-2")
1950 #t)))
1951 (add-before 'check 'adjust-tests
1952 (lambda _
1953 (substitute* "tests/job-specifier.scm"
1954 ;; (getpw) fails with "entry not found" in the build
1955 ;; environment, so pass an argument.
1956 (("\\(getpw\\)")
1957 "(getpwnam (getuid))")
1958 ;; The build environment lacks an entry for root in
1959 ;; /etc/passwd.
1960 (("\\(getpw 0\\)")
1961 "(getpwnam \"nobody\")")
1962
1963 ;; FIXME: Skip the 4 faulty tests (see above).
1964 (("\\(test-equal \"next-year\"" all)
1965 (string-append "(test-skip 4)\n" all)))
1966 #t)))))
1967 (native-inputs `(("pkg-config" ,pkg-config)
1968 ("tzdata" ,tzdata-for-tests)))
1969 (inputs `(("ed" ,ed) ("which" ,which) ("guile" ,guile-2.2)))
1970 (home-page "https://www.gnu.org/software/mcron/")
1971 (synopsis "Run jobs at scheduled times")
1972 (description
1973 "GNU Mcron is a complete replacement for Vixie cron. It is used to run
1974tasks on a schedule, such as every hour or every Monday. Mcron is written in
1975Guile, so its configuration can be written in Scheme; the original cron
1976format is also supported.")
1977 (license license:gpl3+)))
1978
1979(define-public mcron2
1980 ;; This was mthl's mcron development branch, and it became mcron 1.1.
1981 (deprecated-package "mcron2" mcron))
6bb5f88e
RW		 1982
1983(define-public guile-picture-language
8d11b6dd
RW		 1984 (let ((commit "1ea8b78a8bceb4f7e5eaeb3e76987072267f99bb")
1985 (revision "2"))
6bb5f88e
RW		 1986 (package
1987 (name "guile-picture-language")
1988 (version (git-version "0" revision commit))
1989 (source (origin
1990 (method git-fetch)
1991 (uri (git-reference
1992 (url "https://git.elephly.net/software/guile-picture-language.git")
1993 (commit commit)))
1994 (sha256
1995 (base32
8d11b6dd 1996 "1rvq6q2zq21x7dx0qq1hn568wglsl4bkd8gacbarcx1fs0rrxcqw"))))
6bb5f88e
RW		 1997 (build-system guile-build-system)
1998 (inputs
1999 `(("guile" ,guile-2.2)))
2000 (home-page "https://git.elephly.net/software/guile-picture-language.git")
2001 (synopsis "Picture language for Guile")
2002 (description
2003 "This package provides a simple SVG-based picture language for Guile.
2004The picture values can directly be displayed in Geiser.")
2005 (license license:lgpl3+))))
5531782d
RW		 2006
2007(define-public guile-studio
2008 (let ((commit "e2da64f014942a73996286c4abe3c3b1f8bd220c")
2009 (revision "1"))
2010 (package
2011 (name "guile-studio")
2012 (version (git-version "0" revision commit))
2013 (source (origin
2014 (method git-fetch)
2015 (uri (git-reference
2016 (url "https://git.elephly.net/software/guile-studio.git")
2017 (commit commit)))
2018 (sha256
2019 (base32
2020 "10v3kw41bzd8c2a6vxgrwbvl216d0k8f5s9h6pm8hahpd03jl7lm"))))
2021 (build-system gnu-build-system)
2022 (arguments
2023 `(#:tests? #f ; there are none
2024 #:phases
2025 (modify-phases %standard-phases
2026 (delete 'configure)
2027 (replace 'build
2028 (lambda* (#:key source inputs outputs #:allow-other-keys)
2029 (let* ((out (assoc-ref outputs "out"))
2030 (bin (string-append out "/bin/"))
2031 (share (string-append out "/share/")))
2032 (mkdir-p share)
2033 (mkdir-p bin)
2034 (apply invoke "guile" "-s" "guile-studio-configure.scm"
2035 out
2036 (assoc-ref inputs "emacs")
2037 (assoc-ref inputs "guile-picture-language")
2038 (string-append (assoc-ref inputs "adwaita-icon-theme")
2039 "/share/icons/Adwaita/")
2040 (map cdr inputs))
2041 #t)))
2042 (delete 'install))))
2043 (inputs
2044 `(("guile" ,guile-2.2)
2045 ("guile-picture-language" ,guile-picture-language)
2046 ("emacs" ,emacs)
2047 ("emacs-geiser" ,emacs-geiser)
2048 ("emacs-company" ,emacs-company)
2049 ("emacs-flycheck" ,emacs-flycheck)
2050 ("emacs-smart-mode-line" ,emacs-smart-mode-line)
2051 ("emacs-paren-face" ,emacs-paren-face)
2052 ("adwaita-icon-theme" ,adwaita-icon-theme)))
2053 (home-page "https://gnu.org/software/guile")
2054 (synopsis "IDE for Guile")
2055 (description
2056 "This is Emacs with a few settings that make working with Guile easier
2057for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons
2058to evaluate Guile buffers, support for Guile's very own picture language, code
2059completion, a simple mode line, etc.")
2060 (license license:gpl3+))))
9f8698ad
RW		 2061
2062(define-public guile-stis-parser
2063 (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")
2064 (revision "1"))
2065 (package
2066 (name "guile-stis-parser")
2067 (version (git-version "0" revision commit))
2068 (source (origin
2069 (method git-fetch)
2070 (uri (git-reference
2071 (url "https://gitlab.com/tampe/stis-parser")
2072 (commit commit)))
2073 (sha256
2074 (base32
2075 "0v4hvq7rlpbra1ni73lf8k6sdmjlflr50yi3p1f24g85h77pc7c0"))))
2076 (build-system gnu-build-system)
2077 (arguments
2078 `(#:parallel-build? #f ; not supported
2079 #:phases
2080 (modify-phases %standard-phases
2081 (add-after 'unpack 'chdir
2082 (lambda _ (chdir "modules") #t))
2083 (add-after 'chdir 'delete-broken-symlink
2084 (lambda _
2085 (delete-file "parser/stis-parser/lang/.#calc.scm")
2086 #t)))))
2087 (inputs
2088 `(("guile" ,guile-2.2)))
2089 (native-inputs
2090 `(("autoconf" ,autoconf)
2091 ("automake" ,automake)
2092 ("pkg-config" ,pkg-config)))
2093 (home-page "https://gitlab.com/tampe/stis-parser")
2094 (synopsis "Parser combinator framework")
2095 (description
2096 "This package provides a functional parser combinator library that
2097supports backtracking and a small logical framework. The idea is to build up
2098chunks that are memoized and there is no clear scanner/parser separation,
2099chunks can be expressions as well as simple tokens.")
2100 (license license:lgpl2.0+))))
jackhill's copy of GNU Guix: https://guix.gnu.org/