34 lines
741 B
Plaintext
34 lines
741 B
Plaintext
;; fast decorations (minimal)
|
|
;; invoke with gwm -f fast
|
|
;; ejb@era.com (Jay Berkenbilt)
|
|
|
|
(setq grabs (list (button any with-alt)))
|
|
(setq opening '(progn))
|
|
(setq closing '(progn))
|
|
(setq borderwidth 0)
|
|
(setq fsm
|
|
(fsm-make
|
|
(state-make
|
|
(on (buttonpress 1 with-alt)
|
|
(lower-window))
|
|
(on (buttonpress 2 with-alt)
|
|
(move-window))
|
|
(on (buttonpress 3 with-alt)
|
|
(raise-window)))))
|
|
|
|
(setq root-fsm
|
|
(fsm-make
|
|
(state-make
|
|
(on (buttonrelease 1 with-alt)
|
|
(end)))))
|
|
|
|
(defun describe-window ()
|
|
(list
|
|
(window-make () () () () ())
|
|
(window-make () () () () (plug-make (label-make window-icon-name)))
|
|
))
|
|
|
|
(defun describe-screen ()
|
|
(with (opening '(bell) fsm root-fsm)
|
|
(window-make () () () () ())))
|