12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003 |
- ;;; GNU Guix --- Functional package management for GNU
- ;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org>
- ;;; Copyright © 2014, 2015, 2018 Mark H Weaver <mhw@netris.org>
- ;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org>
- ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
- ;;; Copyright © 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
- ;;; Copyright © 2016 Erik Edrosa <erik.edrosa@gmail.com>
- ;;; Copyright © 2016 Eraim Flashner <efraim@flashner.co.il>
- ;;; Copyright © 2016, 2017 Alex Kost <alezost@gmail.com>
- ;;; Copyright © 2016, 2017 Adonay "adfeno" Felipe Nogueira <https://libreplanet.org/wiki/User:Adfeno> <adfeno@openmailbox.org>
- ;;; Copyright © 2016 Amirouche <amirouche@hypermove.net>
- ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
- ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
- ;;; Copyright © 2017 David Thompson <davet@gnu.org>
- ;;; Copyright © 2017, 2018 Mathieu Othacehe <m.othacehe@gmail.com>
- ;;; Copyright © 2017 Theodoros Foradis <theodoros@foradis.org>
- ;;; Copyright © 2017 Nils Gillmann <ng0@n0.is>
- ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
- ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
- ;;; Copyright © 2018 Arun Isaac <arunisaac@systemreboot.net>
- ;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
- ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
- ;;; Copyright © 2019 swedebugia <swedebugia@riseup.net>
- ;;;
- ;;; This file is part of GNU Guix.
- ;;;
- ;;; GNU Guix is free software; you can redistribute it and/or modify it
- ;;; under the terms of the GNU General Public License as published by
- ;;; the Free Software Foundation; either version 3 of the License, or (at
- ;;; your option) any later version.
- ;;;
- ;;; GNU Guix is distributed in the hope that it will be useful, but
- ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
- ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- ;;; GNU General Public License for more details.
- ;;;
- ;;; You should have received a copy of the GNU General Public License
- ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
- (define-module (gnu packages guile-xyz)
- #:use-module ((guix licenses) #:prefix license:)
- #:use-module (gnu packages)
- #:use-module (gnu packages aspell)
- #:use-module (gnu packages autotools)
- #:use-module (gnu packages base)
- #:use-module (gnu packages bash)
- #:use-module (gnu packages compression)
- #:use-module (gnu packages databases)
- #:use-module (gnu packages disk)
- #:use-module (gnu packages ed)
- #:use-module (gnu packages emacs)
- #:use-module (gnu packages gawk)
- #:use-module (gnu packages gettext)
- #:use-module (gnu packages gl)
- #:use-module (gnu packages gperf)
- #:use-module (gnu packages guile)
- #:use-module (gnu packages hurd)
- #:use-module (gnu packages image)
- #:use-module (gnu packages libffi)
- #:use-module (gnu packages libunistring)
- #:use-module (gnu packages linux)
- #:use-module (gnu packages man)
- #:use-module (gnu packages maths)
- #:use-module (gnu packages multiprecision)
- #:use-module (gnu packages ncurses)
- #:use-module (gnu packages networking)
- #:use-module (gnu packages perl)
- #:use-module (gnu packages pkg-config)
- #:use-module (gnu packages python)
- #:use-module (gnu packages readline)
- #:use-module (gnu packages sdl)
- #:use-module (gnu packages slang)
- #:use-module (gnu packages sqlite)
- #:use-module (gnu packages texinfo)
- #:use-module (gnu packages tls)
- #:use-module (gnu packages version-control)
- #:use-module (gnu packages xdisorg)
- #:use-module (gnu packages xorg)
- #:use-module (guix packages)
- #:use-module (guix download)
- #:use-module (guix git-download)
- #:use-module (guix build-system gnu)
- #:use-module (guix build-system guile)
- #:use-module (guix utils)
- #:use-module (ice-9 match)
- #:use-module ((srfi srfi-1) #:select (alist-delete)))
- (define-public artanis
- (let ((release "0.3.1")
- (revision 0))
- (package
- (name "artanis")
- (version (if (zero? revision)
- release
- (string-append release "-"
- (number->string revision))))
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/artanis/artanis-"
- release ".tar.gz"))
- (file-name (string-append name "-" version ".tar.gz"))
- (sha256
- (base32
- "0hqr5m3mb558bdhkc2sadmd9cbrhp3y525wx7cwirgy6i0zmay68"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- ;; Unbundle guile-redis and guile-json
- (delete-file-recursively "artanis/third-party/json.scm")
- (delete-file-recursively "artanis/third-party/json")
- (delete-file-recursively "artanis/third-party/redis.scm")
- (delete-file-recursively "artanis/third-party/redis")
- (substitute* '("artanis/artanis.scm"
- "artanis/lpc.scm"
- "artanis/oht.scm")
- (("(#:use-module \\()artanis third-party (json\\))" _
- use-module json)
- (string-append use-module json)))
- (substitute* '("artanis/lpc.scm"
- "artanis/session.scm")
- (("(#:use-module \\()artanis third-party (redis\\))" _
- use-module redis)
- (string-append use-module redis)))
- (substitute* "artanis/oht.scm"
- (("([[:punct:][:space:]]+)(->json-string)([[:punct:][:space:]]+)"
- _ pre json-string post)
- (string-append pre
- "scm" json-string
- post)))
- (substitute* "artanis/artanis.scm"
- (("[[:punct:][:space:]]+->json-string[[:punct:][:space:]]+")
- ""))
- #t))))
- (build-system gnu-build-system)
- ;; FIXME the bundled csv contains one more exported procedure
- ;; (sxml->csv-string) than guile-csv. The author is maintainer of both
- ;; projects.
- ;; TODO: Add guile-dbi and guile-dbd optional dependencies.
- (inputs `(("guile" ,guile-2.2)
- ("guile-json" ,guile-json)
- ("guile-redis" ,guile-redis)))
- (native-inputs `(("bash" ,bash) ;for the `source' builtin
- ("pkgconfig" ,pkg-config)
- ("util-linux" ,util-linux))) ;for the `script' command
- (arguments
- '(#:make-flags
- ;; TODO: The documentation must be built with the `docs' target.
- (let* ((out (assoc-ref %outputs "out"))
- (scm (string-append out "/share/guile/site/2.2"))
- (go (string-append out "/lib/guile/2.2/site-ccache")))
- ;; Don't use (%site-dir) for site paths.
- (list (string-append "MOD_PATH=" scm)
- (string-append "MOD_COMPILED_PATH=" go)))
- #:test-target "test"
- #:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch-site-dir
- (lambda* (#:key outputs #:allow-other-keys)
- (substitute* "artanis/commands/help.scm"
- (("\\(%site-dir\\)")
- (string-append "\""
- (assoc-ref outputs "out")
- "/share/guile/site/2.2\"")))))
- (add-before 'install 'substitute-root-dir
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (substitute* "Makefile" ;ignore the execution of bash.bashrc
- ((" /etc/bash.bashrc") " /dev/null"))
- (substitute* "Makefile" ;set the root of config files to OUT
- ((" /etc") (string-append " " out "/etc")))
- (mkdir-p (string-append out "/bin")) ;for the `art' executable
- #t)))
- (add-after 'install 'wrap-art
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (scm (string-append out "/share/guile/site/2.2"))
- (go (string-append out "/lib/guile/2.2/site-ccache")))
- (wrap-program (string-append bin "/art")
- `("GUILE_LOAD_PATH" ":" prefix
- (,scm ,(getenv "GUILE_LOAD_PATH")))
- `("GUILE_LOAD_COMPILED_PATH" ":" prefix
- (,go ,(getenv "GUILE_LOAD_COMPILED_PATH"))))
- #t))))))
- (synopsis "Web application framework written in Guile")
- (description "GNU Artanis is a web application framework written in Guile
- Scheme. A web application framework (WAF) is a software framework that is
- designed to support the development of dynamic websites, web applications, web
- services and web resources. The framework aims to alleviate the overhead
- associated with common activities performed in web development. Artanis
- provides several tools for web development: database access, templating
- frameworks, session management, URL-remapping for RESTful, page caching, and
- more.")
- (home-page "https://www.gnu.org/software/artanis/")
- (license (list license:gpl3+ license:lgpl3+))))) ;dual license
- ;; There has not been any release yet.
- (define-public guildhall
- (let ((commit "2fe2cc539f4b811bbcd69e58738db03eb5a2b778")
- (revision "1"))
- (package
- (name "guildhall")
- (version (string-append "0-" revision "." (string-take commit 9)))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/ijp/guildhall.git")
- (commit commit)))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "115bym7bg66h3gs399yb2vkzc2ygriaqsn4zbrg8f054mgy8wzn1"))))
- (build-system gnu-build-system)
- (arguments
- `(#:phases
- (modify-phases %standard-phases
- ;; Tests fail without this fix because they try to load the bash
- ;; executable as a Scheme file. See bug report at
- ;; https://github.com/ijp/guildhall/issues/22
- (add-after 'unpack 'fix-bug-22
- (lambda _
- (substitute* "Makefile.am"
- (("TESTS_ENVIRONMENT=.*")
- "AM_TESTS_ENVIRONMENT=srcdir=$(abs_top_srcdir)/tests/
- TEST_EXTENSIONS = .scm
- SCM_LOG_COMPILER= $(top_builddir)/env $(GUILE)
- AM_SCM_LOG_FLAGS = --no-auto-compile -s")
- ;; FIXME: one of the database tests fails for unknown
- ;; reasons. It does not fail when run outside of Guix.
- (("tests/database.scm") ""))
- #t)))))
- (inputs
- `(("guile" ,guile-2.0)))
- (native-inputs
- `(("zip" ,zip) ; for tests
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)))
- (synopsis "Package manager for Guile")
- (description
- "Guildhall is a package manager written for Guile Scheme. A guild is
- an association of independent craftspeople. A guildhall is where they meet.
- This Guildhall aims to make a virtual space for Guile wizards and journeyfolk
- to share code.
- On a practical level, Guildhall lets you share Scheme modules and programs
- over the internet, and install code that has been shared by others. Guildhall
- can handle dependencies, so when a program requires several libraries, and
- each of those has further dependencies, all of the prerequisites for the
- program can be installed in one go.")
- (home-page "https://github.com/ijp/guildhall")
- (license license:gpl3+))))
- (define-public guile-aspell
- (package
- (name "guile-aspell")
- (version "0.4")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "http://lonelycactus.com/tarball/guile_aspell-"
- version ".tar.gz"))
- (sha256
- (base32
- "0vpk5xj9m9qc702z3khmkwhgpb949qbsyz8kw2qycda6qnxk0077"))))
- (build-system gnu-build-system)
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-before 'configure 'set-guilesitedir
- (lambda _
- (substitute* "Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
- $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- #t))
- (add-before 'build 'set-libaspell-file-name
- (lambda* (#:key inputs #:allow-other-keys)
- (let ((aspell (assoc-ref inputs "aspell")))
- (substitute* "aspell.scm"
- (("\"libaspell\\.so\"")
- (string-append "\"" aspell
- "/lib/libaspell\"")))
- #t))))))
- (native-inputs `(("pkg-config" ,pkg-config)))
- (inputs `(("guile" ,guile-2.2)
- ("aspell" ,aspell)))
- (home-page "https://github.com/spk121/guile-aspell")
- (synopsis "Spell-checking from Guile")
- (description
- "guile-aspell is a Guile Scheme library for comparing a string against a
- dictionary and suggesting spelling corrections.")
- (license license:gpl3+)))
- (define-public guile-bash
- ;; This project is currently retired. It was initially announced here:
- ;; <https://lists.gnu.org/archive/html/guile-user/2015-02/msg00003.html>.
- (let ((commit "1eabc563ca5692b3e08d84f1f0e6fd2283284469")
- (revision "0"))
- (package
- (name "guile-bash")
- (version (string-append "0.1.6-" revision "." (string-take commit 7)))
- (home-page
- "https://anonscm.debian.org/cgit/users/kaction-guest/retired/dev.guile-bash.git")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (commit commit)
- (url home-page)))
- (sha256
- (base32
- "097vny990wp2qpjij6a5a5gwc6fxzg5wk56inhy18iki5v6pif1p"))
- (file-name (string-append name "-" version "-checkout"))))
- (build-system gnu-build-system)
- (arguments
- '(#:configure-flags
- ;; Add -I to match 'bash.pc' of Bash 4.4.
- (list (string-append "CPPFLAGS=-I"
- (assoc-ref %build-inputs "bash:include")
- "/include/bash/include")
- ;; The '.a' file is useless.
- "--disable-static"
- ;; Install 'lib/bash' as Bash 4.4 expects.
- (string-append "--libdir=" (assoc-ref %outputs "out")
- "/lib/bash"))))
- (native-inputs `(("pkg-config" ,pkg-config)
- ("autoconf" ,autoconf-wrapper)
- ("automake" ,automake)
- ("libtool" ,libtool)
- ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
- ("gettext" ,gettext-minimal)
- ;; Bash with loadable module support, for the test
- ;; suite.
- ("bash-full" ,bash)))
- (inputs `(("guile" ,guile-2.0)
- ("bash:include" ,bash "include")))
- (synopsis "Extend Bash using Guile")
- (description
- "Guile-Bash provides a shared library and set of Guile modules,
- allowing you to extend Bash in Scheme. Scheme interfaces allow you to access
- the following aspects of Bash:
- @itemize
- @item aliases;
- @item setting and getting Bash variables;
- @item creating dynamic variables;
- @item creating Bash functions with a Scheme implementation;
- @item reader macro for output capturing;
- @item reader macro for evaluating raw Bash commands.
- @end itemize
- To enable it, run:
- @example
- enable -f ~/.guix-profile/lib/bash/libguile-bash.so scm
- @end example
- and then run @command{scm example.scm}.")
- (license license:gpl3+))))
- (define-public guile-8sync
- (package
- (name "guile-8sync")
- (version "0.4.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/8sync/8sync-" version
- ".tar.gz"))
- (sha256
- (base32
- "031wm13srak3wsnll7j2mbbi29g1pcm4swdb71ds9yn567pn20qw"))))
- (build-system gnu-build-system)
- (native-inputs `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("guile" ,guile-2.2)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (arguments
- `(#:phases (modify-phases %standard-phases
- (add-before 'configure 'setenv
- (lambda _
- ;; quiet warnings
- (setenv "GUILE_AUTO_COMPILE" "0")
- #t)))))
- (home-page "https://gnu.org/s/8sync/")
- (synopsis "Asynchronous actor model library for Guile")
- (description
- "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
- library for GNU Guile based on the actor model.
- Note that 8sync is only available for Guile 2.2.")
- (license license:lgpl3+)))
- (define-public guile-daemon
- (package
- (name "guile-daemon")
- (version "0.1.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://github.com/alezost/" name
- "/releases/download/v" version
- "/" name "-" version ".tar.gz"))
- (sha256
- (base32
- "0hh6gq6b6phpxm0b1dkxyzj3f4sxdf7dji63609lzypa5v1ad2gv"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://github.com/alezost/guile-daemon")
- (synopsis "Evaluate code in a running Guile process")
- (description
- "Guile-Daemon is a small Guile program that loads your initial
- configuration file, and then reads and evaluates Guile expressions that
- you send to a FIFO file.")
- (license license:gpl3+)))
- (define-public guile-dsv
- (package
- (name "guile-dsv")
- (version "0.2.1")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/artyom-poptsov/guile-dsv")
- (commit "bdc5267d007478abc20ea96d7c459b7dd9560b3d")))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "1irw6mz8998nwyhzrw9g94jcz60b9zljgqfmipaz1ybn8579qjx0"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-2.2)))
- (propagated-inputs `(("guile-lib" ,guile-lib)))
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-before 'configure 'set-guilesitedir
- (lambda _
- (substitute* "Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
- $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- (substitute* "modules/Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
- $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- (substitute* "modules/dsv/Makefile.in"
- (("^guilesitedir =.*$")
- "guilesitedir = \
- $(datadir)/guile/site/$(GUILE_EFFECTIVE_VERSION)\n"))
- #t)))))
- (home-page "https://github.com/artyom-poptsov/guile-dsv")
- (synopsis "DSV module for Guile")
- (description
- "Guile-DSV is a GNU Guile module for working with the
- delimiter-separated values (DSV) data format. Guile-DSV supports the
- Unix-style DSV format and RFC 4180 format.")
- (license license:gpl3+)))
- (define-public guile-fibers
- (package
- (name "guile-fibers")
- (version "1.0.0")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://wingolog.org/pub/fibers/fibers-"
- version ".tar.gz"))
- (sha256
- (base32
- "0vjkg72ghgdgphzbjz9ig8al8271rq8974viknb2r1rg4lz92ld0"))))
- (build-system gnu-build-system)
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-after 'install 'mode-guile-objects
- (lambda* (#:key outputs #:allow-other-keys)
- ;; .go files are installed to "lib/guile/X.Y/cache".
- ;; This phase moves them to "…/site-ccache".
- (let* ((out (assoc-ref outputs "out"))
- (lib (string-append out "/lib/guile"))
- (old (car (find-files lib "^ccache$"
- #:directories? #t)))
- (new (string-append (dirname old)
- "/site-ccache")))
- (rename-file old new)
- #t))))))
- (native-inputs
- `(("texinfo" ,texinfo)
- ("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)))
- (synopsis "Lightweight concurrency facility for Guile")
- (description
- "Fibers is a Guile library that implements a a lightweight concurrency
- facility, inspired by systems like Concurrent ML, Go, and Erlang. A fiber is
- like a \"goroutine\" from the Go language: a lightweight thread-like
- abstraction. Systems built with Fibers can scale up to millions of concurrent
- fibers, tens of thousands of concurrent socket connections, and many parallel
- cores. The Fibers library also provides Concurrent ML-like channels for
- communication between fibers.
- Note that Fibers makes use of some Guile 2.1/2.2-specific features and
- is not available for Guile 2.0.")
- (home-page "https://github.com/wingo/fibers")
- (license license:lgpl3+)))
- (define-public guile-syntax-highlight
- (package
- (name "guile-syntax-highlight")
- (version "0.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://files.dthompson.us/"
- "guile-syntax-highlight/"
- "guile-syntax-highlight-"
- version ".tar.gz"))
- (sha256
- (base32
- "1p771kq15x83483m23bhah1sz6vkalg3drm7x279f4j1cxligkzi"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)))
- (synopsis "General-purpose syntax highlighter for GNU Guile")
- (description "Guile-syntax-highlight is a general-purpose syntax
- highlighting library for GNU Guile. It can parse code written in various
- programming languages into a simple s-expression that can be converted to
- HTML (via SXML) or any other format for rendering.")
- (home-page "http://dthompson.us/projects/guile-syntax-highlight.html")
- (license license:lgpl3+)))
- (define-public guile-sjson
- (package
- (name "guile-sjson")
- (version "0.2.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://dustycloud.org/misc/sjson-" version
- ".tar.gz"))
- (sha256
- (base32
- "1mzmapln79vv10qxaggz9qwcdbag3jnrj19xx8bgkmxss8h03sv3"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://gitlab.com/dustyweb/guile-sjson")
- (synopsis "S-expression based json reader/writer for Guile")
- (description "guile-sjson is a json reader/writer for Guile.
- It has a nice, simple s-expression based syntax.")
- (license license:lgpl3+)))
- (define-public guile-squee
- (let ((commit "a85902a92bf6f58a1d35fd974a01ade163deda8d")
- (revision "0"))
- (package
- (name "guile-squee")
- (version (string-append "0-" revision "." (string-take commit 7)))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://notabug.org/cwebber/guile-squee.git")
- (commit commit)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0p1lpsp4kx57j3ai1dkxilm4ziavzzx8wbbc42m3hpziq0a7qz5z"))))
- (build-system guile-build-system)
- (arguments
- '(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'patch
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "squee.scm"
- (("dynamic-link \"libpq\"")
- (string-append
- "dynamic-link \""
- (assoc-ref inputs "postgresql") "/lib/libpq.so"
- "\"")))
- #t)))))
- (inputs
- `(("postgresql" ,postgresql)))
- (native-inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://notabug.org/cwebber/guile-squee")
- (synopsis "Connect to PostgreSQL using Guile")
- (description
- "@code{squee} is a Guile library for connecting to PostgreSQL databases
- using Guile's foreign function interface.")
- (license license:lgpl3+))))
- (define-public guile-colorized
- (package
- (name "guile-colorized")
- (version "0.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://github.com/NalaGinrut/guile-colorized/"
- "archive/v" version ".tar.gz"))
- (file-name (string-append name "-" version ".tar.gz"))
- (sha256
- (base32
- "16xhc3an6aglnca8xl3mvgi8hsqzqn68vsl5ga4bz8bvbap5fn4p"))))
- (build-system guile-build-system)
- (native-inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://github.com/NalaGinrut/guile-colorized")
- (synopsis "Colorized REPL for Guile")
- (description
- "Guile-colorized provides you with a colorized REPL for GNU Guile.")
- (license license:gpl3+)))
- (define-public guile-pfds
- (package
- (name "guile-pfds")
- (version "0.3")
- (home-page "https://github.com/ijp/pfds")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url home-page)
- (commit (string-append "v" version))))
- (sha256
- (base32
- "19y33wg94pf0n98dkfqd1zbw93fgky4sawxsxl6s3vyqwl0yi5vh"))
- (file-name (string-append name "-" version "-checkout"))))
- (build-system guile-build-system)
- (arguments
- '(#:source-directory "src"
- #:phases (modify-phases %standard-phases
- (add-after 'unpack 'move-files-around
- (lambda _
- ;; Move files under a pfds/ directory to reflect the
- ;; module hierarchy.
- (mkdir-p "src/pfds")
- (for-each (lambda (file)
- (rename-file file
- (string-append "src/pfds/"
- file)))
- '("bbtrees.sls"
- "deques"
- "deques.sls"
- "dlists.sls"
- "fingertrees.sls"
- "hamts.sls"
- "heaps.sls"
- "private"
- "psqs.sls"
- "queues"
- "queues.sls"
- "sequences.sls"
- "sets.sls"))
- ;; In Guile <= 2.2.4, there's no way to tell 'guild
- ;; compile' to accept the ".sls" extension. So...
- (for-each (lambda (file)
- (rename-file file
- (string-append
- (string-drop-right file 4)
- ".scm")))
- (find-files "." "\\.sls$"))
- #t)))))
- (native-inputs
- `(("guile" ,guile-2.2)))
- (synopsis "Purely functional data structures for Guile")
- (description
- "This package provides purely functional data structures written in R6RS
- Scheme and compiled for Guile. It has been tested with Racket, Guile 2,
- Vicare Scheme and IronScheme. Right now it contains:
- @itemize
- @item queues
- @item deques
- @item bbtrees
- @item sets
- @item dlists
- @item priority search queues (PSQs)
- @item finger trees
- @item sequences
- @item heaps
- @item hash array mapped tries (HAMTs).
- @end itemize\n")
- (license license:bsd-3)))
- (define-public guile-aa-tree
- (package
- (name "guile-aa-tree")
- (version "3.1.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://savannah/guile-aa-tree/guile-aa-tree-"
- version ".tar.gz"))
- (sha256
- (base32
- "0044c105r3q9vpl17pv3phl1b79kjm1llhkakqgiasixyav01blh"))))
- (build-system guile-build-system)
- (native-inputs `(("guile" ,guile-2.2)))
- ;; https://savannah.nongnu.org/projects/guile-aa-tree
- (home-page "https://qlfiles.net/guile-aa-tree/")
- (synopsis "AA tree data structure for Guile")
- (description
- "This package provides an implementation of @dfn{AA trees}, a
- self-balancing binary tree data structure, for Guile. It ensure @math{O(log
- n)} worst case performance for core operations. The module provides
- non-mutating insert, delete, and search operations, with support for
- convenient nested tree operations.")
- (license license:gpl3+)))
- (define-public guile-simple-zmq
- (let ((commit "68bedb6679716214fb9d3472da57544526f7a618")
- (revision "3"))
- (package
- (name "guile-simple-zmq")
- (version (git-version "0.0.0" revision commit))
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/jerry40/guile-simple-zmq")
- (commit commit)))
- (sha256
- (base32
- "1ad3xg69qqviy1f6dnlw0ysmfdbmp1jq65rfqb8nfd8dsrq2syli"))
- (file-name (git-file-name name version))))
- (build-system guile-build-system)
- (arguments
- `(#:source-directory "src"
- #:phases (modify-phases %standard-phases
- (add-after 'unpack 'set-libzmq-file-name
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "src/simple-zmq.scm"
- (("\\(dynamic-link \"libzmq\"\\)")
- (format #f "(dynamic-link \"~a/lib/libzmq.so\")"
- (assoc-ref inputs "zeromq"))))
- #t)))))
- (native-inputs
- `(("guile" ,guile-2.2)))
- (inputs
- `(("zeromq" ,zeromq)))
- (home-page "https://github.com/jerry40/guile-simple-zmq")
- (synopsis "Guile wrapper over ZeroMQ library")
- (description
- "This package provides a Guile programming interface to the ZeroMQ
- messaging library.")
- (license license:gpl3+))))
- (define-public jupyter-guile-kernel
- (let ((commit "a7db9245a886e104138474df46c3e88b95cff629")
- (revision "1"))
- (package
- (name "jupyter-guile-kernel")
- (version (git-version "0.0.0" revision commit))
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/jerry40/guile-kernel")
- (commit commit)))
- (sha256
- (base32
- "0aj04853bqm47ivfcmrgpb7w3wkis847kc7qrwsa5zcn9h38qh2f"))))
- (build-system guile-build-system)
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-after 'unpack 'set-openssl-file-name
- (lambda* (#:key inputs #:allow-other-keys)
- ;; Record the absolute file name of the 'openssl'
- ;; command.
- (substitute* "src/hmac.scm"
- (("openssl")
- (string-append (assoc-ref inputs "openssl")
- "/bin/openssl")))
- #t))
- ;; XXX: The code uses 'include' to include its own source
- ;; files, and "-L src" isn't enough in this case.
- (add-before 'build 'chdir
- (lambda _ (chdir "src") #t))
- (add-after 'build 'chdir-back
- (lambda _ (chdir "..") #t))
- (add-after 'install 'install-kernel
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (json (assoc-ref inputs "guile-json"))
- (zmq (assoc-ref inputs "guile-simple-zmq"))
- (deps (list json zmq))
- (dir (string-append
- out "/share/jupyter/kernels/guile"))
- (effective (target-guile-effective-version)))
- ;; Install kernel.
- (install-file "src/kernel.json" dir)
- ;; Fix hard-coded file name in the kernel.
- (substitute* (string-append dir "/kernel.json")
- (("/home/.*/guile-jupyter-kernel.scm")
- (string-append out "/share/guile/site/"
- (target-guile-effective-version)
- "/guile-jupyter-kernel.scm"))
- (("\"guile\"")
- (string-append "\"" (assoc-ref inputs "guile")
- "/bin/guile\""))
- (("-s")
- ;; Add '-L' and '-C' flags so that the kernel
- ;; finds its dependencies.
- (let ((-L (map (lambda (item)
- (string-append "\"" item
- "/share/guile/site/"
- effective "\""))
- deps))
- (-C (map (lambda (item)
- (string-append "\"" item
- "/lib/guile/"
- effective
- "/site-ccache\""))
- deps)))
- (string-append "--no-auto-compile\""
- (string-join -L ", \"-L\", "
- 'prefix)
- (string-join -C ", \"-C\", "
- 'prefix)
- ", \"-s"))))
- #t))))))
- (inputs
- `(("openssl" ,openssl)
- ("guile" ,guile-2.2)
- ("guile-json" ,guile-json)
- ("guile-simple-zmq" ,guile-simple-zmq)))
- (synopsis "Guile kernel for the Jupyter Notebook")
- (description
- "This package provides a Guile 2.x kernel for the Jupyter Notebook. It
- allows users to interact with the Guile REPL through Jupyter.")
- (home-page "https://github.com/jerry40/guile-kernel")
- (license license:gpl3+))))
- (define-public guile-sparql
- (package
- (name "guile-sparql")
- (version "0.0.7")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "https://github.com/roelj/guile-sparql/releases/download/"
- version "/guile-sparql-" version ".tar.gz"))
- (sha256
- (base32 "1drnvhsgl0gc5crmb16yyw1j98nkhwwcgssv9vgm36ng43nnzffd"))))
- (build-system gnu-build-system)
- (arguments `(#:tests? #f)) ; There are no tests.
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://github.com/roelj/guile-sparql")
- (synopsis "SPARQL module for Guile")
- (description "This package provides the functionality to query a SPARQL
- endpoint. Additionally, it provides an interface to write SPARQL queries
- using S-expressions.")
- (license license:gpl3+)))
- (define-public guile-debbugs
- (package
- (name "guile-debbugs")
- (version "0.0.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/guile-debbugs/guile-debbugs-"
- version ".tar.gz"))
- (sha256
- (base32
- "16l8910p57im6s3j93xhdaqvgfy6ms5n97177mrch3y961z5hy0i"))
- (modules '((guix build utils)))
- (snippet
- '(substitute* "Makefile.in"
- (("^godir = (.*)/ccache" _ prefix)
- (string-append "godir = " prefix "/site-ccache"))))))
- (build-system gnu-build-system)
- (native-inputs
- `(("guile" ,guile-2.2)
- ("pkg-config" ,pkg-config)))
- (home-page "https://savannah.gnu.org/projects/guile-debbugs/")
- (synopsis "Guile interface to the Debbugs bug tracking service")
- (description
- "This package provides a Guile library to communicate with a Debbugs bug
- tracker's SOAP service, such as @url{https://bugs.gnu.org}.")
- (license license:gpl3+)))
- (define-public guile-email
- (let ((commit "fa52eac55e5946db89621a6c583d2aa357864dee")
- (revision "1"))
- (package
- (name "guile-email")
- (version (git-version "0.1.0" revision commit))
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://git.systemreboot.net/guile-email")
- (commit commit)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "1037mbz7qd9bzaqp8ysyhnl9ipd97fmj3b9jr8qfzx9179vvsj63"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("autoconf" ,autoconf)
- ("automake" ,automake)))
- (inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://git.systemreboot.net/guile-email")
- (synopsis "Guile email parser")
- (description "This package provides an email parser written in pure
- Guile.")
- (license license:agpl3+))))
- (define-public guile-debbugs-next
- (let ((commit "75a331d561c8b6f8efcf16216dab961c17759efe")
- (revision "1"))
- (package (inherit guile-debbugs)
- (name "guile-debbugs")
- (version (git-version "0.0.3" revision commit))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://git.savannah.gnu.org/git/guile-debbugs.git")
- (commit commit)))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0br3mgbw41bpc9x57jlghl0i8dz9nl63r4wzs5l47aqszf84870y"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("autoconf" ,autoconf)
- ("automake" ,automake)
- ("texinfo" ,texinfo)))
- (inputs
- `(("guile" ,guile-2.2)
- ("guile-email" ,guile-email))))))
- ;; There has not been any release yet.
- (define-public guile-newt
- (let ((commit "80c1e9e71945f833386d1632b52573e59325804f")
- (revision "4"))
- (package
- (name "guile-newt")
- (version (string-append "0-" revision "." (string-take commit 9)))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://gitlab.com/mothacehe/guile-newt")
- (commit commit)))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "1w7qy4dw1f4bx622l6hw8mv49sf1ha8kch8j4nganyk8fj0wn695"))))
- (build-system gnu-build-system)
- (arguments
- '(#:make-flags
- '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
- (inputs
- `(("guile" ,guile-2.2)
- ("newt" ,newt)))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
- (synopsis "Guile bindings to Newt")
- (description
- "This package provides bindings for Newt, a programming library for
- color text mode, widget based user interfaces. The bindings are written in pure
- Scheme by using Guile’s foreign function interface.")
- (home-page "https://gitlab.com/mothacehe/guile-newt")
- (license license:gpl3+))))
- (define-public guile-mastodon
- (package
- (name "guile-mastodon")
- (version "0.0.1")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://framagit.org/prouby/guile-mastodon.git")
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "1vblf3d1bbwna3l09p2ap5y8ycvl549bz6whgk78imyfmn28ygry"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)
- ("gnutls" ,gnutls)
- ("guile-json" ,guile-json)))
- (home-page "https://framagit.org/prouby/guile-mastodon")
- (synopsis "Guile Mastodon REST API module")
- (description "This package provides Guile modules to access the
- @uref{https://docs.joinmastodon.org/api/, REST API of Mastodon}, a federated
- microblogging service.")
- (license license:gpl3+)))
- ;; There has not been any release yet.
- (define-public guile-parted
- (let ((commit "ea3f1a1f6844775fc59d3078d2a09c62ffb341b8")
- (revision "0"))
- (package
- (name "guile-parted")
- (version (string-append "0-" revision "." (string-take commit 9)))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://gitlab.com/mothacehe/guile-parted")
- (commit commit)))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "1q7425gpjlwi2wvhzq7kw046yyx7v6j6jyzkd1cr861iz34mjwiq"))))
- (build-system gnu-build-system)
- (arguments
- '(#:make-flags
- '("GUILE_AUTO_COMPILE=0"))) ;to prevent guild warnings
- (inputs
- `(("guile" ,guile-2.2)
- ("parted" ,parted)))
- (propagated-inputs
- `(("guile-bytestructures" ,guile-bytestructures)))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)))
- (synopsis "Guile bindings to GNU Parted")
- (description
- "This package provides bindings for GNU Parted library, a C library
- allowing disk partition tables creation and manipulation. The bindings are
- written in pure Scheme by using Guile's foreign function interface.")
- (home-page "https://gitlab.com/mothacehe/guile-parted")
- (license license:gpl3+))))
- (define-public guile-xosd
- (package
- (name "guile-xosd")
- (version "0.2.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://github.com/alezost/" name
- "/releases/download/v" version
- "/" name "-" version ".tar.gz"))
- (sha256
- (base32
- "1ri5065c16kmgrf2pysn2ymxjqi5302lhpb07wkl1jr75ym8fn8p"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (inputs
- `(("guile" ,guile-2.2)
- ("libx11" ,libx11)
- ("libxext" ,libxext)
- ("libxinerama" ,libxinerama)
- ("xosd" ,xosd)))
- (home-page "https://github.com/alezost/guile-xosd")
- (synopsis "XOSD bindings for Guile")
- (description
- "Guile-XOSD provides Guile bindings for @code{libxosd},
- @uref{http://sourceforge.net/projects/libxosd/, the X On Screen Display
- library}.")
- (license license:gpl3+)))
- (define-public guile-dbi
- (package
- (name "guile-dbi")
- (version "2.1.6")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "http://download.gna.org/guile-dbi/guile-dbi-"
- version ".tar.gz"))
- (sha256
- (base32
- "116njrprhgrsv1qm904sp3b02rq01fx639r433d657gyhw3x159n"))))
- (build-system gnu-build-system)
- (arguments
- '(#:configure-flags
- (list (string-append
- "--with-guile-site-dir=" %output "/share/guile/site/2.2"))
- #:make-flags
- (list (string-append
- "LDFLAGS=-Wl,-rpath=" %output "/lib:"
- (assoc-ref %build-inputs "guile-dbd-sqlite3") "/lib" ":"
- (assoc-ref %build-inputs "guile-dbd-postgresql") "/lib"))
- #:phases
- (modify-phases %standard-phases
- (add-after 'install 'patch-extension-path
- (lambda* (#:key outputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (dbi.scm (string-append
- out "/share/guile/site/2.2/dbi/dbi.scm"))
- (ext (string-append out "/lib/libguile-dbi")))
- (substitute* dbi.scm (("libguile-dbi") ext))
- #t))))))
- (inputs
- `(("guile-dbd-sqlite3" ,guile-dbd-sqlite3)
- ("guile-dbd-postgresql" ,guile-dbd-postgresql))) ; only shared library, no scheme files
- (propagated-inputs
- `(("guile" ,guile-2.2)))
- (synopsis "Guile database abstraction layer")
- (home-page "http://home.gna.org/guile-dbi/guile-dbi.html")
- (description
- "guile-dbi is a library for Guile that provides a convenient interface to
- SQL databases. Database programming with guile-dbi is generic in that the same
- programming interface is presented regardless of which database system is used.
- It currently supports MySQL, Postgres and SQLite3.")
- (license license:gpl2+)))
- (define guile-dbi-bootstrap
- (package
- (inherit guile-dbi)
- (name "guile-dbi-bootstrap")
- (inputs '())
- (arguments
- (substitute-keyword-arguments (package-arguments guile-dbi)
- ((#:make-flags _) '(list))))))
- (define-public guile-dbd-sqlite3
- (package
- (name "guile-dbd-sqlite3")
- (version "2.1.6")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "http://download.gna.org/guile-dbi/guile-dbd-sqlite3-"
- version ".tar.gz"))
- (sha256
- (base32
- "0rg71jchxd2y8x496s8zmfmikr5g8zxi8zv2ar3f7a23pph92iw2"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("guile-dbi-bootstrap" ,guile-dbi-bootstrap))) ; only required for headers
- (inputs
- `(("sqlite" ,sqlite)
- ("zlib" ,(@ (gnu packages compression) zlib))))
- (synopsis "Guile DBI driver for SQLite")
- (home-page "https://github.com/jkalbhenn/guile-dbd-sqlite3")
- (description
- "guile-dbi is a library for Guile that provides a convenient interface to
- SQL databases. This package implements the interface for SQLite.")
- (license license:gpl2+)))
- (define-public guile-dbd-postgresql
- (let ((commit "e97589b6b018b206c901e4cc24db463407a4036b")
- (revision 0))
- (package
- (name "guile-dbd-postgresql")
- (version (string-append
- "2.1.6-" (number->string revision) "." (string-take commit 7)))
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/opencog/guile-dbi.git")
- (commit commit)))
- (file-name (git-file-name name version))
- (sha256
- (base32 "0n1gv9a0kdys10a4qmnrwvg5sydwb03880asri4gqdchcj3fimni"))))
- (build-system gnu-build-system)
- (arguments
- '(#:phases
- (modify-phases %standard-phases
- (add-after 'unpack 'chdir
- (lambda _
- ;; The upstream Git repository contains all the code, so change
- ;; to the relevant directory.
- (chdir "guile-dbd-postgresql")
- #t))
- (add-after 'chdir 'patch-src/Makefile.am
- (lambda* (#:key inputs #:allow-other-keys)
- (substitute* "src/Makefile.am"
- (("/usr/include")
- (string-append (assoc-ref inputs "postgresql") "/include")))
- #t))
- (add-after 'patch-src/Makefile.am 'patch-src
- (lambda _
- (substitute* "src/guile-dbd-postgresql.c"
- (("postgresql/libpq-fe\\.h") "libpq-fe.h"))
- #t)))))
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("automake" ,automake)
- ("autoconf" ,autoconf)
- ("perl" ,perl)
- ("libtool" ,libtool)
- ("guile-dbi-bootstrap" ,guile-dbi-bootstrap)))
- (inputs
- `(("postgresql" ,postgresql)
- ("zlib" ,zlib)))
- (synopsis "Guile DBI driver for PostgreSQL")
- (home-page
- "https://github.com/opencog/guile-dbi/tree/master/guile-dbd-postgresql")
- (description
- "@code{guile-dbi} is a library for Guile that provides a convenient
- interface to SQL databases. This package implements the interface for
- PostgreSQL.")
- (license license:gpl2+))))
- (define-public guile-config
- (package
- (name "guile-config")
- (version "0.3")
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://gitlab.com/a-sassmannshausen/guile-config")
- (commit "ce12de3f438c6b2b59c43ee21bcd58251835fdf3")))
- (file-name "guile-config-0.3-checkout")
- (sha256 (base32 "02zbpin0r9m2vxmr7mv68v3xdn247dcck56kbzjn0gj4c2rhih85"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-2.2)))
- (synopsis
- "Guile application configuration parsing library.")
- (description
- "Guile Config is a library providing a declarative approach to
- application configuration specification. The library provides clean
- configuration declaration forms, and processors that take care of:
- configuration file creation; configuration file parsing; command-line
- parameter parsing using getopt-long; basic GNU command-line parameter
- generation (--help, --usage, --version); automatic output generation for the
- above command-line parameters.")
- (home-page
- "https://gitlab.com/a-sassmannshausen/guile-config")
- (license license:gpl3+)))
- (define-public guile-hall
- (package
- (name "guile-hall")
- (version "0.2")
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://gitlab.com/a-sassmannshausen/guile-hall")
- (commit (string-append "v" version))))
- (file-name (git-file-name name version))
- (sha256 (base32
- "1bkbqgj24xh5b65sw2m98iggpi67b72szx1dsiq3cpzlcxplmgaz"))))
- (build-system gnu-build-system)
- (arguments
- `(#:modules
- ((ice-9 match)
- (ice-9 ftw)
- ,@%gnu-build-system-modules)
- #:phases
- (modify-phases
- %standard-phases
- (add-after 'install 'hall-wrap-binaries
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let* ((compiled-dir
- (lambda (out version)
- (string-append
- out "/lib/guile/" version "/site-ccache")))
- (uncompiled-dir
- (lambda (out version)
- (string-append
- out "/share/guile/site"
- (if (string-null? version) "" "/") version)))
- (dep-path
- (lambda (env modules path)
- (list env ":" 'prefix
- (cons modules
- (map (lambda (input)
- (string-append
- (assoc-ref inputs input)
- path))
- ,''("guile-config"))))))
- (out (assoc-ref outputs "out"))
- (bin (string-append out "/bin/"))
- (site (uncompiled-dir out "")))
- (match (scandir site)
- (("." ".." version)
- (for-each
- (lambda (file)
- (wrap-program
- (string-append bin file)
- (dep-path
- "GUILE_LOAD_PATH"
- (uncompiled-dir out version)
- (uncompiled-dir "" version))
- (dep-path
- "GUILE_LOAD_COMPILED_PATH"
- (compiled-dir out version)
- (compiled-dir "" version))))
- ,''("hall"))
- #t))))))))
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs `(("guile" ,guile-2.2)))
- (propagated-inputs
- `(("guile-config" ,guile-config)))
- (synopsis "Guile project tooling")
- (description
- "Hall is a command-line application and a set of Guile libraries that
- allow you to quickly create and publish Guile projects. It allows you to
- transparently support the GNU build system, manage a project hierarchy &
- provides tight coupling to Guix.")
- (home-page "https://gitlab.com/a-sassmannshausen/guile-hall")
- (license license:gpl3+)))
- (define-public guile-ics
- (package
- (name "guile-ics")
- (version "0.2.0")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/artyom-poptsov/guile-ics")
- (commit (string-append "v" version))))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "0qjjvadr7gibdq9jvwkmlkb4afsw9n2shfj9phpiadinxk3p4m2g"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf-wrapper)
- ("automake" ,automake)
- ("texinfo" ,texinfo)
- ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS'.
- ("gettext" ,gettext-minimal)
- ("pkg-config" ,pkg-config)))
- (inputs `(("guile" ,guile-2.2) ("which" ,which)))
- (propagated-inputs `(("guile-lib" ,guile-lib)))
- (home-page "https://github.com/artyom-poptsov/guile-ics")
- (synopsis "Guile parser library for the iCalendar format")
- (description
- "Guile-ICS is an iCalendar (RFC5545) format parser library written in
- pure Scheme. The library can be used to read and write iCalendar data.
- The library is shipped with documentation in Info format and usage examples.")
- (license license:gpl3+)))
- (define-public guile-wisp
- (package
- (name "guile-wisp")
- (version "0.9.9.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://bitbucket.org/ArneBab/"
- "wisp/downloads/wisp-"
- version ".tar.gz"))
- (sha256
- (base32
- "1ii14qz1lx7ffhb8i9q7dgaiwbif8g2q182skx17j11skp65c8r3"))))
- (build-system gnu-build-system)
- (arguments
- `(#:modules ((guix build gnu-build-system)
- ((guix build emacs-build-system) #:prefix emacs:)
- (guix build utils)
- (guix build emacs-utils)
- (ice-9 rdelim)
- (ice-9 popen))
- #:imported-modules (,@%gnu-build-system-modules
- (guix build emacs-build-system)
- (guix build emacs-utils))
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'patch-/usr/bin/env
- (lambda _
- (substitute* "Makefile.in"
- (("/usr/bin/env bash") (which "bash"))
- (("\\$\\(GUILE_EFFECTIVE_VERSION\\)/site")
- "site/$(GUILE_EFFECTIVE_VERSION)")) ;use the right order
- #t))
- ;; auto compilation breaks, but if we set HOME to /tmp,
- ;; that works ok
- (add-before 'check 'auto-compile-hacky-workaround
- (lambda _ (setenv "HOME" "/tmp") #t))
- (add-after 'install 'install-go-files
- (lambda* (#:key outputs inputs #:allow-other-keys)
- (let* ((out (assoc-ref outputs "out"))
- (effective (read-line
- (open-pipe* OPEN_READ
- "guile" "-c"
- "(display (effective-version))")))
- (module-dir (string-append out "/share/guile/site/"
- effective))
- (object-dir (string-append out "/lib/guile/" effective
- "/site-ccache"))
- (prefix (string-length module-dir)))
- ;; compile to the destination
- (for-each (lambda (file)
- (let* ((base (string-drop (string-drop-right file 4)
- prefix))
- (go (string-append object-dir base ".go")))
- (invoke "guild" "compile" "-L" module-dir
- file "-o" go)))
- (find-files module-dir "\\.scm$"))
- #t)))
- (add-after 'install 'install-emacs-files
- (assoc-ref emacs:%standard-phases 'install))
- (add-after 'install-emacs-files 'compile-emacs-files
- (assoc-ref emacs:%standard-phases 'build))
- (add-after 'compile-emacs-files 'make-autoloads
- (assoc-ref emacs:%standard-phases 'make-autoloads)))))
- (home-page "https://draketo.de/english/wisp")
- (inputs
- `(("guile" ,guile-2.2)))
- (native-inputs
- `(("emacs" ,emacs-minimal)
- ("python" ,python)
- ("pkg-config" ,pkg-config)))
- (synopsis "Whitespace to lisp syntax for Guile")
- (description "Wisp is a syntax for Guile which provides a Python-like
- whitespace-significant language. It may be easier on the eyes for some
- users and in some situations.")
- (license license:gpl3+)))
- (define-public guile-sly
- (package
- (name "guile-sly")
- (version "0.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://files.dthompson.us/sly/sly-"
- version ".tar.gz"))
- (sha256
- (base32
- "1svzlbz2vripmyq2kjh0rig16bsrnbkwbsm558pjln9l65mcl4qq"))
- (modules '((guix build utils)))
- (snippet
- '(begin
- (substitute* "configure"
- (("_guile_required_version=\"2.0.11\"")
- "_guile_required_version=\"2\"")
- (("ac_subst_vars='")
- "ac_subst_vars='GUILE_EFFECTIVE_VERSION\n"))
- (substitute* (find-files "." "Makefile.in")
- (("moddir = .*$")
- (string-append
- "moddir = "
- "$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@\n"))
- (("godir = .*$")
- (string-append
- "godir = "
- "$(prefix)/lib/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n")))
- #t))))
- (build-system gnu-build-system)
- (arguments
- '(#:configure-flags
- (list (string-append "--with-libfreeimage-prefix="
- (assoc-ref %build-inputs "freeimage"))
- (string-append "--with-libgslcblas-prefix="
- (assoc-ref %build-inputs "gsl")))))
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (propagated-inputs
- `(("guile-sdl" ,guile-sdl)
- ("guile-opengl" ,guile-opengl)))
- (inputs
- `(("guile" ,guile-2.2)
- ("gsl" ,gsl)
- ("freeimage" ,freeimage)
- ("mesa" ,mesa)))
- (synopsis "2D/3D game engine for GNU Guile")
- (description "Sly is a 2D/3D game engine written in Guile Scheme. Sly
- features a functional reactive programming interface and live coding
- capabilities.")
- (home-page "https://dthompson.us/projects/sly.html")
- (license license:gpl3+)))
- (define-public g-wrap
- (package
- (name "g-wrap")
- (version "1.9.15")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://savannah/g-wrap/g-wrap-"
- version ".tar.gz"))
- (sha256
- (base32
- "0ak0bha37dfpj9kmyw1r8fj8nva639aw5xr66wr5gd3l1rqf5xhg"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (propagated-inputs
- `(("guile" ,guile-2.2)
- ("guile-lib" ,guile-lib)))
- (inputs
- `(("libffi" ,libffi)))
- (arguments
- `(#:configure-flags '("--disable-Werror")
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'pre-configure
- (lambda* (#:key outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (substitute* (find-files "." "^Makefile.in$")
- (("guilemoduledir =.*guile/site" all)
- (string-append all "/@GUILE_EFFECTIVE_VERSION@")))
- #t))))))
- (synopsis "Generate C bindings for Guile")
- (description "G-Wrap is a tool and Guile library for generating function
- wrappers for inter-language calls. It currently only supports generating Guile
- wrappers for C functions. Given a definition of the types and prototypes for
- a given C interface, G-Wrap will automatically generate the C code that
- provides access to that interface and its types from the Scheme level.")
- (home-page "https://www.nongnu.org/g-wrap/index.html")
- (license license:lgpl2.1+)))
- (define-public guile-miniadapton
- (let ((commit "1b5749422304567c96ac5367f2221dda9eff5880")
- (revision "1"))
- (package
- (name "guile-miniadapton")
- (version (string-append "0-" revision "." (string-take commit 9)))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/fisherdj/miniAdapton.git")
- (commit commit)))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "09q51zkw2fypad5xixskfzw2cjhjgs5cswdp3i7cpp651rb3zndh"))))
- (build-system guile-build-system)
- (native-inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://github.com/fisherdj/miniAdapton")
- (synopsis "Minimal implementation of incremental computation in Guile
- Scheme")
- (description "This package provides a complete Scheme implementation of
- miniAdapton, which implements the core functionality of the Adapton system for
- incremental computation (also known as self-adjusting computation). Like
- Adapton, miniAdapton allows programmers to safely combine mutation and
- memoization. miniAdapton is built on top of an even simpler system,
- microAdapton. Both miniAdapton and microAdapton are designed to be easy to
- understand, extend, and port to host languages other than Scheme.")
- (license license:expat))))
- (define-public guile-reader
- (package
- (name "guile-reader")
- (version "0.6.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://savannah/guile-reader/guile-reader-"
- version ".tar.gz"))
- (sha256
- (base32
- "0592s2s8ampqmqwilc4fvcild6rb9gy79di6vxv5kcdmv23abkgx"))))
- (build-system gnu-build-system)
- (native-inputs `(("pkgconfig" ,pkg-config)
- ("gperf" ,gperf-3.0)))
- (inputs `(("guile" ,guile-2.2)))
- (synopsis "Framework for building readers for GNU Guile")
- (description
- "Guile-Reader is a simple framework for building readers for GNU Guile.
- The idea is to make it easy to build procedures that extend Guile’s read
- procedure. Readers supporting various syntax variants can easily be written,
- possibly by re-using existing “token readers” of a standard Scheme
- readers. For example, it is used to implement Skribilo’s R5RS-derived
- document syntax.
- Guile-Reader’s approach is similar to Common Lisp’s “read table”, but
- hopefully more powerful and flexible (for instance, one may instantiate as
- many readers as needed).")
- (home-page "https://www.nongnu.org/guile-reader/")
- (license license:gpl3+)))
- (define-public guile2.2-reader
- (deprecated-package "guile2.2-reader" guile-reader))
- (define-public guile-ncurses
- (package
- (name "guile-ncurses")
- (version "2.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/guile-ncurses/guile-ncurses-"
- version ".tar.gz"))
- (sha256
- (base32
- "1wvggbr4xv8idh1hzd8caj4xfp4pln78a7w1wqzd4zgzwmnzxr2f"))))
- (build-system gnu-build-system)
- (inputs `(("ncurses" ,ncurses)
- ("guile" ,guile-2.2)))
- (native-inputs `(("pkg-config" ,pkg-config)))
- (arguments
- '(#:configure-flags (list "--with-ncursesw" ; Unicode support
- "--with-gnu-filesystem-hierarchy")
- #:phases
- (modify-phases %standard-phases
- (add-before 'build 'fix-libguile-ncurses-file-name
- (lambda* (#:key outputs #:allow-other-keys)
- (invoke "make" "install"
- "-C" "src/ncurses"
- "-j" (number->string
- (parallel-job-count)))
- (let* ((out (assoc-ref outputs "out"))
- (dir "src/ncurses")
- (files (find-files dir ".scm")))
- (substitute* files
- (("\"libguile-ncurses\"")
- (format #f "\"~a/lib/guile/2.2/libguile-ncurses\""
- out)))
- #t))))))
- (home-page "https://www.gnu.org/software/guile-ncurses/")
- (synopsis "Guile bindings to ncurses")
- (description
- "guile-ncurses provides Guile language bindings for the ncurses
- library.")
- (license license:lgpl3+)))
- (define-public guile-ncurses/gpm
- (package
- (inherit guile-ncurses)
- (name "guile-ncurses-with-gpm")
- (inputs `(("ncurses" ,ncurses/gpm)
- ("guile" ,guile-2.2)))))
- (define-public guile-lib
- (package
- (name "guile-lib")
- (version "0.2.6.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://savannah/guile-lib/guile-lib-"
- version ".tar.gz"))
- (sha256
- (base32
- "0aizxdif5dpch9cvs8zz5g8ds5s4xhfnwza2il5ji7fv2h7ks7bd"))))
- (build-system gnu-build-system)
- (arguments
- '(#:make-flags
- '("GUILE_AUTO_COMPILE=0") ; to prevent guild errors
- #:phases
- (modify-phases %standard-phases
- (add-before 'configure 'patch-module-dir
- (lambda _
- (substitute* "src/Makefile.in"
- (("^moddir = ([[:graph:]]+)")
- "moddir = $(datadir)/guile/site/@GUILE_EFFECTIVE_VERSION@\n")
- (("^godir = ([[:graph:]]+)")
- "godir = \
- $(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/site-ccache\n"))
- #t)))))
- (native-inputs `(("pkg-config" ,pkg-config)))
- (inputs `(("guile" ,guile-2.2)))
- (home-page "https://www.nongnu.org/guile-lib/")
- (synopsis "Collection of useful Guile Scheme modules")
- (description
- "Guile-Lib is intended as an accumulation place for pure-scheme Guile
- modules, allowing for people to cooperate integrating their generic Guile
- modules into a coherent library. Think \"a down-scaled, limited-scope CPAN
- for Guile\".")
- ;; The whole is under GPLv3+, but some modules are under laxer
- ;; distribution terms such as LGPL and public domain. See `COPYING' for
- ;; details.
- (license license:gpl3+)))
- (define-public guile2.0-lib
- (package
- (inherit guile-lib)
- (name "guile2.0-lib")
- (inputs `(("guile" ,guile-2.0)))))
- (define-public guile2.2-lib
- (deprecated-package "guile2.2-lib" guile-lib))
- (define-public guile-minikanren
- (package
- (name "guile-minikanren")
- (version "20150424.e844d85")
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/ijp/minikanren.git")
- (commit "e844d85512f8c055d3f96143ee506007389a25e3")))
- (file-name (string-append name "-" version "-checkout"))
- (sha256
- (base32
- "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6"))))
- (build-system guile-build-system)
- (native-inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://github.com/ijp/minikanren")
- (synopsis "MiniKanren declarative logic system, packaged for Guile")
- (description
- "MiniKanren is a relational programming extension to the Scheme
- programming Language, written as a smaller version of Kanren suitable for
- pedagogical purposes. It is featured in the book, The Reasoned Schemer,
- written by Dan Friedman, William Byrd, and Oleg Kiselyov.
- This is Ian Price's r6rs packaged version of miniKanren, which deviates
- slightly from miniKanren mainline.
- See http://minikanren.org/ for more on miniKanren generally.")
- (license license:expat)))
- (define-public guile2.0-minikanren
- (package
- (inherit guile-minikanren)
- (name "guile2.0-minikanren")
- (native-inputs `(("guile" ,guile-2.0)))))
- (define-public guile2.2-minikanren
- (deprecated-package "guile2.2-minikanren" guile-minikanren))
- (define-public guile-irregex
- (package
- (name "guile-irregex")
- (version "0.9.6")
- (source (origin
- (method url-fetch)
- (uri (string-append
- "http://synthcode.com/scheme/irregex/irregex-"
- version ".tar.gz"))
- (sha256
- (base32
- "1ia3m7dp3lcxa048q0gqbiwwsyvn99baw6xkhb4bhhzn4k7bwyqq"))))
- (build-system guile-build-system)
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-after 'unpack 'move-files-around
- (lambda _
- ;; Move the relevant source files to src/ and create the
- ;; rx/ directory to match the expected module hierarchy.
- (mkdir-p "src/rx/source")
- (rename-file "irregex-guile.scm"
- "src/rx/irregex.scm")
- (rename-file "irregex.scm"
- "src/rx/source/irregex.scm")
- ;; Not really reachable via guile's packaging system,
- ;; but nice to have around.
- (rename-file "irregex-utils.scm"
- "src/rx/source/irregex-utils.scm")
- #t)))
- #:source-directory "src"))
- (native-inputs
- `(("guile" ,guile-2.2)))
- (home-page "http://synthcode.com/scheme/irregex")
- (synopsis "S-expression based regular expressions")
- (description
- "Irregex is an s-expression based alternative to your classic
- string-based regular expressions. It implements SRFI 115 and is deeply
- inspired by the SCSH regular expression system.")
- (license license:bsd-3)))
- (define-public guile2.0-irregex
- (package
- (inherit guile-irregex)
- (name "guile2.0-irregex")
- (native-inputs `(("guile" ,guile-2.0)))))
- (define-public guile2.2-irregex
- (deprecated-package "guile2.2-irregex" guile-irregex))
- (define-public haunt
- (package
- (name "haunt")
- (version "0.2.4")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://files.dthompson.us/haunt/haunt-"
- version ".tar.gz"))
- (sha256
- (base32
- "056z4znikk83nr5mr0x2ac3iinqbywa2bvb37mhr566a1q50isfc"))))
- (build-system gnu-build-system)
- (arguments
- `(#:modules ((ice-9 match) (ice-9 ftw)
- ,@%gnu-build-system-modules)
- #:tests? #f ; test suite is non-deterministic :(
- #:phases (modify-phases %standard-phases
- (add-after 'install 'wrap-haunt
- (lambda* (#:key inputs outputs #:allow-other-keys)
- ;; Wrap the 'haunt' command to refer to the right
- ;; modules.
- (let* ((out (assoc-ref outputs "out"))
- (bin (string-append out "/bin"))
- (site (string-append
- out "/share/guile/site"))
- (deps (list (assoc-ref inputs "guile-reader")
- (assoc-ref inputs "guile-commonmark"))))
- (match (scandir site)
- (("." ".." version)
- (let ((modules (string-append site "/" version))
- (compiled-modules (string-append
- out "/lib/guile/" version
- "/site-ccache")))
- (wrap-program (string-append bin "/haunt")
- `("GUILE_LOAD_PATH" ":" prefix
- (,modules
- ,@(map (lambda (dep)
- (string-append dep
- "/share/guile/site/"
- version))
- deps)))
- `("GUILE_LOAD_COMPILED_PATH" ":" prefix
- (,compiled-modules
- ,@(map (lambda (dep)
- (string-append dep "/lib/guile/"
- version
- "/site-ccache"))
- deps))))
- #t)))))))))
- (native-inputs
- `(("pkg-config" ,pkg-config)
- ("texinfo" ,texinfo)))
- (inputs
- `(("guile" ,guile-2.2)))
- (propagated-inputs
- `(("guile-reader" ,guile-reader)
- ("guile-commonmark" ,guile-commonmark)))
- (synopsis "Functional static site generator")
- (description "Haunt is a static site generator written in Guile
- Scheme. Haunt features a functional build system and an extensible
- interface for reading articles in any format.")
- (home-page "http://haunt.dthompson.us")
- (license license:gpl3+)))
- (define-public guile2.0-haunt
- (package
- (inherit haunt)
- (name "guile2.0-haunt")
- (inputs `(("guile" ,guile-2.0)))))
- (define-public guile2.2-haunt
- (deprecated-package "guile2.2-haunt" haunt))
- (define-public guile-redis
- (package
- (name "guile-redis")
- (version "1.3.0")
- (home-page "https://github.com/aconchillo/guile-redis")
- (source (origin
- (method url-fetch)
- (uri (string-append home-page "/archive/" version ".tar.gz"))
- (sha256
- (base32
- "1li70a2716my9q9zfq0qn2x5d1cir9k2vx0jm9glm464yaf1vj39"))))
- (build-system gnu-build-system)
- (native-inputs
- `(("autoconf" ,autoconf)
- ("automake" ,automake)
- ("pkg-config" ,pkg-config)
- ("guile" ,guile-2.2)))
- (synopsis "Redis client library for Guile")
- (description "Guile-redis provides a Scheme interface to the Redis
- key-value cache and store.")
- (license license:lgpl3+)))
- (define-public guile2.0-redis
- (package
- (inherit guile-redis)
- (name "guile2.0-redis")
- (native-inputs `(("guile" ,guile-2.0)
- ,@(alist-delete "guile"
- (package-native-inputs guile-redis))))))
- (define-public guile2.2-redis
- (deprecated-package "guile2.2-redis" guile-redis))
- (define-public guile-commonmark
- (package
- (name "guile-commonmark")
- (version "0.1.2")
- (source (origin
- (method url-fetch)
- (uri (string-append "https://github.com/OrangeShark/" name
- "/releases/download/v" version
- "/" name "-" version ".tar.gz"))
- (sha256
- (base32
- "17lrsdisa3kckh24q114vfmzdc4wkqa6ccwl4hdlrng5wpn1iman"))))
- (build-system gnu-build-system)
- (inputs
- `(("guile" ,guile-2.2)))
- (native-inputs
- `(("pkg-config" ,pkg-config)))
- (synopsis "CommonMark parser for Guile")
- (description
- "guile-commonmark is a library for parsing CommonMark, a fully specified
- variant of Markdown. The library is written in Guile Scheme and is designed
- to transform a CommonMark document to SXML. guile-commonmark tries to closely
- follow the @uref{http://commonmark.org/, CommonMark spec}, the main difference
- is no support for parsing block and inline level HTML.")
- (home-page "https://github.com/OrangeShark/guile-commonmark")
- (license license:lgpl3+)))
- (define-public guile2.0-commonmark
- (package
- (inherit guile-commonmark)
- (name "guile2.0-commonmark")
- (inputs `(("guile" ,guile-2.0)))))
- (define-public guile2.2-commonmark
- (deprecated-package "guile2.2-commonmark" guile-commonmark))
- (define-public mcron
- (package
- (name "mcron")
- (version "1.1.1")
- (source (origin
- (method url-fetch)
- (uri (string-append "mirror://gnu/mcron/mcron-"
- version ".tar.gz"))
- (sha256
- (base32
- "1i9mcp6r6my61zfiydsm3n6my41mwvl7dfala4q29qx0zn1ynlm4"))))
- (build-system gnu-build-system)
- (arguments
- '(#:phases (modify-phases %standard-phases
- (add-before 'check 'set-timezone
- (lambda* (#:key inputs #:allow-other-keys)
- ;; 'tests/job-specifier.scm' expects to be running in
- ;; UTC-2 or something.
- ;; FIXME: This issue is being investigated upstream, for
- ;; now we'll just skip the tests (see below):
- ;; <https://lists.gnu.org/archive/html/bug-mcron/2018-04/msg00005.html>.
- (let ((tzdata (assoc-ref inputs "tzdata")))
- (setenv "TZDIR"
- (string-append tzdata
- "/share/zoneinfo"))
- (setenv "TZ" "UTC-2")
- #t)))
- (add-before 'check 'adjust-tests
- (lambda _
- (substitute* "tests/job-specifier.scm"
- ;; (getpw) fails with "entry not found" in the build
- ;; environment, so pass an argument.
- (("\\(getpw\\)")
- "(getpwnam (getuid))")
- ;; The build environment lacks an entry for root in
- ;; /etc/passwd.
- (("\\(getpw 0\\)")
- "(getpwnam \"nobody\")")
- ;; FIXME: Skip the 4 faulty tests (see above).
- (("\\(test-equal \"next-year\"" all)
- (string-append "(test-skip 4)\n" all)))
- #t)))))
- (native-inputs `(("pkg-config" ,pkg-config)
- ("tzdata" ,tzdata-for-tests)))
- (inputs `(("ed" ,ed) ("which" ,which) ("guile" ,guile-2.2)))
- (home-page "https://www.gnu.org/software/mcron/")
- (synopsis "Run jobs at scheduled times")
- (description
- "GNU Mcron is a complete replacement for Vixie cron. It is used to run
- tasks on a schedule, such as every hour or every Monday. Mcron is written in
- Guile, so its configuration can be written in Scheme; the original cron
- format is also supported.")
- (license license:gpl3+)))
- (define-public mcron2
- ;; This was mthl's mcron development branch, and it became mcron 1.1.
- (deprecated-package "mcron2" mcron))
- (define-public guile-picture-language
- (let ((commit "1ea8b78a8bceb4f7e5eaeb3e76987072267f99bb")
- (revision "2"))
- (package
- (name "guile-picture-language")
- (version (git-version "0" revision commit))
- (source (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://git.elephly.net/software/guile-picture-language.git")
- (commit commit)))
- (sha256
- (base32
- "1rvq6q2zq21x7dx0qq1hn568wglsl4bkd8gacbarcx1fs0rrxcqw"))))
- (build-system guile-build-system)
- (inputs
- `(("guile" ,guile-2.2)))
- (home-page "https://git.elephly.net/software/guile-picture-language.git")
- (synopsis "Picture language for Guile")
- (description
- "This package provides a simple SVG-based picture language for Guile.
- The picture values can directly be displayed in Geiser.")
- (license license:lgpl3+))))
|