Refreshing Safari from Emacs

gistfile1.cl

;;; Refreshing Safari on save, Mac only
;; Don't forget to enable assistive devices access
;; in System Preferences -> Universal Access
(if (featurep 'aquamacs)
    (add-hook 'after-save-hook
              '(lambda ()
                 (when (string-match "\.html$" (buffer-name))
                   (do-applescript (concat "tell application \"Safari\"
	if \"file://" buffer-file-name "\" = URL of document 1 then
	activate
		tell application \"System Events\"
			tell process \"Safari\"
				keystroke \"r\" using {command down}
			end tell
		end tell
	end if
end tell"))))))