Emacsから辞書.appを簡単に使う

最近，国際会議に投稿するための英語論文を書いています．
(もちろんorg-modeで書いてLaTeXにエクスポート．)

OS Xには「辞書(Dictionary.app)」が標準搭載されています．
そこで，Emacsから辞書の検索を試してみました．

カーソル位置の単語を検索

「EmacsからDictionary.appを起動する方法 - Crossroad (tunefsの日記)」を参考にしました．

OS Xではdict://というスキーマで辞書を起動できるらしい．
ここでは，記事の設定内容をそのまま流用しました．

(global-set-key (kbd "C-c w o")
 (lambda () (interactive)
   (let ((url (concat "dict://" (read-from-minibuffer "" (current-word)))))
     (browse-url url))))

単語を入力して検索

任意の単語を入力して検索する関数も作ってみました．
上の関数を参考に，ミニバッファで単語を入力するようにしただけですが…．
これを使うと，和英辞書だけでなく，Wikipediaも検索できて便利です．

(global-set-key (kbd "C-c w s")
 (lambda (key) (interactive "MSearch: ")
   (let ((url (concat "dict://" key)))
     (browse-url url))))