From ea6607a1411007a78fdbdff5197847e6267d197f Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Thu, 15 Aug 2024 11:46:22 +0200
Subject: [PATCH] feat: add dwlmsg

---
 ruther/packages/wayland.scm | 39 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/ruther/packages/wayland.scm b/ruther/packages/wayland.scm
index cb74917..f0cc415 100644
--- a/ruther/packages/wayland.scm
+++ b/ruther/packages/wayland.scm
@@ -3,6 +3,7 @@
   #:use-module (guix packages)
   #:use-module (guix gexp)
 
+  #:use-module (gnu packages build-tools)
   #:use-module (gnu packages)
   #:use-module (gnu packages xdisorg)
   #:use-module (gnu packages gl)
@@ -13,6 +14,7 @@
   #:use-module (gnu packages gtk)
   #:use-module (gnu packages glib)
 
+  #:use-module ((guix build-system gnu) #:prefix gnu:)
   #:use-module ((guix build-system meson) #:prefix meson:)
   #:use-module ((guix build-system python) #:prefix python:)
   #:use-module ((guix licenses) #:prefix license:)
@@ -192,4 +194,39 @@
         (base32 "1wsql3zs0mjndxzhbx84nkimls66l6zql79rb74lghlkwaajzaq9"))))
     (inputs (list wlroots-0.19-dev))))
 
-;; TODO dwl 0.8 dev
+(define-public dwlmsg
+  (package
+   (name "dwlmsg")
+   (version "0.0.0")
+   (source
+    (origin
+     (method git-fetch)
+     (uri (git-reference
+           (url "https://codeberg.org/notchoc/dwlmsg.git")
+           (commit "7c9479b05b1ef4c351ddb646308321036bb1db33")))
+     (sha256
+      (base32 "1j1x51i698fs1iw7brd7mabpvh8y8i4a3g4vyd7hl024q75jwc9n"))))
+   (build-system gnu:gnu-build-system)
+   (inputs
+    (list wayland-1.23 wayland-protocols-1.35))
+   (native-inputs
+    (list pkg-config))
+   (arguments
+    (list
+     #:tests? #f
+     #:make-flags
+     `(list
+       (string-append "CC=" ,(cc-for-target))
+       (string-append "PREFIX=" (assoc-ref %outputs "out")))
+     #:phases
+     #~(modify-phases %standard-phases
+         (delete 'configure)
+         (replace 'install
+           (lambda* (#:key (make-flags '()) #:allow-other-keys)
+             (mkdir-p (string-append #$output "/bin"))
+             (apply invoke "make" "install" make-flags))))))
+   (synopsis "Send commands to dwl with ipc patch")
+   (description "After patching with ipc, this tools allows
+for messaging with dwl. There are control commands and build commands")
+   (license #f)
+   (home-page "https://codeberg.org/notchoc/dwlmsg")))
-- 
2.48.1