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