diff options
Diffstat (limited to 'main.scm')
| -rw-r--r-- | main.scm | 31 |
1 files changed, 27 insertions, 4 deletions
@@ -2,13 +2,36 @@ (wm)) (define-record-type <wm-config> - (make-config border-width outer-border-width) + (make-config + inner-border-width + outer-border-width + manger-border-width + offset-x + offset-y + offset-width + offset-height) wm-config? - (border-width config-border-width set-config-border-width!) - (outer-border-width config-outer-border-width set-config-outer-border-width!)) + (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!) + (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!) + (offset-height config-offset-height set-config-offset-height!)) (define config - (make-config 2 0)) + (make-config + 2 ; inner-border-width + 0 ; outer-border-width + 16 ; magnet-border-width + 0 ; offset-x + 0 ; offset-y + 0 ; offset-width + 0 ; offset-height + )) + +(define keys + '(((make-key-chord (key-from-str "q")) . wm-quit))) (when (wm-init) (wm-set-key-press-handler! |