blob: e0647ab55953a33567f889b7dc89d0d43828a714 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(use-modules (srfi srfi-9)
(wm))
(define-record-type <wm-config>
(make-config border-width outer-border-width)
wm-config?
(border-width config-border-width set-config-border-width!)
(outer-border-width config-outer-border-width set-config-outer-border-width!))
(define config
(make-config 2 0))
(when (wm-init)
(wm-set-key-press-handler!
(lambda (mod keysym)
(display (list mod keysym))
(display "\n")))
(display config)
(display "\n")
(wm-run)
(wm-quit))
|
