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

1 files changed, 27 insertions, 4 deletions

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!