guix-kakafarm-channel

commit 8706948dcef2a8d97e71e86f39d17f927853b1d5
parent 029b8105c741a2da3c62f1163569653fea96bb0b
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Thu,  5 Sep 2024 05:21:50 +0300

Add guile-srfi-235 package definition.

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

1 file changed, 36 insertions(+), 4 deletions(-)
diff --git a/kakafarm/packages/guile-xyz.scm b/kakafarm/packages/guile-xyz.scm
@@ -314,6 +314,42 @@ created with it have predictable behavior when applied to surplus
 arguments.")
       (license license:expat))))
 
+(define-public guile-srfi-235
+  (let ((version "0.0.1")
+        (revision "1")
+        (commit "643a44aa9d6872962257995ecb0a31eb06a71d88")
+        (git-repository-url
+         "https://github.com/scheme-requests-for-implementation/srfi-235"))
+    (package
+      (name "guile-srfi-235")
+      (version (git-version version revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url
+                "https://github.com/scheme-requests-for-implementation/srfi-235")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1slkcr67ad12ipkbhjdzjhbnsyvq5wi7cssvgv110fr2dy4rciwp"))))
+      (build-system guile-build-system)
+      (arguments
+       (list
+        #:phases #~(modify-phases %standard-phases
+                     (add-after 'unpack 'move-create-and-delete-files
+                       (lambda _
+                         (substitute* "srfi/235.sld"
+                           (("srfi 235")
+                            "srfi srfi-235"))
+                         (rename-file "srfi/235.sld" "srfi/srfi-235.scm"))))))
+      (native-inputs (list gnu:packages:guile:guile-3.0))
+      (home-page git-repository-url)
+      (synopsis "Combinators.")
+      (description
+       "This SRFI contains various procedures that accept and return procedures, as well as a few others, drawn from an earlier version of Chicken. Common Lisp has a few of them too, and more come from the Standard Prelude from Programming Praxis. Using these procedures helps to keep code terse and reduce the need for ad hoc lambdas.")
+      (license license:expat))))
+
 (define-public guile-websocket-next
   (let ((version "0.2")
         (revision "1")
@@ -332,7 +368,3 @@ arguments.")
          (file-name (git-file-name name version))
          (sha256
           (base32 "1qqwjhpqc615sxjnmx8jbpjqczfanfjvhrl1lxd3h738pnjr7fbq")))))))
-
-;;; This allows you to run guix shell -f example.scm.
-;;; Remove this line if you just want to define a package.
-;;;guile-clipboard-speaker