(define-module (sigils packages wayland)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix utils)
  #:use-module (guix gexp)
  #: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")
    (version "2.0.0")
    (home-page "https://sr.ht/~leon_plickat/lswt/")
    (build-system gnu-build-system)
    (source
     (origin (method git-fetch)
             (uri (git-reference
                   (url "https://git.sr.ht/~leon_plickat/lswt")
                   (commit (string-append "v" version))))
             (sha256
              (base32 "0g9mw4w2ksmbjlwj2s7gp291rjwrgn0snviv95xxw3pcdhizlczj"))))
    (inputs (list wayland))
    (arguments
     (list
      #:tests? #f
      #:phases #~(modify-phases %standard-phases
                   (delete 'configure))
      #:make-flags #~(list (string-append "CC=" #$(cc-for-target))
                           (string-append "PREFIX=" #$output))))
    (synopsis "list wayland toplevels")
    (description "list wayland toplevels")
    (license license:gpl3+)))