From da3523b11bcb174dac02fbfabfa58ed6b78a8622 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Sat, 3 Dec 2022 15:59:48 +0100
Subject: 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
---
 wm.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'wm.scm')

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)
-  )
-- 
cgit v1.2.3