牌語備忘録 -pygo

あくまでもメモです。なるべくオフィシャルの情報を参照してください。

牌語備忘録 -pygo

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

(Emacs24.3, MacOSX10.8)

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

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

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)

こんな感じ