Emacsでファイルを保存すると、適当なシェルスクリプトが動いてからSafariをリロードする

ll_koba_llさんという方のコレを参考にして、、、見ればわかると思いますが、拡張子は css、js、xml にしてあります。

(defun reload-safari()
  (if (string-match "\.\\(css\\|js\\|xml\\)$" (buffer-file-name))
      (progn
	(shell-command-to-string "zsh -c '/path/to/your_shellscript.sh'")
	(do-applescript "tell application \"Safari\"
                           do JavaScript \"location.reload(true);\" in document 1
                       end tell"))))
(add-hook 'after-save-hook 'reload-safari)

便利すぎて失禁しそう、、、コレ使ってコーディングする時は尿漏れパッド必須。