EmacsカレントファイルをATOMエディタで開いてリアルタイムプレビュー

ATOMエディタのmarkdown等のリアルタイムプレビュー機能はとても便利。ただ，基本EmacsにこもっているのでEmacsからATOMを立ち上げてさくっとリアルタイムプレビューの恩恵を得たい。

ATOMエディタはインストールされており，atomコマンドのパスが通っていること。

以下のelispを読み込ませて，

(defun open-atom ()
  (interactive)
  (call-process
   "atom" nil nil nil buffer-file-name))

対象バッファにいるときに，

M-x open-atom

でATOMが立ち上がり，この後に，ATOMで

control + shift + M

でプレビュー開始。