add kanshi-varlink

1 files changed, 39 insertions, 0 deletions

diff --git a/sigils/packages/wayland.scm b/sigils/packages/wayland.scm
index 2db4ba1..2534797 100644
--- a/sigils/packages/wayland.scm
+++ b/sigils/packages/wayland.scm
@@ -7,8 +7,47 @@
   #:use-module ((guix licenses)
                 #:prefix license:)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system meson)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages wm)
   #:use-module (gnu packages freedesktop))
 
+(define-public libvarlink
+  (package
+    (name "libvarlink")
+    (version "23")
+    (home-page "https://varlink.org/")
+    (source
+     (origin (method git-fetch)
+             (uri (git-reference
+                   (url "https://github.com/varlink/libvarlink.git")
+                   (commit version)))
+             (sha256
+              (base32 "18cw413rfh1widw06xjxjh5iq3rkfnlsjaka0p8whd4v3hgbsk51"))))
+    (build-system meson-build-system)
+    (native-inputs (list bash-minimal
+                         python))
+    (arguments
+     (list #:phases #~(modify-phases %standard-phases
+                        (add-after 'patch-source-shebangs 'patch-run-command
+                          (lambda _
+                            (substitute* "lib/meson.build"
+                              (("/bin/sh") (which "sh")))
+                            (substitute* "varlink-wrapper.py"
+                              (("/usr/bin/env") (which "env")))
+                            (substitute* "lib/test-object.c"
+                              (("setlocale\\([^)]*\\)") "1")))))))
+    (synopsis "C implementation of the Varlink protocol and command line tool")
+    (description "Varlink C library and command line tool.")
+    (license license:asl2.0)))
+
+(define-public kanshi-varlink
+  (package/inherit kanshi
+    (inputs (modify-inputs (package-inputs kanshi)
+              (append libvarlink)))
+    (arguments '(#:configure-flags '("-Dipc=enabled")))))
+
 (define-public lswt
   (package
     (name "lswt")