22 lines
606 B
Scheme
22 lines
606 B
Scheme
(define (start)
|
|
(apply orion-wm (command-line)))
|
|
|
|
(define (orion-wm . args)
|
|
(let ((dpy (open-display)))
|
|
(synchronize dpy #t)
|
|
(init-sync-x-events dpy)
|
|
;; for debugging:
|
|
(spawn (lambda ()
|
|
(let loop ((se (most-recent-sync-x-event)))
|
|
(let ((e (sync-x-event-event se)))
|
|
(if (not (eq? e 'no-event))
|
|
(display-event e))
|
|
(loop (next-sync-x-event se (lambda (e) #t)))))))
|
|
|
|
(let ((root-manager (create-root-wm dpy)))
|
|
(display "Orion-wm finished\n"))))
|
|
|
|
(define (display-event e)
|
|
;;(mdisplay "event: " (any-event-type e) " " (any-event-window e) "\n"))
|
|
#t)
|