From 2a6802cba40a701b9c4f92b7ea8734e73e066575 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuel@nihil.ws>
Date: Thu, 22 Dec 2022 14:33:56 +0100
Subject: General bug fixes and improvements.

---
 wm.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'wm.scm')

diff --git a/wm.scm b/wm.scm
index 40b5d1d..5b4a313 100644
--- a/wm.scm
+++ b/wm.scm
@@ -38,7 +38,7 @@
 ;; Configuration record
 (define-record-type <wm-config>
   (make-config
-   inner-border-width
+   border-width
    outer-border-width
    magnet-border-width
    offset-x
@@ -51,9 +51,9 @@
    empty-color
    outer-color)
   wm-config?
-  (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!)
+  (border-width        config-border-width        set-config-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!)
@@ -113,7 +113,7 @@
                      uint32)))
 
 (define (wm-reconfigure config)
-  (c/wm-reconfigure (config-inner-border-width config)
+  (c/wm-reconfigure (config-border-width config)
                     (config-outer-border-width config)
                     (config-magnet-border-width config)
                     (config-offset-x config)
@@ -244,4 +244,4 @@
 
 (define (wm-exec-cmd . args)
   (when (eq? (primitive-fork) 0)
-    (apply execlp (cons (car args) args))))
+    (apply execlp (car args) args)))
-- 
cgit v1.2.3