main.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

(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-configure-notify-handler!
   (lambda (x y w h)
     (display (+ x y w h))
     (display "\n")))
  (display config)
  (display "\n")
  (wm-run)
  (wm-quit))