17 lines
509 B
Scheme
17 lines
509 B
Scheme
(define-module (gri3 hooks)
|
|
#:use-module (gri3 wm)
|
|
#:export (enter-notify-hook click-hook))
|
|
|
|
(define (enter-notify-hook params)
|
|
"Function called each time the mouse focus changes window.
|
|
Param is a list with: the name of the window.
|
|
Return #f to prevent changing focus."
|
|
(not (string=? (car params) "no-focus")))
|
|
|
|
(define (click-hook params)
|
|
;; (format #t "Clicked ~A" (car params))
|
|
;; (let ((root-x root-y event-x event-y state same-screen)))
|
|
|
|
;; (not (string=? (car params) "no-focus"))
|
|
#t)
|