guix-kakafarm-channel

commit c7776631c54876ab0760611f98198018f5f13a69
parent 365dee901658d1a58e8d734267af6b749b29720e
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Sat,  7 Sep 2024 00:29:18 +0300

Update guile-clipboard-speaker and run guix style on the file.

Diffstat:
M
kakafarm/packages/guile-xyz.scm
 | 
51
++++++++++++++++++++++++---------------------------

1 file changed, 24 insertions(+), 27 deletions(-)
diff --git a/kakafarm/packages/guile-xyz.scm b/kakafarm/packages/guile-xyz.scm
@@ -46,13 +46,14 @@
   #:use-module (guix packages))
 
 (define-public guile-clipboard-speaker
-  (let ((commit "ba5fa866087b93fae966640eed37387ea5a74e32")
-        (base32-string "1q8c1x0ansx9519lry9spl923bzc9yrs675fyjmxkhyrwi52i8p2")
+  (let ((commit "36e87dee6f0ea51df62b1c52ff570f778ea18d95")
+        (revision "2")
+        (base32-string "1gz5fq8acw0nxr5nyarcrnxy75brjyr3ir5x6kj3mbdiijyqnagh")
         (git-repository-url
          "https://codeberg.org/kakafarm/guile-clipboard-speaker/"))
     (package
       (name "guile-clipboard-speaker")
-      (version "1.0.1")
+      (version (git-version "1.0.2" revision commit))
       (source
        (origin
          (uri (git-reference
@@ -66,18 +67,19 @@
       (inputs (list bash
                     coreutils
                     espeak-ng
-                    gnu:packages:guile:guile-3.0
                     gnu:packages:guile-xyz:guile-config
                     gnu:packages:guile-xyz:guile-srfi-145
                     gnu:packages:guile-xyz:guile-srfi-180
+                    gnu:packages:guile:guile-3.0
                     util-linux
                     xsel))
       (build-system guile-build-system)
       (arguments
        (list
         #:phases #~(modify-phases %standard-phases
-                     (add-after 'install 'link-and-wrap-executable
+                     (add-after 'install-documentation 'link-and-wrap-executable
                        (lambda _
+                         (use-modules (ice-9 pretty-print))
                          (let* ((bin (string-append #$output "/bin"))
                                 (script (string-append bin
                                                        "/clipboard-speaker"))
@@ -98,17 +100,18 @@
                                     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))))))))))
+                             (list "GUILE_LOAD_PATH"
+                                   'prefix
+                                   (list (string-append #$output scm)
+                                         (string-append guile-config scm)
+                                         (string-append guile-srfi-145 scm)
+                                         (string-append guile-srfi-180 scm)))
+                             (list "GUILE_LOAD_COMPILED_PATH"
+                                   'prefix
+                                   (list (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")
@@ -376,7 +379,8 @@ arguments.")
                      (add-after 'unpack 'move-create-and-delete-files
                        (lambda _
                          (use-modules (ice-9 textual-ports))
-                         (let* ((impl (call-with-input-file "srfi/impl.scm" get-string-all)))
+                         (let* ((impl (call-with-input-file "srfi/impl.scm"
+                                        get-string-all)))
                            (with-output-to-file "srfi/srfi-253.scm"
                              (lambda ()
                                (display "(define-module (srfi srfi-253)
@@ -390,19 +394,12 @@ arguments.")
    values-checked
    ))
 ")
-                               (display impl)
-                               )))
-
+                               (display impl))))
 
                          (for-each (lambda (filename)
                                      (delete-file filename))
-                                   '(
-                                     "existing-practice.scm"
-                                     "srfi/253.sld"
-                                     "srfi/253.sls"
-                                     "srfi/impl.scm"
-                                     "test.scm"
-                                     )))))))
+                                   '("existing-practice.scm" "srfi/253.sld"
+                                     "srfi/253.sls" "srfi/impl.scm" "test.scm")))))))
       (native-inputs (list gnu:packages:guile:guile-3.0))
       (home-page git-repository-url)
       (synopsis "Data (Type-)Checking.")