概要(やりたいこと)
Vim からローカルの辞書ファイルで和英・英和翻訳をしたいので簡単な関数を書いてみたという話です。
だいたいこういうことがしたかったです。
- Vim でプログラミング時に変数名考えるときに「和英」翻訳したい
- 逆に英単語を「英和」翻訳したい
- ブラウザ立ち上げて翻訳サイト行くのはめんどい
- ネットワーク通信せずローカルのファイルで一瞬で翻訳してほしい
実現イメージ
英和
和英
代替方法
Vim で翻訳するには以下のような素晴らしいプラグインがすでにあります。用途が合えばこれらのほうが断然洗練されています。
- kaoriya さんの dicwin.vimのほうが使いやすいが「和英」翻訳は対応していない
- kaoriya さんの codic-vimなら和英英和両方できるし使いやすいが、codicは対応していない単語がまだ多い
- mattn さんの excitetranslate-vimなら和英英和両方できるが、Exciteでの翻訳なのでちょっと待たされる
必要環境
- GNU grep 2.21 (-A, --after-context オプションが使える必要がある)
- GENE 辞書
確認環境
- Linux Fedora 21
- VIM - Vi IMproved 7.4 (2013 Aug 10, compiled Oct 13 2014 08:58:48) Included patches: 1-207, 209-475
基本編
1. GENE 辞書取得
GENE辞書が前提となります。取得方法については dicwin.vimでvimエディタに英和辞書を組み込む。 — 名無しのvim使いがわかりやすいです。
2. Function 定義
以下を.vimrcファイルに記載します。
function!s:DictionaryTranslate(word)letl:gene_path ='~/.vim/dict/gene.txt'letl:output_option =a:word =~? '^[a-z_]\+$' ? '-A 1' : '-B 1'" 和英 or 英和silentpedit Translate\ Result
wincmdP
%delete " 前の結果が残っていることがあるためsetlocalbuftype=nofile noswapfilemodifiablesilent execute 'read !grep -ihw'l:output_option a:word l:gene_path
silentwincmdpendfunction
command!-nargs=1-complete=command DictionaryTranslate call<SID>DictionaryTranslate(<f-args>)以上です。「:DictionaryTranslate hogehoge」もしくは「:DictionaryTranslate ほげほげ」を実行すると翻訳結果がプレビューウィンドウに表示されます。
引数で指定した単語を含む候補が表示されます。
GENE辞書のフォーマットは以下のように、英語と対応する日本語が1行ごとに記載されているので、grep の-A, --after-context」「-B, --before-context」オプションを利用し表示しています。
slack time
余分な時間
slacken
ゆるむ,減じる,をゆるめる,を減ずる,不活発になる,弱まる
・・・
応用編
ちょっと簡単すぎるので以下の機能を追加してみます。
- カーソル位置の単語を翻訳する
- コマンド履歴に実行履歴を残す
- 検索するときに完全一致する単語を優先的に表示する
function!s:DictionaryTranslate(...)letl:word =a:0==0 ? expand('<cword>') : a:1call histadd('cmd','DictionaryTranslate ' . l:word)ifl:word ==# ''|return|endifletl:gene_path ='~/.vim/dict/gene.txt'letl:jpn_to_eng =l:word !~? '^[a-z_]\+$'letl:output_option =l:jpn_to_eng ? '-B 1' : '-A 1'" 和英 or 英和silentpedit Translate\ Result |wincmdP| %delete " 前の結果が残っていることがあるためsetlocalbuftype=nofile noswapfilemodifiablesilent execute 'read !grep -ihw'l:output_option l:word l:gene_path
silent0delete
letl:esc = @z
let @z =''while search("^" . l:word . "$","Wc")>0" 完全一致したものを上部に移動silent execute line('.')-l:jpn_to_eng . "delete Z 2"endwhilesilent0put z
let @z =l:esc
silentcall append(line('.'),'==')silent1delete
silentwincmdpendfunction
command!-nargs=? -complete=command DictionaryTranslate call<SID>DictionaryTranslate(<f-args>)死ぬほど汚くなりました。。一応以下簡単に解説します。。
カーソル位置の単語を翻訳する
function!s:DictionaryTranslate(...)letl:word =a:0==0 ? expand('<cword>') : a:1・・・
endfunction
command!-nargs=? -complete=command DictionaryTranslate call<SID>DictionaryTranslate(<f-args>)まず、可変長引数を受け取るようにし、もし与えられなかった場合カーソル位置の単語を取得するようにしています。
コマンド履歴に実行履歴を残す
call histadd('cmd','DictionaryTranslate ' . l:word)Vim の動きとして「完全にマッピングから実行されたコマンドは履歴に残らない(:help history)」のですが、
このコマンドにおいては単語を修正して再実行したいことがあるので、自前でコマンド履歴に追加をしています。
検索するときに完全一致する単語を優先的に表示する
翻訳対象の語は複数に一致することがあるのですが、完全一致したものを優先したいので、先頭に移動しています。
もっと綺麗に書けるはずなので解説はなしです。
さいごに
良いVim lifeを！