diff options
Diffstat (limited to 'gnu/packages/guile-xyz.scm')
| -rw-r--r-- | gnu/packages/guile-xyz.scm | 79 |
1 files changed, 78 insertions, 1 deletions
diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index ea192c2c03..05af36b3e8 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -104,6 +104,7 @@ #:use-module (gnu packages man) #:use-module (gnu packages maths) #:use-module (gnu packages mes) + #:use-module (gnu packages mp3) #:use-module (gnu packages multiprecision) #:use-module (gnu packages ncurses) #:use-module (gnu packages networking) @@ -855,7 +856,7 @@ tables.") (list #:make-flags #~(list "GUILE_AUTO_COMPILE=0") #:phases - (if (target-x86-64?) + (if (and (target-x86-64?) (not (target-hurd?))) #~%standard-phases #~(modify-phases %standard-phases (add-before 'check 'disable-some-tests @@ -936,6 +937,13 @@ is not available for Guile 2.0.") guile-3.0 ;for 'guild compile ;; Gettext brings 'AC_LIB_LINKFLAGS_FROM_LIBS' gettext-minimal)) + (arguments + (if (%current-target-system) + (substitute-keyword-arguments (package-arguments guile-fibers) + ((#:phases phases) + #~(modify-phases #$phases + (delete 'apply-cross-build-fix-patch)))) + (package-arguments guile-fibers))) (inputs (list guile-3.0)) ;for libguile-3.0.so (supported-systems @@ -1062,6 +1070,41 @@ manager. It can be used to query Sway, assign keybindings and listen to events in Guile.") (license license:expat))) +(define-public guile-taglib + (let ((commit "c056ac9eb375459c53284aa20f35b0778cfa3cea") + (version "0") + (revision "0")) + (package + (name "guile-taglib") + (version (git-version version revision commit)) + (home-page "https://github.com/sbarbit/guile-taglib") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/sbarbit/guile-taglib") + (commit commit))) + (file-name (git-file-name name version)) + (sha256 + (base32 "07z65hqxjm6rd9cdk2b9dcxj8hgz7c9dg4iprr19jrvj4ymzrbff")))) + (build-system guile-build-system) + (native-inputs (list guile-3.0)) + (propagated-inputs (list taglib)) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'fix-taglib-path + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "taglib.scm" + (("libtag_c.so") + (search-input-file inputs "/lib/libtag_c.so")))))))) + (synopsis "Guile bindings for the taglib library") + (description + "This package provides Guile bindings for the taglib C library. +It can be used to access and modify metadata for audio files.") + (license license:gpl2+)))) + (define-public guile-syntax-highlight (package (name "guile-syntax-highlight") @@ -6221,6 +6264,40 @@ of numbers. Scheme is great at expressing your coding thoughts. This project is an attempt to combine both into something useful.") (license license:asl2.0)))) +(define-public guile-knots + (let ((commit "2f39c58d6ca72cd869ba69e03d639f36d497e9a8") + (revision "1")) + (package + (name "guile-knots") + (version (git-version "0" revision commit)) + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://git.cbaines.net/git/guile/knots") + (commit commit))) + (sha256 + (base32 + "1kv2sw4pif2hjcfghjlzdv0plkdqkv4mpq2a18mj38jhwsjxr1q2")) + (file-name (string-append name "-" version "-checkout")))) + (build-system gnu-build-system) + (native-inputs + (list pkg-config + autoconf + automake + guile-3.0 + guile-fibers)) + (inputs + (list guile-3.0)) + (propagated-inputs + (list guile-fibers)) + (home-page "https://git.cbaines.net/guile/knots") + (synopsis "Patterns and functionality to use with Guile Fibers") + (description + "Guile Knots is a collection of patterns and functionality that is useful +when using Guile Fibers. This includes higher level concurrency utilities, +support for timeouts and an alternative web server implementation.") + (license license:gpl3+)))) + (define-public guile-kolam (package (name "guile-kolam") |