summaryrefslogtreecommitdiff
path: root/wm.scm
diff options
context:
space:
mode:
authorSamuel Fadel <samuel@nihil.ws>2022-12-03 15:59:48 +0100
committerSamuel Fadel <samuel@nihil.ws>2022-12-03 15:59:48 +0100
commitda3523b11bcb174dac02fbfabfa58ed6b78a8622 (patch)
treebc8b3add64759cbd4b518e405d58a09a8c42b7f1 /wm.scm
parent298607488b1c4a279ad5c1bce5315f7f28e9afd3 (diff)
It's alive!
* Makefile: Add pkg-config flags to properly link some symbols * wm.scm: Added wm-run and cleanup * schewm.c: Ported a lot more stuff, still missing key features * main.scm: Call wm-run
Diffstat (limited to 'wm.scm')
-rw-r--r--wm.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/wm.scm b/wm.scm
index fcd0bc9..06d1581 100644
--- a/wm.scm
+++ b/wm.scm
@@ -2,6 +2,7 @@
#:use-module (system foreign)
#:export (wm-init
wm-set-configure-notify-handler!
+ wm-run
wm-quit))
(define libschewm (dynamic-link "libschewm"))
@@ -24,6 +25,9 @@
(define wm-quit
(schewm-func void "wm_quit" '()))
+(define wm-run
+ (schewm-func void "wm_run" '()))
+
(define c/wm-set-configure-notify-handler
(schewm-func void
"wm_set_configure_notify_handler"
@@ -35,5 +39,3 @@
handler
(list int16 int16 uint32 uint32))))
-(define (wm-set-keybind mod keysym handler)
- )