2015年3月24日火曜日

Emacsから辞書検索

 MacBook Airを買って感心したのは辞書(スーパー大辞林/ウィズダム英和辞典/ウィズダム和英辞典)がデフォルトではいっていることだった。どうせネットで検索するからと今までは思っていたのだけれど、やはりローカルにあると気分がいい。
 でもいちいち辞書を起動するのは面倒だな。
 Emacsから検索できるようにだれか、つくっていないかなぁ、とググったりしたのだが、あまり情報がない。簡単すぎてだれもパッケージ化していないのかもしれない。
 Googleサーチ呼び出しと同じ手で関数を作成した。

(defun y-dict (string)
  "dict呼び出し"
  (interactive "s")
  (do-applescript
   (concat
    "open location \"dict:///"
    (url-hexify-string string)
    "\"")))