« キーボード・ショートカット | Main | ぐっとくる... »

2008年7月16日

Dictionary.app

[ カテゴリ： Emacsen / MacOSX ]

最近、LeopardのDictionary.appではWikipediaの検索もできると云うことを知りました。ほんとうはWikibooksも索けるとうれしいんですけど、Wikipediaだけでもまあまあ便利。

で、まあだからというわけでもないんですが、Emacsから手軽にDictionary.app使えるとうれしいなー、なんて。 

(defvar open-dictionary-history nil)
(defun open-dictionary (&optional word)
  (interactive)
  (let ((word (or word (read-string "Open Dictionary.app for: "
				    (cons (thing-at-point 'word) 0)
				    'open-dictionary-history))))
    (start-process "dictionary.app" nil "open"
		   (format "dict:///%s" (encode-coding-string word 'utf-8)))))

(global-set-key "\M-l" 'open-dictionary)

あーWikibooks索きたい。

Posted at 02:25

Comments

Post a comment




Remember Me?