From 21ebd4dda267d09c60d8b646782aed28138c5690 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Fri, 2 Dec 2022 16:14:26 +0100
Subject: Proof-of-concept event handling. See NOTE.

---
 main.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index 07c2f04..8a34528 100644
--- a/main.scm
+++ b/main.scm
@@ -1,4 +1,8 @@
 (use-modules (wm))
 
 (when (wm-init)
-  (wm-quit "hello"))
+  (wm-set-configure-notify-handler!
+   (lambda (x y w h)
+     (display (+ x y w h))
+     (display "\n")))
+  (wm-quit))
-- 
cgit v1.2.3