1 files changed, 5 insertions, 0 deletions
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))))