diff options
Diffstat (limited to 'gnu/packages/guile-xyz.scm')
| -rw-r--r-- | gnu/packages/guile-xyz.scm | 161 |
1 files changed, 150 insertions, 11 deletions
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index b1620618eb..745c7b3217 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -45,6 +45,7 @@ ;;; Copyright © 2022 Taiju HIGASHI <higashi@taiju.info> ;;; Copyright © 2022 Zheng Junjie <873216071@qq.com> ;;; Copyright © 2022 Evgeny Pisemsky <evgeny@pisemsky.com> +;;; Copyright © 2022 jgart <jgart@dismail.de> ;;; ;;; This file is part of GNU Guix. ;;; @@ -336,6 +337,72 @@ to UNIX pipes (@code{|}), Clojure's threading macros (@code{->} and @code{->>}).") (license license:gpl3+)))) +(define-public guile-pubstrate + (let ((commit "b11b7df5e7ffefa45c5859b868d8125c4d939418") + (revision "1")) + (package + (name "guile-pubstrate") + (version (git-version "0.1.dev" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://gitlab.com/dustyweb/pubstrate") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1qk45b3hjhzzq3dim699jrbmlc7ryr4s1fiz99ljz16rag2rr5p4")))) + (build-system gnu-build-system) + (arguments + (list + #:make-flags + '(list "GUILE_AUTO_COMPILE=0") + #:phases + '(modify-phases %standard-phases + (add-after 'unpack 'fix-build-system + (lambda _ + (substitute* "configure.ac" + (("GUILE_PROGS" m) + (string-append m " +guilemoduledir=\"${datarootdir}/guile/site/${GUILE_EFFECTIVE_VERSION}\" +AC_SUBST([guilemoduledir]) +AC_SUBST([GUILE_EFFECTIVE_VERSION]) +"))) + ;; The user.scm line is doubled + (substitute* "Makefile.am" + ((".*pubstrate/webapp/user.scm.*") "") + ((".*pubstrate/webapp/app.scm.*" m) + (string-append m "pubstrate/webapp/user.scm \\\n")) + (("/ccache") "/site-ccache")))) + (add-after 'unpack 'fix-srfi64-tests + (lambda _ + (substitute* (find-files "tests/" "test-.*\\.scm$") + (("\\(test-exit\\)") "") + (("\\(test-end.*" m) + (string-append "(test-exit)" m)))))))) + (native-inputs + (list autoconf + automake + pkg-config + texinfo)) + (inputs + (list guile-3.0 + libgcrypt)) + (propagated-inputs + (list gnutls + guile-8sync-for-pubstrate + guile-gcrypt + guile-gdbm-ffi + guile-irregex + guile-lib + guile-sjson + guile-webutils)) + (home-page "https://gitlab.com/dustyweb/pubstrate/") + (synopsis "ActivityStreams and ActivityPub implementation in Guile") + (description "This package provides an implementation of ActivityStreams +and ActivityPub in Guile. It includes a full (currently demo) web server.") + (license license:gpl3+)))) + (define-public guile-f-scm (package (name "guile-f-scm") @@ -563,6 +630,44 @@ library for GNU Guile based on the actor model.") (properties '((upstream-name . "8sync"))) (license license:lgpl3+)))) +(define guile-8sync-for-pubstrate + (let ((commit "7972787723d08a491379b63e6e5dc1cc6a3fac87") + (revision "0")) + (package + (inherit guile-8sync) + (name "guile-8sync-for-pubstrate") + (version (git-version "0.4.2" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (commit commit) + (url "https://git.savannah.gnu.org/git/8sync.git"))) + (sha256 + (base32 + "0m3k3cizi89frnw58dws3g4jcssck6jf1ahpadxxg3ncclqzad8r")) + (file-name (git-file-name name version)) + (modules '((guix build utils))) + (snippet + '(substitute* "Makefile.am" + (("2.2") "3.0"))))) + (build-system gnu-build-system) + (arguments + (list + #:make-flags + '(list "GUILE_AUTO_COMPILE=0") + #:phases + '(modify-phases %standard-phases + ;; See commit ee371103855e5bfe8aae3debe442a24c6353e172 + (add-after 'unpack 'fix-srfi64-tests + (lambda _ + (substitute* '("tests/test-actors.scm" + "tests/test-rmeta-slot.scm") + (("\\(test-exit\\)") "") + (("\\(test-end.*" m) + (string-append "(test-exit)" m)))))))) + (native-inputs (list autoconf automake guile-3.0 pkg-config texinfo)) + (propagated-inputs (list guile-fibers))))) + (define-public guile-daemon (package (name "guile-daemon") @@ -707,6 +812,25 @@ is not available for Guile 2.0.") (properties '((upstream-name . "fibers"))) (license license:lgpl3+))) +(define-public guile-fibers-next + (let ((commit "0fa712ecd85c65d7d11ce0c897f068fba4e6ef3f") + (revision "0")) + (package + (inherit guile-fibers-1.1) + (name "guile-fibers-next") + (version (git-version (package-version guile-fibers-1.1) + revision + commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/wingo/fibers") + (commit commit))) + (file-name (git-file-name "guile-fibers" version)) + (sha256 + (base32 + "0vfq4dkdq2szi5f99ywm856vll397c1x42a55rpxya61rrws8s9r"))))))) + (define-public guile-fibers (package (inherit guile-fibers-1.1) @@ -3546,6 +3670,29 @@ in C using Gtk+-3 and WebKitGtk.") perform geometrical transforms on JPEG images.") (license license:gpl3+)))) +(define-public guile-jtd + (package + (name "guile-jtd") + (version "220323a") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/mwette/guile-jtd") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1l8fyqhvksarvpbr903i3ss3432jzvyvhgcqa15j922ngqh4ds6f")))) + (build-system guile-build-system) + (native-inputs (list guile-3.0)) + (home-page "https://github.com/mwette/guile-jtd") + (synopsis "Python's @code{pdb.set_trace()} but for Guile") + (description + "The @code{(jtd)} module for Guile provides a procedure +@code{jump-to-debugger} for escaping to the Guile REPL for the purpose of +debugging code.") + (license license:lgpl2.1+))) + (define-public guile-png (package (name "guile-png") @@ -4033,8 +4180,8 @@ gnome-keyring, and many more.") (license license:expat))) (define-public guile-webutils - (let ((commit "8541904f761066dc9c27b1153e9a838be9a55299") - (revision "0")) + (let ((commit "d309d65a85247e4f3cea63a17defd1e6d35d821f") + (revision "1")) (package (name "guile-webutils") (version (git-version "0.1" revision commit)) @@ -4046,15 +4193,7 @@ gnome-keyring, and many more.") (file-name (git-file-name name version)) (sha256 (base32 - "1s9n3hbxd7lfpdi0x8wr0cfvlsf6g62ird9gbspxdrp5p05rbi64")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Allow builds with Guile 3.0. - (substitute* "configure.ac" - (("2\\.2 2\\.0") - "3.0 2.2 2.0")) - #t)))) + "1a3bblk5zaldkkxn0a94s544drqm0w2i5fsjpghagd64m149blf0")))) (build-system gnu-build-system) (native-inputs (list autoconf automake pkg-config texinfo)) |