(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)