commit 869db78d8dc5d0fd4f63b85a39caefa24a00727e
parent fe35dcd54ade21b5519f78e2560e365b48ca1770
Author: Yuval Langer <yuval.langer@gmail.com>
Date: Sat, 30 Dec 2023 23:23:15 +0200
Upgrade guile-clipboard-speaker.
Diffstat:
1 file changed, 136 insertions(+), 134 deletions(-)
diff --git a/kakafarm/packages/guile-xyz.scm b/kakafarm/packages/guile-xyz.scm
@@ -14,99 +14,101 @@
(gnu packages speech))
(define-public guile-clipboard-speaker
- (let ((git-repository-url "https://codeberg.org/kakafarm/guile-clipboard-speaker/"))
+ (let ((commit-string "9a6a9e13aba798872e10399d04b516516fee0413")
+ (base32-string "0nvccqdvq05rximv56aam80y35lx5g64gi5ki0fzqzhiniyk7gz2")
+ (git-repository-url "https://codeberg.org/kakafarm/guile-clipboard-speaker/"))
(package
- (name "guile-clipboard-speaker")
- (version "0.1")
- (source
- (origin
- (uri (git-reference
- (url git-repository-url)
- (commit "8b493f674c1f42c480c582d10cd50bdae0926555")))
- (method git-fetch)
- (file-name (git-file-name name version))
- (sha256 (base32 "0ll75spzzmsvc57y4rnd0il7zvlai4q3imva4ildf66gghflhqf5"))))
- (native-inputs
- (list guile-3.0))
- (inputs
- (list bash
- coreutils
- xsel
- guile-3.0
- guile-config
- guile-srfi-145
- guile-srfi-180
- espeak-ng))
- (build-system guile-build-system)
- (arguments
- (list
- #:phases
- #~(modify-phases
- %standard-phases
- (add-after 'install 'link-and-wrap-executable
- (lambda _
- (let* ((bin (string-append #$output "/bin"))
- (script (string-append bin "/clipboard-speaker"))
- (site-version (target-guile-effective-version))
- (scm (string-append "/share/guile/site/"
- site-version))
- (go (string-append "/lib/guile/"
- site-version
- "/site-ccache"))
- (guile-config #$(this-package-input "guile-config"))
- (guile-srfi-145 #$(this-package-input "guile-srfi-145"))
- (guile-srfi-180 #$(this-package-input "guile-srfi-180")))
- (mkdir-p bin)
- (symlink (string-append #$output scm "/clipboard-speaker.scm")
- script)
- (wrap-program script #:sh (which "bash")
- `("GUILE_LOAD_PATH" prefix
- (,(string-append #$output scm)
- ,(string-append guile-config scm)
- ,(string-append guile-srfi-145 scm)
- ,(string-append guile-srfi-180 scm)))
- `("GUILE_LOAD_COMPILED_PATH" prefix
- (,(string-append #$output go)
- ,(string-append guile-config go)
- ,(string-append guile-srfi-145 go)
- ,(string-append guile-srfi-180 go))))))))))
- (home-page git-repository-url)
- (synopsis "Accessibility tool that reads the contents of your clipboard buffer")
- (description "This package installs the clipboard-speaker executable.
+ (name "guile-clipboard-speaker")
+ (version "0.1")
+ (source
+ (origin
+ (uri (git-reference
+ (url git-repository-url)
+ (commit commit-string)))
+ (method git-fetch)
+ (file-name (git-file-name name version))
+ (sha256 (base32 base32-string))))
+ (native-inputs
+ (list guile-3.0))
+ (inputs
+ (list bash
+ coreutils
+ xsel
+ guile-3.0
+ guile-config
+ guile-srfi-145
+ guile-srfi-180
+ espeak-ng))
+ (build-system guile-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases
+ %standard-phases
+ (add-after 'install 'link-and-wrap-executable
+ (lambda _
+ (let* ((bin (string-append #$output "/bin"))
+ (script (string-append bin "/clipboard-speaker"))
+ (site-version (target-guile-effective-version))
+ (scm (string-append "/share/guile/site/"
+ site-version))
+ (go (string-append "/lib/guile/"
+ site-version
+ "/site-ccache"))
+ (guile-config #$(this-package-input "guile-config"))
+ (guile-srfi-145 #$(this-package-input "guile-srfi-145"))
+ (guile-srfi-180 #$(this-package-input "guile-srfi-180")))
+ (mkdir-p bin)
+ (symlink (string-append #$output scm "/clipboard-speaker.scm")
+ script)
+ (wrap-program script #:sh (which "bash")
+ `("GUILE_LOAD_PATH" prefix
+ (,(string-append #$output scm)
+ ,(string-append guile-config scm)
+ ,(string-append guile-srfi-145 scm)
+ ,(string-append guile-srfi-180 scm)))
+ `("GUILE_LOAD_COMPILED_PATH" prefix
+ (,(string-append #$output go)
+ ,(string-append guile-config go)
+ ,(string-append guile-srfi-145 go)
+ ,(string-append guile-srfi-180 go))))))))))
+ (home-page git-repository-url)
+ (synopsis "Accessibility tool that reads the contents of your clipboard buffer")
+ (description "This package installs the clipboard-speaker executable.
An accessibility tool that reads the contents of the clipboard. I can
read the current selection or the clipboard. Select a bunch of text,
press a keybinding / shortcut you've set in the windows manager, and
clipboard-speaker would read that aloud.")
- (license license:agpl3+))))
+ (license license:agpl3+))))
(define-public guile-srfi-133
(package
- (name "guile-srfi-133")
- (version "0.0.1")
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/scheme-requests-for-implementation/srfi-133")
- (commit "db81a114cd3e23375f024baec15482614ec90453")))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0a7srl72291yah0aj6rwddhj041v2spximhknjj7hczlparsrm7f"))))
- (build-system guile-build-system)
- (arguments
- (list
- #:phases
- #~(modify-phases
- %standard-phases
- (add-after 'unpack 'move-create-and-delete-files
- (lambda _
- (rename-file "vectors" "srfi")
- (rename-file "srfi/vectors-test.scm" "srfi/srfi-test.scm")
- (rename-file "srfi/vectors-impl.scm" "srfi/srfi-impl.scm")
- (with-output-to-file "srfi/srfi-133.scm"
- (lambda ()
- (display "(define-module (srfi srfi-133)
+ (name "guile-srfi-133")
+ (version "0.0.1")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/scheme-requests-for-implementation/srfi-133")
+ (commit "db81a114cd3e23375f024baec15482614ec90453")))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0a7srl72291yah0aj6rwddhj041v2spximhknjj7hczlparsrm7f"))))
+ (build-system guile-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases
+ %standard-phases
+ (add-after 'unpack 'move-create-and-delete-files
+ (lambda _
+ (rename-file "vectors" "srfi")
+ (rename-file "srfi/vectors-test.scm" "srfi/srfi-test.scm")
+ (rename-file "srfi/vectors-impl.scm" "srfi/srfi-impl.scm")
+ (with-output-to-file "srfi/srfi-133.scm"
+ (lambda ()
+ (display "(define-module (srfi srfi-133)
#:replace (;; Constructors
vector-copy
@@ -139,61 +141,61 @@ clipboard-speaker would read that aloud.")
vector->string string->vector))
(include \"srfi-impl.scm\")")))
- (for-each (lambda (filename)
- (delete-file filename))
- '("tests/run.scm"
- "srfi/vectors.sld"
- "srfi/vectors.scm")))))))
- (native-inputs
- (list guile-3.0))
- (home-page "https://github.com/scheme-requests-for-implementation/srfi-133")
- (synopsis "Vector Library (R7RS-compatible)")
- (description
- "A comprehensive library of vector operations.")
- (license license:expat)))
+ (for-each (lambda (filename)
+ (delete-file filename))
+ '("tests/run.scm"
+ "srfi/vectors.sld"
+ "srfi/vectors.scm")))))))
+ (native-inputs
+ (list guile-3.0))
+ (home-page "https://github.com/scheme-requests-for-implementation/srfi-133")
+ (synopsis "Vector Library (R7RS-compatible)")
+ (description
+ "A comprehensive library of vector operations.")
+ (license license:expat)))
(define-public guile-srfi-232
(package
- (name "guile-srfi-232")
- (version "0.0.1")
- (source
- (origin
- (method git-fetch)
- (uri (git-reference
- (url "https://github.com/scheme-requests-for-implementation/srfi-232")
- (commit "c3f580d220778cd71492aba4fdd0c7040968e705")))
- (file-name (git-file-name name version))
- (sha256
- (base32
- "0lp4zcqjjj6hwfh3ix71wak1nffgg4npzsg7cdxfn9hf6iwf9xby"))))
- (build-system guile-build-system)
- (arguments
- (list
- #:phases
- #~(modify-phases
- %standard-phases
- (add-after 'unpack 'move-and-delete-things
- (lambda _
- (let* ((srfi-directory (string-append #$output "/srfi")))
- (mkdir-p "srfi")
- (with-output-to-file "srfi/srfi-232.scm"
- (lambda ()
- (display "(define-library (srfi srfi-232)
+ (name "guile-srfi-232")
+ (version "0.0.1")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/scheme-requests-for-implementation/srfi-232")
+ (commit "c3f580d220778cd71492aba4fdd0c7040968e705")))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "0lp4zcqjjj6hwfh3ix71wak1nffgg4npzsg7cdxfn9hf6iwf9xby"))))
+ (build-system guile-build-system)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases
+ %standard-phases
+ (add-after 'unpack 'move-and-delete-things
+ (lambda _
+ (let* ((srfi-directory (string-append #$output "/srfi")))
+ (mkdir-p "srfi")
+ (with-output-to-file "srfi/srfi-232.scm"
+ (lambda ()
+ (display "(define-library (srfi srfi-232)
(export curried define-curried)
(import (only (guile) import)
(scheme base))
(include \"../srfi-232.scm\"))")))
- (for-each (lambda (filename)
- (delete-file filename))
- '("test-body.scm"
- "test-chibi.scm"
- "test-srfi-64.scm"))))))))
- (native-inputs
- (list guile-3.0))
- (home-page "https://github.com/scheme-requests-for-implementation/srfi-232")
- (synopsis "Flexible curried procedures")
- (description
- "Scheme lacks a flexible way to create and apply curried
+ (for-each (lambda (filename)
+ (delete-file filename))
+ '("test-body.scm"
+ "test-chibi.scm"
+ "test-srfi-64.scm"))))))))
+ (native-inputs
+ (list guile-3.0))
+ (home-page "https://github.com/scheme-requests-for-implementation/srfi-232")
+ (synopsis "Flexible curried procedures")
+ (description
+ "Scheme lacks a flexible way to create and apply curried
procedures. This SRFI describes curried, a variant of lambda that
creates true curried procedures which also behave just like ordinary
Scheme procedures. They can be applied to their arguments one by one,
@@ -201,7 +203,7 @@ all at once, or anywhere in between, without any novel syntax.
curried also supports nullary and variadic procedures, and procedures
created with it have predictable behavior when applied to surplus
arguments.")
- (license license:expat)))
+ (license license:expat)))
;;; This allows you to run guix shell -f example.scm.
;;; Remove this line if you just want to define a package.
