#!/bin/sh

case $0 in
  /*) LOCATION=`dirname $0` ;;
  *)  LOCATION="$PWD"/`dirname $0` ;;
esac

sawfish-client -- >/dev/null <<ENDOFSAWFISHCONFIG

(defun gromit-toggle-grab ()
   (interactive)
   (ungrab-pointer)
   (ungrab-keyboard)
   (sync-server)
   (system "cd \"$LOCATION\" ; ./gromit --toggle &")
)

(defun gromit-clear-screen ()
   (interactive)
   (ungrab-pointer)
   (ungrab-keyboard)
   (sync-server)
   (system "cd \"$LOCATION\" ; ./gromit --clear &")
)

(defun gromit-toggle-visibility ()
   (interactive)
   (ungrab-pointer)
   (ungrab-keyboard)
   (sync-server)
   (system "cd \"$LOCATION\" ; ./gromit --visibility &")
)

(bind-keys global-keymap "Pause" 'gromit-toggle-grab)
(bind-keys global-keymap "C-Pause" 'gromit-toggle-visibility)
(bind-keys global-keymap "Break" 'gromit-clear-screen)

ENDOFSAWFISHCONFIG
