HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: mtools: 'mformat' initializes boot sector before writing it.
[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>
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>
50771f5b 20;;; Copyright © 2018, 2019 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>
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
55f4282e 612 (url "https://gitlab.com/NalaGinrut/guile-colorized.git")
1340ce28
TGR		 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)))
55f4282e 620 (home-page "https://gitlab.com/NalaGinrut/guile-colorized")
0791437f
RW		 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
50771f5b
AI		 901 (package
902 (name "guile-email")
903 (version "0.1.0")
904 (source
905 (origin
906 (method url-fetch)
907 (uri (string-append
908 "https://git.systemreboot.net/guile-email/snapshot/guile-email-"
909 version ".tar.xz"))
910 (sha256
911 (base32
912 "0p2v8q2kkz8m6vf2rsjvz3dj1mvnx7dxakjf72dwkndbgk3rp79f"))))
913 (build-system gnu-build-system)
914 (native-inputs
915 `(("pkg-config" ,pkg-config)
916 ("autoconf" ,autoconf)
917 ("automake" ,automake)))
918 (inputs
919 `(("guile" ,guile-2.2)))
920 (home-page "https://git.systemreboot.net/guile-email")
921 (synopsis "Guile email parser")
922 (description "This package provides an email parser written in pure
0791437f 923Guile.")
50771f5b 924 (license license:agpl3+)))
0791437f
RW		 925
926(define-public guile-debbugs-next
927 (let ((commit "75a331d561c8b6f8efcf16216dab961c17759efe")
928 (revision "1"))
929 (package (inherit guile-debbugs)
930 (name "guile-debbugs")
931 (version (git-version "0.0.3" revision commit))
932 (source (origin
933 (method git-fetch)
934 (uri (git-reference
935 (url "https://git.savannah.gnu.org/git/guile-debbugs.git")
936 (commit commit)))
937 (file-name (git-file-name name version))
938 (sha256
939 (base32
940 "0br3mgbw41bpc9x57jlghl0i8dz9nl63r4wzs5l47aqszf84870y"))))
941 (build-system gnu-build-system)
942 (native-inputs
943 `(("pkg-config" ,pkg-config)
944 ("autoconf" ,autoconf)
945 ("automake" ,automake)
946 ("texinfo" ,texinfo)))
947 (inputs
948 `(("guile" ,guile-2.2)
949 ("guile-email" ,guile-email))))))
950
951;; There has not been any release yet.
952(define-public guile-newt
953 (let ((commit "80c1e9e71945f833386d1632b52573e59325804f")
954 (revision "4"))
955 (package
956 (name "guile-newt")
957 (version (string-append "0-" revision "." (string-take commit 9)))
958 (source (origin
959 (method git-fetch)
960 (uri (git-reference
961 (url "https://gitlab.com/mothacehe/guile-newt")
962 (commit commit)))
963 (file-name (string-append name "-" version "-checkout"))
964 (sha256
965 (base32
966 "1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695"))))
967 (build-system gnu-build-system)
968 (arguments
969 '(#:make-flags
970 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
971 (inputs
972 `(("guile" ,guile-2.2)
973 ("newt" ,newt)))
974 (native-inputs
975 `(("autoconf" ,autoconf)
976 ("automake" ,automake)
977 ("pkg-config" ,pkg-config)))
978 (synopsis "Guile bindings to Newt")
979 (description
980 "This package provides bindings for Newt, a programming library for
981color text mode, widget based user interfaces. The bindings are written in pure
982Scheme by using Guile’s foreign function interface.")
983 (home-page "https://gitlab.com/mothacehe/guile-newt")
984 (license license:gpl3+))))
985
986(define-public guile-mastodon
987 (package
988 (name "guile-mastodon")
989 (version "0.0.1")
990 (source (origin
991 (method git-fetch)
992 (uri (git-reference
993 (url "https://framagit.org/prouby/guile-mastodon.git")
994 (commit (string-append "v" version))))
995 (file-name (git-file-name name version))
996 (sha256
997 (base32
998 "1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))))
999 (build-system gnu-build-system)
1000 (native-inputs
1001 `(("autoconf" ,autoconf)
1002 ("automake" ,automake)
1003 ("pkg-config" ,pkg-config)))
1004 (inputs
1005 `(("guile" ,guile-2.2)
1006 ("gnutls" ,gnutls)
1007 ("guile-json" ,guile-json)))
1008 (home-page "https://framagit.org/prouby/guile-mastodon")
1009 (synopsis "Guile Mastodon REST API module")
1010 (description "This package provides Guile modules to access the
1011@uref{https://docs.joinmastodon.org/api/, REST API of Mastodon}, a federated
1012microblogging service.")
1013 (license license:gpl3+)))
1014
1015;; There has not been any release yet.
1016(define-public guile-parted
1017 (let ((commit "ea3f1a1f6844775fc59d3078d2a09c62ffb341b8")
1018 (revision "0"))
1019 (package
1020 (name "guile-parted")
1021 (version (string-append "0-" revision "." (string-take commit 9)))
1022 (source (origin
1023 (method git-fetch)
1024 (uri (git-reference
1025 (url "https://gitlab.com/mothacehe/guile-parted")
1026 (commit commit)))
1027 (file-name (string-append name "-" version "-checkout"))
1028 (sha256
1029 (base32
1030 "1q7425gpjlwi2wvhzq7kw046yyx7v6j6jyzkd1cr861iz34mjwiq"))))
1031 (build-system gnu-build-system)
1032 (arguments
1033 '(#:make-flags
1034 '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
1035 (inputs
1036 `(("guile" ,guile-2.2)
1037 ("parted" ,parted)))
1038 (propagated-inputs
1039 `(("guile-bytestructures" ,guile-bytestructures)))
1040 (native-inputs
1041 `(("autoconf" ,autoconf)
1042 ("automake" ,automake)
1043 ("pkg-config" ,pkg-config)))
1044 (synopsis "Guile bindings to GNU Parted")
1045 (description
1046 "This package provides bindings for GNU Parted library, a C library
1047allowing disk partition tables creation and manipulation. The bindings are
1048written in pure Scheme by using Guile's foreign function interface.")
1049 (home-page "https://gitlab.com/mothacehe/guile-parted")
1050 (license license:gpl3+))))
1051
1052(define-public guile-xosd
1053 (package
1054 (name "guile-xosd")
1055 (version "0.2.1")
1056 (source (origin
1057 (method url-fetch)
1058 (uri (string-append "https://github.com/alezost/" name
1059 "/releases/download/v" version
1060 "/" name "-" version ".tar.gz"))
1061 (sha256
1062 (base32
1063 "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
1064 (build-system gnu-build-system)
1065 (native-inputs
1066 `(("pkg-config" ,pkg-config)))
1067 (inputs
1068 `(("guile" ,guile-2.2)
1069 ("libx11" ,libx11)
1070 ("libxext" ,libxext)
1071 ("libxinerama" ,libxinerama)
1072 ("xosd" ,xosd)))
1073 (home-page "https://github.com/alezost/guile-xosd")
1074 (synopsis "XOSD bindings for Guile")
1075 (description
1076 "Guile-XOSD provides Guile bindings for @code{libxosd},
1077@uref{http://sourceforge.net/projects/libxosd/, the X On Screen Display
1078library}.")
1079 (license license:gpl3+)))
1080
1081(define-public guile-dbi
1082 (package
1083 (name "guile-dbi")
1084 (version "2.1.6")
1085 (source (origin
1086 (method url-fetch)
1087 (uri (string-append
1088 "http://download.gna.org/guile-dbi/guile-dbi-"
1089 version ".tar.gz"))
1090 (sha256
1091 (base32
1092 "116njrprhgrsv1qm904sp3b02rq01fx639r433d657gyhw3x159n"))))
1093 (build-system gnu-build-system)
1094 (arguments
1095 '(#:configure-flags
1096 (list (string-append
1097 "--with-guile-site-dir=" %output "/share/guile/site/2.2"))
1098 #:make-flags
406ef442
CB		 1099 (list (string-append
1100 "LDFLAGS=-Wl,-rpath=" %output "/lib:"
1101 (assoc-ref %build-inputs "guile-dbd-sqlite3") "/lib" ":"
1102 (assoc-ref %build-inputs "guile-dbd-postgresql") "/lib"))
0791437f
RW		 1103 #:phases
1104 (modify-phases %standard-phases
1105 (add-after 'install 'patch-extension-path
1106 (lambda* (#:key outputs #:allow-other-keys)
1107 (let* ((out (assoc-ref outputs "out"))
1108 (dbi.scm (string-append
1109 out "/share/guile/site/2.2/dbi/dbi.scm"))
1110 (ext (string-append out "/lib/libguile-dbi")))
1111 (substitute* dbi.scm (("libguile-dbi") ext))
1112 #t))))))
1113 (inputs
406ef442
CB		 1114 `(("guile-dbd-sqlite3" ,guile-dbd-sqlite3)
1115 ("guile-dbd-postgresql" ,guile-dbd-postgresql))) ; only shared library, no scheme files
0791437f
RW		 1116 (propagated-inputs
1117 `(("guile" ,guile-2.2)))
1118 (synopsis "Guile database abstraction layer")
1119 (home-page "http://home.gna.org/guile-dbi/guile-dbi.html")
1120 (description
1121 "guile-dbi is a library for Guile that provides a convenient interface to
1122SQL databases. Database programming with guile-dbi is generic in that the same
1123programming interface is presented regardless of which database system is used.
1124It currently supports MySQL, Postgres and SQLite3.")
1125 (license license:gpl2+)))
1126
1127(define guile-dbi-bootstrap
1128 (package
1129 (inherit guile-dbi)
1130 (name "guile-dbi-bootstrap")
1131 (inputs '())
1132 (arguments
1133 (substitute-keyword-arguments (package-arguments guile-dbi)
1134 ((#:make-flags _) '(list))))))
1135
1136(define-public guile-dbd-sqlite3
1137 (package
1138 (name "guile-dbd-sqlite3")
1139 (version "2.1.6")
1140 (source (origin
1141 (method url-fetch)
1142 (uri (string-append
1143 "http://download.gna.org/guile-dbi/guile-dbd-sqlite3-"
1144 version ".tar.gz"))
1145 (sha256
1146 (base32
1147 "0rg71jchxd2y8x496s8zmfmikr5g8zxi8zv2ar3f7a23pph92iw2"))))
1148 (build-system gnu-build-system)
1149 (native-inputs
1150 `(("pkg-config" ,pkg-config)
1151 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap))) ; only required for headers
1152 (inputs
1153 `(("sqlite" ,sqlite)
1154 ("zlib" ,(@ (gnu packages compression) zlib))))
1155 (synopsis "Guile DBI driver for SQLite")
1156 (home-page "https://github.com/jkalbhenn/guile-dbd-sqlite3")
1157 (description
1158 "guile-dbi is a library for Guile that provides a convenient interface to
1159SQL databases. This package implements the interface for SQLite.")
1160 (license license:gpl2+)))
1161
406ef442
CB		 1162(define-public guile-dbd-postgresql
1163 (let ((commit "e97589b6b018b206c901e4cc24db463407a4036b")
1164 (revision 0))
1165 (package
1166 (name "guile-dbd-postgresql")
1167 (version (string-append
1168 "2.1.6-" (number->string revision) "." (string-take commit 7)))
1169 (source
1170 (origin
1171 (method git-fetch)
1172 (uri (git-reference
1173 (url "https://github.com/opencog/guile-dbi.git")
1174 (commit commit)))
1175 (file-name (git-file-name name version))
1176 (sha256
1177 (base32 "0n1gv9a0kdys10a4qmnrwvg5sydwb03880asri4gqdchcj3fimni"))))
1178 (build-system gnu-build-system)
1179 (arguments
1180 '(#:phases
1181 (modify-phases %standard-phases
1182 (add-after 'unpack 'chdir
1183 (lambda _
1184 ;; The upstream Git repository contains all the code, so change
1185 ;; to the relevant directory.
1186 (chdir "guile-dbd-postgresql")
1187 #t))
1188 (add-after 'chdir 'patch-src/Makefile.am
1189 (lambda* (#:key inputs #:allow-other-keys)
1190 (substitute* "src/Makefile.am"
1191 (("/usr/include")
1192 (string-append (assoc-ref inputs "postgresql") "/include")))
1193 #t))
1194 (add-after 'patch-src/Makefile.am 'patch-src
1195 (lambda _
1196 (substitute* "src/guile-dbd-postgresql.c"
1197 (("postgresql/libpq-fe\\.h") "libpq-fe.h"))
1198 #t)))))
1199 (native-inputs
1200 `(("pkg-config" ,pkg-config)
1201 ("automake" ,automake)
1202 ("autoconf" ,autoconf)
1203 ("perl" ,perl)
1204 ("libtool" ,libtool)
1205 ("guile-dbi-bootstrap" ,guile-dbi-bootstrap)))
1206 (inputs
1207 `(("postgresql" ,postgresql)
1208 ("zlib" ,zlib)))
1209 (synopsis "Guile DBI driver for PostgreSQL")
1210 (home-page
1211 "https://github.com/opencog/guile-dbi/tree/master/guile-dbd-postgresql")
1212 (description
1213 "@code{guile-dbi} is a library for Guile that provides a convenient
1214interface to SQL databases. This package implements the interface for
1215PostgreSQL.")
1216 (license license:gpl2+))))
1217
0791437f
RW		 1218(define-public guile-config
1219 (package
1220 (name "guile-config")
1221 (version "0.3")
1222 (source
1223 (origin
1224 (method git-fetch)
1225 (uri (git-reference
1226 (url "https://gitlab.com/a-sassmannshausen/guile-config")
1227 (commit "ce12de3f438c6b2b59c43ee21bcd58251835fdf3")))
1228 (file-name "guile-config-0.3-checkout")
1229 (sha256 (base32 "02zbpin0r9m2vxmr7mv68v3xdn247dcck56kbzjn0gj4c2rhih85"))))
1230 (build-system gnu-build-system)
1231 (native-inputs
1232 `(("autoconf" ,autoconf)
1233 ("automake" ,automake)
1234 ("pkg-config" ,pkg-config)
1235 ("texinfo" ,texinfo)))
1236 (inputs `(("guile" ,guile-2.2)))
1237 (synopsis
1238 "Guile application configuration parsing library.")
1239 (description
1240 "Guile Config is a library providing a declarative approach to
1241application configuration specification. The library provides clean
1242configuration declaration forms, and processors that take care of:
1243configuration file creation; configuration file parsing; command-line
1244parameter parsing using getopt-long; basic GNU command-line parameter
1245generation (--help, --usage, --version); automatic output generation for the
1246above command-line parameters.")
1247 (home-page
1248 "https://gitlab.com/a-sassmannshausen/guile-config")
1249 (license license:gpl3+)))
1250
1251(define-public guile-hall
1252 (package
1253 (name "guile-hall")
63bf0afd 1254 (version "0.2")
0791437f 1255 (source
feb11b08
RW		 1256 (origin
1257 (method git-fetch)
1258 (uri (git-reference
1259 (url "https://gitlab.com/a-sassmannshausen/guile-hall")
1260 (commit (string-append "v" version))))
1261 (file-name (git-file-name name version))
1262 (sha256 (base32
1263 "1bkbqgj24xh5b65sw2m98iggpi67b72szx1dsiq3cpzlcxplmgaz"))))
0791437f
RW		 1264 (build-system gnu-build-system)
1265 (arguments
63bf0afd
AS		 1266 `(#:modules
1267 ((ice-9 match)
1268 (ice-9 ftw)
1269 ,@%gnu-build-system-modules)
1270 #:phases
1271 (modify-phases
1272 %standard-phases
1273 (add-after 'install 'hall-wrap-binaries
1274 (lambda* (#:key inputs outputs #:allow-other-keys)
1275 (let* ((compiled-dir
1276 (lambda (out version)
1277 (string-append
1278 out "/lib/guile/" version "/site-ccache")))
1279 (uncompiled-dir
1280 (lambda (out version)
1281 (string-append
1282 out "/share/guile/site"
1283 (if (string-null? version) "" "/") version)))
1284 (dep-path
1285 (lambda (env modules path)
1286 (list env ":" 'prefix
1287 (cons modules
1288 (map (lambda (input)
1289 (string-append
1290 (assoc-ref inputs input)
1291 path))
1292 ,''("guile-config"))))))
1293 (out (assoc-ref outputs "out"))
1294 (bin (string-append out "/bin/"))
1295 (site (uncompiled-dir out "")))
1296 (match (scandir site)
1297 (("." ".." version)
1298 (for-each
1299 (lambda (file)
1300 (wrap-program
1301 (string-append bin file)
1302 (dep-path
1303 "GUILE_LOAD_PATH"
1304 (uncompiled-dir out version)
1305 (uncompiled-dir "" version))
1306 (dep-path
1307 "GUILE_LOAD_COMPILED_PATH"
1308 (compiled-dir out version)
1309 (compiled-dir "" version))))
1310 ,''("hall"))
1311 #t))))))))
0791437f 1312 (native-inputs
63bf0afd
AS		 1313 `(("autoconf" ,autoconf)
1314 ("automake" ,automake)
1315 ("pkg-config" ,pkg-config)
1316 ("texinfo" ,texinfo)))
0791437f
RW		 1317 (inputs `(("guile" ,guile-2.2)))
1318 (propagated-inputs
3c3e6620 1319 `(("guile-config" ,guile-config)))
0791437f
RW		 1320 (synopsis "Guile project tooling")
1321 (description
3c3e6620
RW		 1322 "Hall is a command-line application and a set of Guile libraries that
1323allow you to quickly create and publish Guile projects. It allows you to
1324transparently support the GNU build system, manage a project hierarchy &
1325provides tight coupling to Guix.")
1326 (home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
06085fac 1327 (license license:gpl3+)))
0791437f
RW		 1328
1329(define-public guile-ics
1330 (package
1331 (name "guile-ics")
1332 (version "0.2.0")
1333 (source (origin
1334 (method git-fetch)
1335 (uri (git-reference
1336 (url "https://github.com/artyom-poptsov/guile-ics")
1337 (commit (string-append "v" version))))
1338 (file-name (string-append name "-" version "-checkout"))
1339 (sha256
1340 (base32
1341 "0qjjvadr7gibdq9jvwkmlkb4afsw9n2shfj9phpiadinxk3p4m2g"))))
1342 (build-system gnu-build-system)
1343 (native-inputs
1344 `(("autoconf" ,autoconf-wrapper)
1345 ("automake" ,automake)
1346 ("texinfo" ,texinfo)
1347 ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
1348 ("gettext" ,gettext-minimal)
1349 ("pkg-config" ,pkg-config)))
1350 (inputs `(("guile" ,guile-2.2) ("which" ,which)))
1351 (propagated-inputs `(("guile-lib" ,guile-lib)))
1352 (home-page "https://github.com/artyom-poptsov/guile-ics")
1353 (synopsis "Guile parser library for the iCalendar format")
1354 (description
1355 "Guile-ICS is an iCalendar (RFC5545) format parser library written in
1356pure Scheme. The library can be used to read and write iCalendar data.
1357
1358The library is shipped with documentation in Info format and usage examples.")
1359 (license license:gpl3+)))
1360
1361(define-public guile-wisp
1362 (package
1363 (name "guile-wisp")
15218d4e 1364 (version "0.9.9.1")
0791437f
RW		 1365 (source (origin
1366 (method url-fetch)
1367 (uri (string-append "https://bitbucket.org/ArneBab/"
1368 "wisp/downloads/wisp-"
1369 version ".tar.gz"))
1370 (sha256
1371 (base32
15218d4e 1372 "1ii14qz1lx7ffhb8i9q7dgaiwbif8g2q182skx17j11skp65c8r3"))))
0791437f
RW		 1373 (build-system gnu-build-system)
1374 (arguments
1375 `(#:modules ((guix build gnu-build-system)
15218d4e 1376 ((guix build emacs-build-system) #:prefix emacs:)
0791437f 1377 (guix build utils)
15218d4e 1378 (guix build emacs-utils)
0791437f
RW		 1379 (ice-9 rdelim)
1380 (ice-9 popen))
15218d4e
RW		 1381 #:imported-modules (,@%gnu-build-system-modules
1382 (guix build emacs-build-system)
1383 (guix build emacs-utils))
0791437f
RW		 1384 #:phases
1385 (modify-phases %standard-phases
1386 (add-before 'configure 'patch-/usr/bin/env
1387 (lambda _
1388 (substitute* "Makefile.in"
1389 (("/usr/bin/env bash") (which "bash"))
1390 (("\\$\\(GUILE_EFFECTIVE_VERSION\\)/site")
1391 "site/$(GUILE_EFFECTIVE_VERSION)")) ;use the right order
1392 #t))
1393 ;; auto compilation breaks, but if we set HOME to /tmp,
1394 ;; that works ok
1395 (add-before 'check 'auto-compile-hacky-workaround
1396 (lambda _ (setenv "HOME" "/tmp") #t))
1397 (add-after 'install 'install-go-files
1398 (lambda* (#:key outputs inputs #:allow-other-keys)
1399 (let* ((out (assoc-ref outputs "out"))
1400 (effective (read-line
1401 (open-pipe* OPEN_READ
1402 "guile" "-c"
1403 "(display (effective-version))")))
1404 (module-dir (string-append out "/share/guile/site/"
1405 effective))
1406 (object-dir (string-append out "/lib/guile/" effective
1407 "/site-ccache"))
1408 (prefix (string-length module-dir)))
1409 ;; compile to the destination
1410 (for-each (lambda (file)
1411 (let* ((base (string-drop (string-drop-right file 4)
1412 prefix))
1413 (go (string-append object-dir base ".go")))
1414 (invoke "guild" "compile" "-L" module-dir
1415 file "-o" go)))
1416 (find-files module-dir "\\.scm$"))
15218d4e
RW		 1417 #t)))
1418 (add-after 'install 'install-emacs-files
1419 (assoc-ref emacs:%standard-phases 'install))
1420 (add-after 'install-emacs-files 'compile-emacs-files
1421 (assoc-ref emacs:%standard-phases 'build))
1422 (add-after 'compile-emacs-files 'make-autoloads
1423 (assoc-ref emacs:%standard-phases 'make-autoloads)))))
0791437f
RW		 1424 (home-page "https://draketo.de/english/wisp")
1425 (inputs
1426 `(("guile" ,guile-2.2)))
1427 (native-inputs
15218d4e
RW		 1428 `(("emacs" ,emacs-minimal)
1429 ("python" ,python)
0791437f
RW		 1430 ("pkg-config" ,pkg-config)))
1431 (synopsis "Whitespace to lisp syntax for Guile")
1432 (description "Wisp is a syntax for Guile which provides a Python-like
1433whitespace-significant language. It may be easier on the eyes for some
1434users and in some situations.")
1435 (license license:gpl3+)))
1436
1437(define-public guile-sly
1438 (package
1439 (name "guile-sly")
1440 (version "0.1")
1441 (source (origin
1442 (method url-fetch)
1443 (uri (string-append "https://files.dthompson.us/sly/sly-"
1444 version ".tar.gz"))
1445 (sha256
1446 (base32
1447 "1svzlbz2vripmyq2kjh0rig16bsrnbkwbsm558pjln9l65mcl4qq"))
1448 (modules '((guix build utils)))
1449 (snippet
1450 '(begin
1451 (substitute* "configure"
1452 (("_guile_required_version=\"2.0.11\"")
1453 "_guile_required_version=\"2\"")
1454 (("ac_subst_vars='")
1455 "ac_subst_vars='GUILE_EFFECTIVE_VERSION\n"))
1456 (substitute* (find-files "." "Makefile.in")
1457 (("moddir = .*$")
1458 (string-append
1459 "moddir = "
1460 "$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n"))
1461 (("godir = .*$")
1462 (string-append
1463 "godir = "
1464 "$(prefix)/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")))
1465 #t))))
1466 (build-system gnu-build-system)
1467 (arguments
1468 '(#:configure-flags
1469 (list (string-append "--with-libfreeimage-prefix="
1470 (assoc-ref %build-inputs "freeimage"))
1471 (string-append "--with-libgslcblas-prefix="
1472 (assoc-ref %build-inputs "gsl")))))
1473 (native-inputs
1474 `(("pkg-config" ,pkg-config)))
1475 (propagated-inputs
1476 `(("guile-sdl" ,guile-sdl)
1477 ("guile-opengl" ,guile-opengl)))
1478 (inputs
1479 `(("guile" ,guile-2.2)
1480 ("gsl" ,gsl)
1481 ("freeimage" ,freeimage)
1482 ("mesa" ,mesa)))
1483 (synopsis "2D/3D game engine for GNU Guile")
1484 (description "Sly is a 2D/3D game engine written in Guile Scheme. Sly
1485features a functional reactive programming interface and live coding
1486capabilities.")
1487 (home-page "https://dthompson.us/projects/sly.html")
1488 (license license:gpl3+)))
1489
1490(define-public g-wrap
1491 (package
1492 (name "g-wrap")
1493 (version "1.9.15")
1494 (source (origin
1495 (method url-fetch)
1496 (uri (string-append "mirror://savannah/g-wrap/g-wrap-"
1497 version ".tar.gz"))
1498 (sha256
1499 (base32
1500 "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
1501 (build-system gnu-build-system)
1502 (native-inputs
1503 `(("pkg-config" ,pkg-config)))
1504 (propagated-inputs
1505 `(("guile" ,guile-2.2)
1506 ("guile-lib" ,guile-lib)))
1507 (inputs
1508 `(("libffi" ,libffi)))
1509 (arguments
1510 `(#:configure-flags '("--disable-Werror")
1511 #:phases
1512 (modify-phases %standard-phases
1513 (add-before 'configure 'pre-configure
1514 (lambda* (#:key outputs #:allow-other-keys)
1515 (let ((out (assoc-ref outputs "out")))
1516 (substitute* (find-files "." "^Makefile.in$")
1517 (("guilemoduledir =.*guile/site" all)
1518 (string-append all "/@GUILE_EFFECTIVE_VERSION@")))
1519 #t))))))
1520 (synopsis "Generate C bindings for Guile")
1521 (description "G-Wrap is a tool and Guile library for generating function
1522wrappers for inter-language calls. It currently only supports generating Guile
1523wrappers for C functions. Given a definition of the types and prototypes for
1524a given C interface, G-Wrap will automatically generate the C code that
1525provides access to that interface and its types from the Scheme level.")
1526 (home-page "https://www.nongnu.org/g-wrap/index.html")
1527 (license license:lgpl2.1+)))
1528
1529(define-public guile-miniadapton
1530 (let ((commit "1b5749422304567c96ac5367f2221dda9eff5880")
1531 (revision "1"))
1532 (package
1533 (name "guile-miniadapton")
1534 (version (string-append "0-" revision "." (string-take commit 9)))
1535 (source (origin
1536 (method git-fetch)
1537 (uri (git-reference
1538 (url "https://github.com/fisherdj/miniAdapton.git")
1539 (commit commit)))
1540 (file-name (string-append name "-" version "-checkout"))
1541 (sha256
1542 (base32
1543 "09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
1544 (build-system guile-build-system)
1545 (native-inputs
1546 `(("guile" ,guile-2.2)))
1547 (home-page "https://github.com/fisherdj/miniAdapton")
1548 (synopsis "Minimal implementation of incremental computation in Guile
1549Scheme")
1550 (description "This package provides a complete Scheme implementation of
1551miniAdapton, which implements the core functionality of the Adapton system for
1552incremental computation (also known as self-adjusting computation). Like
1553Adapton, miniAdapton allows programmers to safely combine mutation and
1554memoization. miniAdapton is built on top of an even simpler system,
1555microAdapton. Both miniAdapton and microAdapton are designed to be easy to
1556understand, extend, and port to host languages other than Scheme.")
1557 (license license:expat))))
1558
1559(define-public guile-reader
1560 (package
1561 (name "guile-reader")
1562 (version "0.6.2")
1563 (source (origin
1564 (method url-fetch)
1565 (uri (string-append "mirror://savannah/guile-reader/guile-reader-"
1566 version ".tar.gz"))
1567 (sha256
1568 (base32
1569 "0592s2s8ampqmqwilc4fvcild6rb9gy79di6vxv5kcdmv23abkgx"))))
1570 (build-system gnu-build-system)
1571 (native-inputs `(("pkgconfig" ,pkg-config)
1572 ("gperf" ,gperf-3.0)))
1573 (inputs `(("guile" ,guile-2.2)))
1574 (synopsis "Framework for building readers for GNU Guile")
1575 (description
1576 "Guile-Reader is a simple framework for building readers for GNU Guile.
1577
1578The idea is to make it easy to build procedures that extend Guile’s read
1579procedure. Readers supporting various syntax variants can easily be written,
1580possibly by re-using existing “token readers” of a standard Scheme
1581readers. For example, it is used to implement Skribilo’s R5RS-derived
1582document syntax.
1583
1584Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
1585hopefully more powerful and flexible (for instance, one may instantiate as
1586many readers as needed).")
1587 (home-page "https://www.nongnu.org/guile-reader/")
1588 (license license:gpl3+)))
1589
1590(define-public guile2.2-reader
1591 (deprecated-package "guile2.2-reader" guile-reader))
1592
1593(define-public guile-ncurses
1594 (package
1595 (name "guile-ncurses")
1596 (version "2.2")
1597 (source (origin
1598 (method url-fetch)
1599 (uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
1600 version ".tar.gz"))
1601 (sha256
1602 (base32
1603 "1wvggbr4xv8idh1hzd8caj4xfp4pln78a7w1wqzd4zgzwmnzxr2f"))))
1604 (build-system gnu-build-system)
1605 (inputs `(("ncurses" ,ncurses)
1606 ("guile" ,guile-2.2)))
1607 (native-inputs `(("pkg-config" ,pkg-config)))
1608 (arguments
1609 '(#:configure-flags (list "--with-ncursesw" ; Unicode support
1610 "--with-gnu-filesystem-hierarchy")
1611 #:phases
1612 (modify-phases %standard-phases
1613 (add-before 'build 'fix-libguile-ncurses-file-name
1614 (lambda* (#:key outputs #:allow-other-keys)
1615 (invoke "make" "install"
1616 "-C" "src/ncurses"
1617 "-j" (number->string
1618 (parallel-job-count)))
1619 (let* ((out (assoc-ref outputs "out"))
1620 (dir "src/ncurses")
1621 (files (find-files dir ".scm")))
1622 (substitute* files
1623 (("\"libguile-ncurses\"")
1624 (format #f "\"~a/lib/guile/2.2/libguile-ncurses\""
1625 out)))
1626 #t))))))
1627 (home-page "https://www.gnu.org/software/guile-ncurses/")
1628 (synopsis "Guile bindings to ncurses")
1629 (description
1630 "guile-ncurses provides Guile language bindings for the ncurses
1631library.")
1632 (license license:lgpl3+)))
1633
1634(define-public guile-ncurses/gpm
1635 (package
1636 (inherit guile-ncurses)
1637 (name "guile-ncurses-with-gpm")
1638 (inputs `(("ncurses" ,ncurses/gpm)
1639 ("guile" ,guile-2.2)))))
1640
1641(define-public guile-lib
1642 (package
1643 (name "guile-lib")
1644 (version "0.2.6.1")
1645 (source (origin
1646 (method url-fetch)
1647 (uri (string-append "mirror://savannah/guile-lib/guile-lib-"
1648 version ".tar.gz"))
1649 (sha256
1650 (base32
1651 "0aizxdif5dpch9cvs8zz5g8ds5s4xhfnwza2il5ji7fv2h7ks7bd"))))
1652 (build-system gnu-build-system)
1653 (arguments
1654 '(#:make-flags
1655 '("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
1656 #:phases
1657 (modify-phases %standard-phases
1658 (add-before 'configure 'patch-module-dir
1659 (lambda _
1660 (substitute* "src/Makefile.in"
1661 (("^moddir = ([[:graph:]]+)")
1662 "moddir = $(datadir)/guile/site/@GUILE_EFFECTIVE_VERSION@\n")
1663 (("^godir = ([[:graph:]]+)")
1664 "godir = \
1665$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
1666 #t)))))
1667 (native-inputs `(("pkg-config" ,pkg-config)))
1668 (inputs `(("guile" ,guile-2.2)))
1669 (home-page "https://www.nongnu.org/guile-lib/")
1670 (synopsis "Collection of useful Guile Scheme modules")
1671 (description
1672 "Guile-Lib is intended as an accumulation place for pure-scheme Guile
1673modules, allowing for people to cooperate integrating their generic Guile
1674modules into a coherent library. Think \"a down-scaled, limited-scope CPAN
1675for Guile\".")
1676
1677 ;; The whole is under GPLv3+, but some modules are under laxer
1678 ;; distribution terms such as LGPL and public domain. See `COPYING' for
1679 ;; details.
1680 (license license:gpl3+)))
1681
1682(define-public guile2.0-lib
1683 (package
1684 (inherit guile-lib)
1685 (name "guile2.0-lib")
1686 (inputs `(("guile" ,guile-2.0)))))
1687
1688(define-public guile2.2-lib
1689 (deprecated-package "guile2.2-lib" guile-lib))
1690
1691(define-public guile-minikanren
1692 (package
1693 (name "guile-minikanren")
1694 (version "20150424.e844d85")
1695 (source (origin
1696 (method git-fetch)
1697 (uri (git-reference
1698 (url "https://github.com/ijp/minikanren.git")
1699 (commit "e844d85512f8c055d3f96143ee506007389a25e3")))
1700 (file-name (string-append name "-" version "-checkout"))
1701 (sha256
1702 (base32
1703 "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
1704 (build-system guile-build-system)
1705 (native-inputs
1706 `(("guile" ,guile-2.2)))
1707 (home-page "https://github.com/ijp/minikanren")
1708 (synopsis "MiniKanren declarative logic system, packaged for Guile")
1709 (description
1710 "MiniKanren is a relational programming extension to the Scheme
1711programming Language, written as a smaller version of Kanren suitable for
1712pedagogical purposes. It is featured in the book, The Reasoned Schemer,
1713written by Dan Friedman, William Byrd, and Oleg Kiselyov.
1714
1715This is Ian Price's r6rs packaged version of miniKanren, which deviates
1716slightly from miniKanren mainline.
1717
1718See http://minikanren.org/ for more on miniKanren generally.")
1719 (license license:expat)))
1720
1721(define-public guile2.0-minikanren
1722 (package
1723 (inherit guile-minikanren)
1724 (name "guile2.0-minikanren")
1725 (native-inputs `(("guile" ,guile-2.0)))))
1726
1727(define-public guile2.2-minikanren
1728 (deprecated-package "guile2.2-minikanren" guile-minikanren))
1729
1730(define-public guile-irregex
1731 (package
1732 (name "guile-irregex")
1733 (version "0.9.6")
1734 (source (origin
1735 (method url-fetch)
1736 (uri (string-append
1737 "http://synthcode.com/scheme/irregex/irregex-"
1738 version ".tar.gz"))
1739 (sha256
1740 (base32
1741 "1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq"))))
1742 (build-system guile-build-system)
1743 (arguments
1744 '(#:phases (modify-phases %standard-phases
1745 (add-after 'unpack 'move-files-around
1746 (lambda _
1747 ;; Move the relevant source files to src/ and create the
1748 ;; rx/ directory to match the expected module hierarchy.
1749 (mkdir-p "src/rx/source")
1750 (rename-file "irregex-guile.scm"
1751 "src/rx/irregex.scm")
1752 (rename-file "irregex.scm"
1753 "src/rx/source/irregex.scm")
1754 ;; Not really reachable via guile's packaging system,
1755 ;; but nice to have around.
1756 (rename-file "irregex-utils.scm"
1757 "src/rx/source/irregex-utils.scm")
1758 #t)))
1759 #:source-directory "src"))
1760 (native-inputs
1761 `(("guile" ,guile-2.2)))
1762 (home-page "http://synthcode.com/scheme/irregex")
1763 (synopsis "S-expression based regular expressions")
1764 (description
1765 "Irregex is an s-expression based alternative to your classic
1766string-based regular expressions. It implements SRFI 115 and is deeply
1767inspired by the SCSH regular expression system.")
1768 (license license:bsd-3)))
1769
1770(define-public guile2.0-irregex
1771 (package
1772 (inherit guile-irregex)
1773 (name "guile2.0-irregex")
1774 (native-inputs `(("guile" ,guile-2.0)))))
1775
1776(define-public guile2.2-irregex
1777 (deprecated-package "guile2.2-irregex" guile-irregex))
1778
1779(define-public haunt
1780 (package
1781 (name "haunt")
1782 (version "0.2.4")
1783 (source (origin
1784 (method url-fetch)
1785 (uri (string-append "https://files.dthompson.us/haunt/haunt-"
1786 version ".tar.gz"))
1787 (sha256
1788 (base32
1789 "056z4znikk83nr5mr0x2ac3iinqbywa2bvb37mhr566a1q50isfc"))))
1790 (build-system gnu-build-system)
1791 (arguments
1792 `(#:modules ((ice-9 match) (ice-9 ftw)
1793 ,@%gnu-build-system-modules)
1794 #:tests? #f ; test suite is non-deterministic :(
1795 #:phases (modify-phases %standard-phases
1796 (add-after 'install 'wrap-haunt
1797 (lambda* (#:key inputs outputs #:allow-other-keys)
1798 ;; Wrap the 'haunt' command to refer to the right
1799 ;; modules.
1800 (let* ((out (assoc-ref outputs "out"))
1801 (bin (string-append out "/bin"))
1802 (site (string-append
1803 out "/share/guile/site"))
1804 (deps (list (assoc-ref inputs "guile-reader")
1805 (assoc-ref inputs "guile-commonmark"))))
1806 (match (scandir site)
1807 (("." ".." version)
1808 (let ((modules (string-append site "/" version))
1809 (compiled-modules (string-append
1810 out "/lib/guile/" version
1811 "/site-ccache")))
1812 (wrap-program (string-append bin "/haunt")
1813 `("GUILE_LOAD_PATH" ":" prefix
1814 (,modules
1815 ,@(map (lambda (dep)
1816 (string-append dep
1817 "/share/guile/site/"
1818 version))
1819 deps)))
1820 `("GUILE_LOAD_COMPILED_PATH" ":" prefix
1821 (,compiled-modules
1822 ,@(map (lambda (dep)
1823 (string-append dep "/lib/guile/"
1824 version
1825 "/site-ccache"))
1826 deps))))
1827 #t)))))))))
1828 (native-inputs
1829 `(("pkg-config" ,pkg-config)
1830 ("texinfo" ,texinfo)))
1831 (inputs
1832 `(("guile" ,guile-2.2)))
1833 (propagated-inputs
1834 `(("guile-reader" ,guile-reader)
1835 ("guile-commonmark" ,guile-commonmark)))
1836 (synopsis "Functional static site generator")
1837 (description "Haunt is a static site generator written in Guile
1838Scheme. Haunt features a functional build system and an extensible
1839interface for reading articles in any format.")
1840 (home-page "http://haunt.dthompson.us")
1841 (license license:gpl3+)))
1842
1843(define-public guile2.0-haunt
1844 (package
1845 (inherit haunt)
1846 (name "guile2.0-haunt")
1847 (inputs `(("guile" ,guile-2.0)))))
1848
1849(define-public guile2.2-haunt
1850 (deprecated-package "guile2.2-haunt" haunt))
1851
1852(define-public guile-redis
1853 (package
1854 (name "guile-redis")
f57bf15c 1855 (version "1.3.0")
0791437f
RW		 1856 (home-page "https://github.com/aconchillo/guile-redis")
1857 (source (origin
1858 (method url-fetch)
1859 (uri (string-append home-page "/archive/" version ".tar.gz"))
1860 (sha256
1861 (base32
f57bf15c 1862 "1li70a2716my9q9zfq0qn2x5d1cir9k2vx0jm9glm464yaf1vj39"))))
0791437f
RW		 1863 (build-system gnu-build-system)
1864 (native-inputs
1865 `(("autoconf" ,autoconf)
1866 ("automake" ,automake)
1867 ("pkg-config" ,pkg-config)
1868 ("guile" ,guile-2.2)))
1869 (synopsis "Redis client library for Guile")
1870 (description "Guile-redis provides a Scheme interface to the Redis
1871key-value cache and store.")
1872 (license license:lgpl3+)))
1873
1874(define-public guile2.0-redis
1875 (package
1876 (inherit guile-redis)
1877 (name "guile2.0-redis")
1878 (native-inputs `(("guile" ,guile-2.0)
1879 ,@(alist-delete "guile"
1880 (package-native-inputs guile-redis))))))
1881
1882(define-public guile2.2-redis
1883 (deprecated-package "guile2.2-redis" guile-redis))
1884
1885(define-public guile-commonmark
1886 (package
1887 (name "guile-commonmark")
b552e307 1888 (version "0.1.2")
0791437f
RW		 1889 (source (origin
1890 (method url-fetch)
1891 (uri (string-append "https://github.com/OrangeShark/" name
1892 "/releases/download/v" version
1893 "/" name "-" version ".tar.gz"))
1894 (sha256
1895 (base32
b552e307 1896 "17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))))
0791437f
RW		 1897 (build-system gnu-build-system)
1898 (inputs
1899 `(("guile" ,guile-2.2)))
1900 (native-inputs
1901 `(("pkg-config" ,pkg-config)))
1902 (synopsis "CommonMark parser for Guile")
1903 (description
1904 "guile-commonmark is a library for parsing CommonMark, a fully specified
1905variant of Markdown. The library is written in Guile Scheme and is designed
1906to transform a CommonMark document to SXML. guile-commonmark tries to closely
1907follow the @uref{http://commonmark.org/, CommonMark spec}, the main difference
1908is no support for parsing block and inline level HTML.")
1909 (home-page "https://github.com/OrangeShark/guile-commonmark")
1910 (license license:lgpl3+)))
1911
1912(define-public guile2.0-commonmark
1913 (package
1914 (inherit guile-commonmark)
1915 (name "guile2.0-commonmark")
1916 (inputs `(("guile" ,guile-2.0)))))
1917
1918(define-public guile2.2-commonmark
1919 (deprecated-package "guile2.2-commonmark" guile-commonmark))
1920
1921(define-public mcron
1922 (package
1923 (name "mcron")
1924 (version "1.1.1")
1925 (source (origin
1926 (method url-fetch)
1927 (uri (string-append "mirror://gnu/mcron/mcron-"
1928 version ".tar.gz"))
1929 (sha256
1930 (base32
1931 "1i9mcp6r6my61zfiydsm3n6my41mwvl7dfala4q29qx0zn1ynlm4"))))
1932 (build-system gnu-build-system)
1933 (arguments
1934 '(#:phases (modify-phases %standard-phases
1935 (add-before 'check 'set-timezone
1936 (lambda* (#:key inputs #:allow-other-keys)
1937 ;; 'tests/job-specifier.scm' expects to be running in
1938 ;; UTC-2 or something.
1939 ;; FIXME: This issue is being investigated upstream, for
1940 ;; now we'll just skip the tests (see below):
1941 ;; <https://lists.gnu.org/archive/html/bug-mcron/2018-04/msg00005.html>.
1942 (let ((tzdata (assoc-ref inputs "tzdata")))
1943 (setenv "TZDIR"
1944 (string-append tzdata
1945 "/share/zoneinfo"))
1946 (setenv "TZ" "UTC-2")
1947 #t)))
1948 (add-before 'check 'adjust-tests
1949 (lambda _
1950 (substitute* "tests/job-specifier.scm"
1951 ;; (getpw) fails with "entry not found" in the build
1952 ;; environment, so pass an argument.
1953 (("\\(getpw\\)")
1954 "(getpwnam (getuid))")
1955 ;; The build environment lacks an entry for root in
1956 ;; /etc/passwd.
1957 (("\\(getpw 0\\)")
1958 "(getpwnam \"nobody\")")
1959
1960 ;; FIXME: Skip the 4 faulty tests (see above).
1961 (("\\(test-equal \"next-year\"" all)
1962 (string-append "(test-skip 4)\n" all)))
1963 #t)))))
1964 (native-inputs `(("pkg-config" ,pkg-config)
1965 ("tzdata" ,tzdata-for-tests)))
1966 (inputs `(("ed" ,ed) ("which" ,which) ("guile" ,guile-2.2)))
1967 (home-page "https://www.gnu.org/software/mcron/")
1968 (synopsis "Run jobs at scheduled times")
1969 (description
1970 "GNU Mcron is a complete replacement for Vixie cron. It is used to run
1971tasks on a schedule, such as every hour or every Monday. Mcron is written in
1972Guile, so its configuration can be written in Scheme; the original cron
1973format is also supported.")
1974 (license license:gpl3+)))
1975
1976(define-public mcron2
1977 ;; This was mthl's mcron development branch, and it became mcron 1.1.
1978 (deprecated-package "mcron2" mcron))
6bb5f88e
RW		 1979
1980(define-public guile-picture-language
8d11b6dd
RW		 1981 (let ((commit "1ea8b78a8bceb4f7e5eaeb3e76987072267f99bb")
1982 (revision "2"))
6bb5f88e
RW		 1983 (package
1984 (name "guile-picture-language")
1985 (version (git-version "0" revision commit))
1986 (source (origin
1987 (method git-fetch)
1988 (uri (git-reference
1989 (url "https://git.elephly.net/software/guile-picture-language.git")
1990 (commit commit)))
1991 (sha256
1992 (base32
8d11b6dd 1993 "1rvq6q2zq21x7dx0qq1hn568wglsl4bkd8gacbarcx1fs0rrxcqw"))))
6bb5f88e
RW		 1994 (build-system guile-build-system)
1995 (inputs
1996 `(("guile" ,guile-2.2)))
1997 (home-page "https://git.elephly.net/software/guile-picture-language.git")
1998 (synopsis "Picture language for Guile")
1999 (description
2000 "This package provides a simple SVG-based picture language for Guile.
2001The picture values can directly be displayed in Geiser.")
2002 (license license:lgpl3+))))
5531782d
RW		 2003
2004(define-public guile-studio
2005 (let ((commit "e2da64f014942a73996286c4abe3c3b1f8bd220c")
2006 (revision "1"))
2007 (package
2008 (name "guile-studio")
2009 (version (git-version "0" revision commit))
2010 (source (origin
2011 (method git-fetch)
2012 (uri (git-reference
2013 (url "https://git.elephly.net/software/guile-studio.git")
2014 (commit commit)))
2015 (sha256
2016 (base32
2017 "10v3kw41bzd8c2a6vxgrwbvl216d0k8f5s9h6pm8hahpd03jl7lm"))))
2018 (build-system gnu-build-system)
2019 (arguments
2020 `(#:tests? #f ; there are none
2021 #:phases
2022 (modify-phases %standard-phases
2023 (delete 'configure)
2024 (replace 'build
2025 (lambda* (#:key source inputs outputs #:allow-other-keys)
2026 (let* ((out (assoc-ref outputs "out"))
2027 (bin (string-append out "/bin/"))
2028 (share (string-append out "/share/")))
2029 (mkdir-p share)
2030 (mkdir-p bin)
2031 (apply invoke "guile" "-s" "guile-studio-configure.scm"
2032 out
2033 (assoc-ref inputs "emacs")
2034 (assoc-ref inputs "guile-picture-language")
2035 (string-append (assoc-ref inputs "adwaita-icon-theme")
2036 "/share/icons/Adwaita/")
2037 (map cdr inputs))
2038 #t)))
2039 (delete 'install))))
2040 (inputs
2041 `(("guile" ,guile-2.2)
2042 ("guile-picture-language" ,guile-picture-language)
2043 ("emacs" ,emacs)
2044 ("emacs-geiser" ,emacs-geiser)
2045 ("emacs-company" ,emacs-company)
2046 ("emacs-flycheck" ,emacs-flycheck)
2047 ("emacs-smart-mode-line" ,emacs-smart-mode-line)
2048 ("emacs-paren-face" ,emacs-paren-face)
2049 ("adwaita-icon-theme" ,adwaita-icon-theme)))
2050 (home-page "https://gnu.org/software/guile")
2051 (synopsis "IDE for Guile")
2052 (description
2053 "This is Emacs with a few settings that make working with Guile easier
2054for people new to Emacs. Features include: CUA mode, Geiser, tool bar icons
2055to evaluate Guile buffers, support for Guile's very own picture language, code
2056completion, a simple mode line, etc.")
2057 (license license:gpl3+))))
9f8698ad
RW		 2058
2059(define-public guile-stis-parser
2060 (let ((commit "6e85d37ffc333b722f4413a6c648263701eb75bd")
2061 (revision "1"))
2062 (package
2063 (name "guile-stis-parser")
2064 (version (git-version "0" revision commit))
2065 (source (origin
2066 (method git-fetch)
2067 (uri (git-reference
2068 (url "https://gitlab.com/tampe/stis-parser")
2069 (commit commit)))
29e76f07 2070 (file-name (git-file-name name version))
9f8698ad
RW		 2071 (sha256
2072 (base32
2073 "0v4hvq7rlpbra1ni73lf8k6sdmjlflr50yi3p1f24g85h77pc7c0"))))
2074 (build-system gnu-build-system)
2075 (arguments
2076 `(#:parallel-build? #f ; not supported
2077 #:phases
2078 (modify-phases %standard-phases
2079 (add-after 'unpack 'chdir
2080 (lambda _ (chdir "modules") #t))
8318b3ed
RW		 2081 (add-after 'chdir 'use-canonical-directory-for-go-files
2082 (lambda _
2083 (substitute* "Makefile.am"
2084 (("/ccache") "/site-ccache"))
2085 #t))
9f8698ad
RW		 2086 (add-after 'chdir 'delete-broken-symlink
2087 (lambda _
2088 (delete-file "parser/stis-parser/lang/.#calc.scm")
2089 #t)))))
2090 (inputs
2091 `(("guile" ,guile-2.2)))
2092 (native-inputs
2093 `(("autoconf" ,autoconf)
2094 ("automake" ,automake)
2095 ("pkg-config" ,pkg-config)))
2096 (home-page "https://gitlab.com/tampe/stis-parser")
2097 (synopsis "Parser combinator framework")
2098 (description
2099 "This package provides a functional parser combinator library that
2100supports backtracking and a small logical framework. The idea is to build up
2101chunks that are memoized and there is no clear scanner/parser separation,
2102chunks can be expressions as well as simple tokens.")
2103 (license license:lgpl2.0+))))
12d73f9c
RW		 2104
2105(define-public guile-persist
2106 (let ((commit "b14927b0368af51c024560aee5f55724aee35233")
2107 (revision "1"))
2108 (package
2109 (name "guile-persist")
2110 (version (git-version "0" revision commit))
2111 (source (origin
2112 (method git-fetch)
2113 (uri (git-reference
2114 (url "https://gitlab.com/tampe/guile-persist")
2115 (commit commit)))
2116 (file-name (git-file-name name version))
2117 (sha256
2118 (base32
2119 "0z5nf377wh8yj6n3sx2ddn4bdx1qrqnw899dlqjhg0q69qzil522"))))
2120 (build-system gnu-build-system)
2121 (arguments
2122 `(#:phases
2123 (modify-phases %standard-phases
2124 (add-after 'unpack 'patch-prefix
2125 (lambda* (#:key inputs outputs #:allow-other-keys)
2126 (substitute* "src/Makefile.am"
2127 (("/usr/local/lib/guile")
2128 (string-append (assoc-ref outputs "out") "/lib/guile"))
2129 (("/usr/local/include/guile")
2130 (string-append (assoc-ref inputs "guile") "/include/guile"))
2131 (("-L/usr/local/lib")
8f052528
RW		 2132 (string-append "-L" (assoc-ref inputs "guile") "/lib"))
2133 ;; Use canonical directory for go files.
2134 (("/ccache") "/site-ccache"))
12d73f9c
RW		 2135 #t))
2136 (add-after 'unpack 'patch-library-reference
2137 (lambda* (#:key outputs #:allow-other-keys)
2138 (let ((out (assoc-ref outputs "out")))
2139 (substitute* "persist/persistance.scm"
2140 (("\"libguile-persist\"")
2141 (format #f "\"~a/lib/guile/2.2/extensions/libguile-persist\"" out)))
2142 #t))))))
2143 (inputs
2144 `(("guile" ,guile-2.2)))
2145 (native-inputs
2146 `(("autoconf" ,autoconf)
2147 ("automake" ,automake)
2148 ("libtool" ,libtool)
2149 ("pkg-config" ,pkg-config)))
2150 (home-page "https://gitlab.com/tampe/guile-persist")
2151 (synopsis "Persistance programming framework for Guile")
2152 (description
2153 "This is a serialization library for serializing objects like classes
2154and objects, closures and structs. This currently does not support
2155serializing continuations or delimited continuations.")
2156 (license license:lgpl2.0+))))
6d37301b
RW		 2157
2158(define-public python-on-guile
2159 (let ((commit "0cb7c2b2fff4338ca6153473f3f5c409a818f293")
2160 (revision "1"))
2161 (package
2162 (name "python-on-guile")
2163 (version (git-version "0.1.0" revision commit))
2164 (source (origin
2165 (method git-fetch)
2166 (uri (git-reference
2167 (url "https://gitlab.com/python-on-guile/python-on-guile.git")
2168 (commit commit)))
2169 (file-name (git-file-name name version))
2170 (sha256
2171 (base32
2172 "0kpz08rrp5mwcf5ksc4flgrw992syham9x49dn9wq9w31bpcpnby"))))
2173 (build-system gnu-build-system)
2174 (arguments
2175 `(#:parallel-build? #f ; not supported
2176 #:make-flags
2177 '("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
2178 #:phases
2179 (modify-phases %standard-phases
2180 (add-after 'unpack 'chdir
2181 (lambda _ (chdir "modules") #t))
2182 (add-after 'chdir 'use-canonical-directory-for-go-files
2183 (lambda _
2184 (substitute* "Makefile.am"
2185 (("/ccache") "/site-ccache"))
2186 #t)))))
2187 (inputs
2188 `(("guile" ,guile-2.2)))
2189 (propagated-inputs
2190 `(("guile-persist" ,guile-persist)
2191 ("guile-readline" ,guile-readline)
2192 ("guile-stis-parser" ,guile-stis-parser)))
2193 (native-inputs
2194 `(("autoconf" ,autoconf)
2195 ("automake" ,automake)
2196 ("libtool" ,libtool)
2197 ("pkg-config" ,pkg-config)))
2198 (home-page "https://gitlab.com/python-on-guile/python-on-guile/")
2199 (synopsis "Python implementation in Guile")
2200 (description
2201 "This package allows you to compile a Guile Python file to any target
2202from @code{tree-il}.")
2203 (license license:lgpl2.0+))))
jackhill's copy of GNU Guix: https://guix.gnu.org/