From 475f4dc3d514edef85633999809bb028aff01b97 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Wed, 21 Dec 2022 22:37:36 +0100
Subject: Fix border drawing in tile toggling functions & launcher impl.

* init.scm: Launcher impl and helpers
* wm.scm: Launcher with fork & execlp (execvp)
* schewm.c: Fix border by explicitly calling border drawing proc after
            restoring window size
---
 wm.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'wm.scm')

diff --git a/wm.scm b/wm.scm
index d178770..40b5d1d 100644
--- a/wm.scm
+++ b/wm.scm
@@ -11,6 +11,7 @@
             wm-grab-key-with-mod
             wm-grab-key-with-mod-shift
             wm-set-key-press-handler!
+            wm-exec-cmd
             wm-focus-prev
             wm-focus-next
             wm-focus-close
@@ -240,3 +241,7 @@
    (procedure->pointer void
                        handler
                        (list uint16 uint32))))
+
+(define (wm-exec-cmd . args)
+  (when (eq? (primitive-fork) 0)
+    (apply execlp (cons (car args) args))))
-- 
cgit v1.2.3