diff options
Diffstat (limited to 'wm.scm')
| -rw-r--r-- | wm.scm | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -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))) |