From 6bdaee03c0fd3caac390dffdaaf52d54653b1430 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Thu, 8 Dec 2022 15:57:36 +0100
Subject: More features implemented.

* .manifest.scm: Added libx11
* Makefile: Add x11 to pkg-config calls
* main.scm: Add more config, including some keybinding stuff
* wm.scm: Add key-from-str function
* schewm.c: keysym_from_str() and others implemented/refactored
---
 main.scm | 31 +++++++++++++++++++++++++++----
 1 file changed, 27 insertions(+), 4 deletions(-)

(limited to 'main.scm')

diff --git a/main.scm b/main.scm
index e0647ab..6487a30 100644
--- a/main.scm
+++ b/main.scm
@@ -2,13 +2,36 @@
              (wm))
 
 (define-record-type <wm-config>
-  (make-config border-width outer-border-width)
+  (make-config
+   inner-border-width
+   outer-border-width
+   manger-border-width
+   offset-x
+   offset-y
+   offset-width
+   offset-height)
   wm-config?
-  (border-width        config-border-width       set-config-border-width!)
-  (outer-border-width  config-outer-border-width set-config-outer-border-width!))
+  (inner-border-width   config-inner-border-width  set-config-inner-border-width!)
+  (outer-border-width   config-outer-border-width  set-config-outer-border-width!)
+  (magnet-border-width  config-magnet-border-width set-config-magnet-border-width!)
+  (offset-x             config-offset-x            set-config-offset-x!)
+  (offset-y             config-offset-y            set-config-offset-y!)
+  (offset-width         config-offset-width        set-config-offset-width!)
+  (offset-height        config-offset-height       set-config-offset-height!))
 
 (define config
-  (make-config 2 0))
+  (make-config
+   2    ; inner-border-width
+   0    ; outer-border-width
+   16   ; magnet-border-width
+   0    ; offset-x
+   0    ; offset-y
+   0    ; offset-width
+   0    ; offset-height
+   ))
+
+(define keys
+  '(((make-key-chord (key-from-str "q")) . wm-quit)))
 
 (when (wm-init)
   (wm-set-key-press-handler!
-- 
cgit v1.2.3