xah-lookup　20170804.2259(in MELPA)
look up word on internet.

概要

Emacsを日常的に使っていると調べ物もEmacsでやりたくなります。

google-this.el(レビュー) はGoogleに特化していますが、
この xah-lookup.el は他の多くの辞書サイトにも対応しています。

基本的にカーソル位置の単語(実はシンボル)かregionに作用します。

たとえば
M-x xah-lookup-google はGoogle検索に、
M-x xah-lookup-wikipedia はWikipediaで開きます。

他にも多くの オンライン辞書 サイト用のコマンドが定義されています。

M-x xah-lookup-google (<f1> 7)
Google
M-x xah-lookup-wikipedia (<f1> 8)
Wikipedia(en)
M-x xah-lookup-word-definition (<f1> 9)
thefreedictionary.com
M-x xah-lookup-word-dict-org
dict.org
M-x xah-lookup-answers.com
answers.com
M-x xah-lookup-wiktionary
en.wiktionary.org

コードに一貫性があるため、新しい辞書サイトに
特化したコマンドを定義するのは易しいです。

とっておきのコマンドが M-x xah-lookup-all-dictionaries であり、
ベクタ xah-lookup-dictionary-list で指定された辞書サイトを
すべて開きます。

インストール

パッケージシステムを初めて使う人は
以下の設定を ~/.emacs.d/init.el の
先頭に加えてください。

(package-initialize)
(setq package-archives
      '(("gnu" . "http://elpa.gnu.org/packages/")
        ("melpa" . "http://melpa.org/packages/")
        ("org" . "http://orgmode.org/elpa/")))

初めてxah-lookupを使う方は
以下のコマンドを実行します。

M-x package-install xah-lookup

アップグレードする方は、
以下のコマンドでアップグレードしてください。
そのためにはpackage-utilsパッケージが必要です。

M-x package-install package-utils (初めてアップグレードする場合のみ)
M-x package-utils-upgrade-by-name xah-lookup

辞書サイト登録方法

特定のサイトで辞書検索をする関数を作るには、
xah-lookup-word-on-internet を呼び出すだけです。

たとえば Weblio(EWWで開く設定あり) ならば、こうします。

xah-lookup-googleの関数定義からURLとdocstringを変更しただけです。

クエリは「�」というUnicode文字です。

(defun xah-lookup-weblio (&optional φword)
  "Lookup definition of current word or text selection in URL `http://www.weblio.jp/'"
  (interactive)
  (xah-lookup-word-on-internet
   φword
   "http://www.weblio.jp/content/�"))

Googleはそのままでも日本語化されますが、
Wikipediaを日本語化したいならば、
xah-lookup-wikipediaの関数定義でen→jaの変更をします。

(defun xah-lookup-wikipedia (&optional φword)
  "Lookup current word or text selection in Wikipedia."
  (interactive)
  (xah-lookup-word-on-internet
   φword
   "http://ja.wikipedia.org/wiki/�") )

串刺し検索で使う辞書サイトの設定

M-x xah-lookup-all-dictionaries で使う辞書サイトは
デフォルトでは以下の設定になっています。

適宜変更してください。

(setq
 xah-lookup-dictionary-list
 [
  "http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=�" ; 1913 Webster, WordNet
  "http://www.thefreedictionary.com/�"                         ; AHD
  "http://www.answers.com/main/ntquery?s=�"                    ; AHD
  "http://en.wiktionary.org/wiki/�"
  "http://www.google.com/search?q=define:+�"   ; google
  "http://www.etymonline.com/index.php?search=�" ; etymology
  ] )

作者によるオンライン辞書リスト が詳しいです。

EWWで開いてほしい

やっぱりEmacs 24.4以降を使っているならば、
辞書検索くらいEWWで開いてほしいものです。

ならばぜひともこの設定を加えてください。

(setq xah-lookup-browser-function 'eww)

本サイト内の関連パッケージ


本日もお読みいただき、ありがとうございました。参考になれば嬉しいです。