From f7ec25115caf0ff0c17275571f740748becfcc3e Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Fri, 2 Dec 2022 18:12:56 +0100
Subject: Sketching ideas.

---
 main.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index 8a34528..d048e8b 100644
--- a/main.scm
+++ b/main.scm
@@ -1,8 +1,20 @@
-(use-modules (wm))
+(use-modules (srfi srfi-9)
+             (wm))
+
+(define-record-type <wm-config>
+  (make-config border-width outer-border-width)
+  wm-config?
+  (border-width        config-border-width       set-config-border-width!)
+  (outer-border-width  config-outer-border-width set-config-outer-border-width!))
+
+(define config
+  (make-config 2 0))
 
 (when (wm-init)
   (wm-set-configure-notify-handler!
    (lambda (x y w h)
      (display (+ x y w h))
      (display "\n")))
+  (display config)
+  (display "\n")
   (wm-quit))
-- 
cgit v1.2.3