main.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

(use-modules (srfi srfi-9)
             (wm))

(define-record-type <wm-config>
  (make-config
   inner-border-width
   outer-border-width
   magnet-border-width
   offset-x
   offset-y
   offset-width
   offset-height)
  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!)
  (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    ; inner-border-width
   0    ; outer-border-width
   16   ; magnet-border-width
   0    ; offset-x
   0    ; offset-y
   0    ; offset-width
   0    ; offset-height
   ))

(define wm-keybindings
  `((,(make-shift-key "q") . ,wm-quit)
    (,(make-key       "Tab") . ,wm-focus-prev)
    (,(make-shift-key "Tab") . ,wm-focus-next)))

(when (wm-init)
  (wm-grab-keys wm-keybindings)
  (wm-set-key-press-handler!
   (lambda (mod keysym)
     (display (list mod keysym))
     (newline)))
  (wm-run)
  (wm-quit))