Unknown Quality

EmacsからFlashのパブリッシュとムービープレビューをできるようにしてみた。環境はMacだけどWinでも出来ると思う。。。

.emacs.elに

(defun publish-flash()
  (interactive)
  (do-applescript
   (format "
tell application \"flash\"
  try
    open alias \"Macintosh HD:Users:hoge:labs:jsfl:publish.jsfl\"
  on error
    beep
  end try
end tell")))

(defun testmovie-flash()
  (interactive)
  (do-applescript
   (format "
tell application \"flash\"
  activate
  try
    open alias \"Macintosh HD:Users:hoge:labs:jsfl:testMovie.jsfl\"
  on error
    beep
  end try
end tell")))
  
(global-set-key [\C-return] 'publish-flash)
(global-set-key [\M-return] 'testmovie-flash)

として、適当な場所に以下の jsflファイルを配置しておきます。

Macintosh HD:Users:hoge:labs:jsfl:publish.jsfl

fl.getDocumentDOM().publish();

Macintosh HD:Users:hoge:labs:jsfl:testMovie.jsfl

fl.getDocumentDOM().testMovie();

これでEmacs上からCmd+Enterでムービープレビュー、Ctrl+Enterでパブリッシュされます。 さらにムービプレビュー時はFlashのウインドウがアクティブになります。

仕組み的には Emacsから AppleScript経由でJSFLを実行してるだけ。この方法を使えばあらゆるJSFLがEmacsから実行できます。

超ニッチな気もするけど便利なのでEmacsでAS書いててかつ Flash持ってる人は使ってください。