emacsを使ってみる（その３）

MobileMemoさんのemacsで辞書を使おう(Lookup)を参考にして辞書引きができるようにしてみました。

これスゴイですねー、かなり使えそうです。

設定

自分の場合、SL-C3000の標準の辞書は削除してしまってZtenvを使用しているのでそれに合わせて変更

• Private Linux Zaurus Packages for Emacsenからlookupを入手
• eDict Snapshot for Zaurusからebとeblookを入手
• MobileMemoさんのところの~/.emacsへの追加と~/.lookupを作成。辞書データは~/Documennts/dict以下にあるので.lookupの該当部分を修正

EB関連のライブラリ？はZtenvのものを使用しても問題なく動作しました。自分の環境ではMobileMemoさんのところで書かれているエラーは表示されませんでした（何故？）

使用方法の基本

• 調べたい語句の先頭でC-space、検索したい文字の次の文字にカーソルを置いてC-x y
• qで閉じる
• 上下矢印で検索項目の移動、Enterで検索語説明表示
• spaceで検索語の説明一画面分スクロールアップ
• DELで検索語の説明一画面分スクロールダウン

~/.emacs（MobileMemoさんとこの記述そのままです）

;;;;; ---------- lookup ----------
;;;;; lookup 1.4
(cond
 ((locate-library "lookup")
  (autoload 'lookup "lookup" nil t)
  (autoload 'lookup-region "lookup" nil t)
  (autoload 'lookup-pattern "lookup" nil t)
  (define-key ctl-x-map "l" 'lookup)
  (define-key ctl-x-map "y" 'lookup-region)
  (define-key ctl-x-map "\C-y" 'lookup-pattern)
  ;; 設定ファイルの指定。
  (setq lookup-init-file "~/.lookup")))

~/.lookup（辞書ファイルのパスを書き換え）

(setq lookup-default-method 'prefix)
(setq lookup-max-hits 0)
(setq lookup-max-text 0)
(setq lookup-enable-gaiji nil) ; X/QtでEmacsを使っている場合はtで外字が表示できる
(setq lookup-search-agents
 '((ndeb "/home/zaurus/Documents/dict/kojien")
   (ndeb "/home/zaurus/Documents/dict/readers")
   (ndeb "/home/zaurus/Documents/dict/genius")
   (ndeb "/home/zaurus/Documents/dict/britannica")
   (ndeb "/home/zaurus/Documents/dict/net")
  ))