commit db912b229356a854d5b3ccb982f2bf3b4d8a47cb
parent b41d702966973b584cb7ee70b5b44cb8faf87a62
Author: Yuval Langer <yuval.langer@gmail.com>
Date: Sat, 2 Dec 2023 02:34:56 +0200
Prepare directory structure for Guix-Channelification.
Diffstat:
2 files changed, 84 insertions(+), 71 deletions(-)
diff --git a/guile-clipboard-speaker.scm b/guile-clipboard-speaker.scm
@@ -1,71 +0,0 @@
-(use-modules (guix packages)
- (guix build-system guile)
- (guix git-download)
- ((guix licenses) #:prefix license:)
- (guix gexp)
- (gnu packages)
- (gnu packages base)
- (gnu packages bash)
- (gnu packages xdisorg)
- (gnu packages guile-xyz)
- (gnu packages guile)
- (gnu packages speech))
-
-(define-public guile-clipboard-speaker
- (let ((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. 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+))))
-
-;; This allows you to run guix shell -f example.scm.
-;; Remove this line if you just want to define a package.
-guile-clipboard-speaker
diff --git a/kakafarm/packages/guile-xyz.scm b/kakafarm/packages/guile-xyz.scm
@@ -0,0 +1,84 @@
+(define-module (kakafarm packages guile-xyz))
+
+(use-modules (guix packages)
+ (guix build-system guile)
+ (guix git-download)
+ ((guix licenses) #:prefix license:)
+ (guix gexp)
+ (gnu packages)
+ (gnu packages base)
+ (gnu packages bash)
+ (gnu packages xdisorg)
+ (gnu packages guile-xyz)
+ (gnu packages guile)
+ (gnu packages speech))
+
+(define-public guile-clipboard-speaker
+ (let ((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.
+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+))))
+
+;; This allows you to run guix shell -f example.scm.
+;; Remove this line if you just want to define a package.
+guile-clipboard-speaker
