Emacsのorg-modeを保存すると自動的にhtmlにexportされブラウザーが更新されるようにする

#+begin_src emacs-lisp
(defun toggle-org-html-export-on-save ()
  (interactive)
  (if (memq 'org-html-export-to-html after-save-hook)
      (progn
        (remove-hook 'after-save-hook 'org-html-export-to-html t)
        (message "Disabled org html export on save for current buffer..."))
    (add-hook 'after-save-hook 'org-html-export-to-html nil t)
    (message "Enabled org html export on save for current buffer...")))
#+end_src

#!/usr/bin/env ruby
# watch.rb by Brett Terpstra, 2011 <http://brettterpstra.com>
# with credit to Carlo Zottmann <https://github.com/carlo/haml-sass-file-watcher>

trap("SIGINT") { exit }

if ARGV.length < 2
   puts "Usage: #{$0} watch_folder keyword"
   puts "Example: #{$0} . mywebproject"
   exit
   end

   dev_extension = 'dev'
   filetypes = ['css','html','htm','php','rb','erb','less','js']
   watch_folder = ARGV[0]
   keyword = ARGV[1]
   puts "Watching #{watch_folder} and subfolders for changes in project files..."

   while true do
         files = []
         filetypes.each {|type|
files += Dir.glob( File.join( watch_folder, "**", "*.#{type}" ) )
                        }
         new_hash = files.collect {|f| [ f, File.stat(f).mtime.to_i ] }
         hash ||= new_hash
         diff_hash = new_hash - hash

         unless diff_hash.empty?
         hash = new_hash

         diff_hash.each do |df|
             puts "Detected change in #{df[0]}, refreshing"
         %x{osascript<<ENDGAME
                tell app "Safari" to activate
                tell app "System Events"
                     keystroke "r" using command down
                end tell
ENDGAME
           }
         end
         end

         sleep 1
         end

$ cd /Data/Hoge
$ watch_safari.rb Hoge hogefuga.html