Sketching ideas.

1 files changed, 13 insertions, 1 deletions

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