Emacs からバックグラウンドの Google Chrome を Applescript でスクロールさせるメモ（MacOS only）

(Emacs24.3, MacOSX10.8)

前に書いたリロードさせるやつの続き

Emacs から Google Chrome を Applescript でリロードするメモ（MacOS only） - 牌語備忘録 - pygo

リロードさせた後にスクロールしないと見えなかったりするから

Applescript

page-down-chrome.scpt

tell application "Google Chrome" to tell active tab of window 1
	execute javascript "window.scrollBy(0,window.innerHeight)"
end tell

page-up-chrome.scpt

tell application "Google Chrome" to tell active tab of window 1
	execute javascript "window.scrollBy(0,-window.innerHeight)"
end tell

Emacs lisp

init.el

  (defun page-down-chrome ()
    (interactive)
    (shell-command "osascript ~/.emacs.d/site-macosx/page-down-chrome.scpt")
    (message "page-down-chrome")
    )
  (global-set-key (kbd "<C-s-down>") 'page-down-chrome)

  (defun page-up-chrome ()
    (interactive)
    (shell-command "osascript ~/.emacs.d/site-macosx/page-up-chrome.scpt")
    (message "page-up-chrome")
    )
  (global-set-key (kbd "<C-s-up>") 'page-up-chrome)