route127の日記: AHK+Perlでツールチップ英和辞典
文章中の分からない英単語を辞書引きするブラウザ拡張はありそうだが、今回必要になったのはAcrobatReaderでPDFを読んでる時だった。
ブラウザに切り替えてマウスをキーボードに手を移すのも煩わしいのでカーソル位置にツールチップで訳語が出るようにした。
autohotkeyのスクリプトは以下のような感じ。
①和訳の分からない英単語をマウスで選択する。
②Ctrl+F11を押下する。
③英単語がクリップボードにコピーされ、それを引数にeiwajish.plを実行する。
④eiwajish.plは与えられた引数でWeb辞書にアクセスし、結果をテキスト形式でクリップボードに保存する。
⑤クリップボードの内容をツールチップで1000ミリ秒表示する。
ツールチップの所は使いまわしだな。
^F11::
oldClipboard = %Clipboard%
Clipboard =
Send, ^c
RunWait, C:\hoge\perl\bin\perl c:\fuga\eiwajish.pl %Clipboard% ,,min
ClipWait
{
Tooltip, %Clipboard%, A_CaretX, A_CaretY
Sleep 1000
Tooltip
}
Clipboard = %oldClipboard%
return
当初スクレーパの出力をパイプ経由でクリップボードに送ろうとしたが上手くいかなかった。
RunWait, C:\hoge\perl\bin\perl c:\fuga\eiwajish.pl %Clipboard% | clip ,, min
結局Win32::Clipboardを利用してスクレーパ側でクリップボードに結果を格納するようにした。
RunWait, C:\hoge\perl\bin\perl c:\fuga\eiwajish.pl %Clipboard% ,, min
ツールチップ内での折り返し等課題はあるがひとまず形にはなった。
AHK+Perlでツールチップ英和辞典 More ログイン