(use-modules (srfi srfi-9) (wm)) (define-record-type (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-quit))