Proof-of-concept event handling. See NOTE.

1 files changed, 5 insertions, 1 deletions

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))