英辞郎 (was: 『萌える英単語』)
Hiroshi Fujishima
> 何でこんな解説記事を書いたかというと、チャットでこの話題に
> なった時に索いた、アルクの英辞郎のWebサービスが面白かった
> からなのです。
> http://www2.alc.co.jp/ejr/index.php?word_in=%96G%82%A6&word_in2=%82%A0%82%A2%82%A4%82%A6%82%A8&word_in3=aPkPgGCbGkMSMnEJmY
>
> 例えば、「妹」と検索すると、こういう例文が出てきます。
> http://www2.alc.co.jp/ejr/index.php?word_in=%96%85&word_in2=%82%A9%82%AB%82%AD%82%AF%82%B1&word_in3=aPkPgGCbGkMSMnEJmY
>
> fallをキーにすると、こんな感じです。
> http://www2.alc.co.jp/ejr/index.php?word_in=fall&word_in2=%82%A9%82%AB%82%AD%82%AF%82%B1&word_in3=aPkPgGCbGkMSMnEJmY
>
> もしかすると、トップ・ページからでないと見れないかもしれません。
> トップ・ページはここです。 -> http://www.alc.co.jp/
>
> HTMLブラウザーのバージョン・チェックがあって、w3mとかだと
> 見れないのが残念です。これさえなければ、普段から使うのになぁ。
本当ですね。トップ・ページからでも見れませんでした。
ちょっと、くやしかったので、
Message-ID: <bq46rn$ma8$1...@news.sfc.keio.ac.jp>
を参考にして、
(eval-after-load "w3m-search"
'(add-to-list
'w3m-search-engine-alist
'("ejr" "http://www2.alc.co.jp/ejr/index.php?word_in=%s&word_in2=%82%A0%82%A2%82%A4%82%A6%82%A8&word_in3=aPkPgGCbGkMSMnEJmY" shift_jis)))
(defun ejr ()
(interactive)
(let ((w3m-user-agent "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)")
(w3m-search-default-engine "ejr"))
(call-interactively 'w3m-search)))
として、M-x ejr 読めました :)
P.S.
(w3m-url-decode-string "http://www2.alc.co.jp/ejr/index.php?word_in=%96%85&word_in2=%82%A9%82%AB%82%AD%82%AF%82%B1&word_in3=aPkPgGCbGkMSMnEJmY")
"http://www2.alc.co.jp/ejr/index.php?word_in=妹&word_in2=かきくけこ&word_in3=aPkPgGCbGkMSMnEJmY"
`かきくけこ' ってなんだろう…。
--
Hiroshi Fujishima
Hiroshi Fujishima
> (defun ejr ()
> (interactive)
> (let ((w3m-user-agent "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)")
> (w3m-search-default-engine "ejr"))
> (call-interactively 'w3m-search)))
訂正です。
(defun ejr ()
(interactive)
(require 'w3m)
(require 'w3m-search)
(let ((w3m-user-agent "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)")
(w3m-search-default-engine "ejr"))
(call-interactively 'w3m-search)))
こうしておかないと、
let: Symbol's value as variable is void: w3m-search-default-engine
apply: Symbol's value as variable is void: w3m-user-agent
となってしまします。
--
Hiroshi Fujishima
mihi~star
>>>>> OTA Takashi <t00156...@sfc.keio.ac.jp> さんの wrote:
>>>>> in <bq46rn$ma8$1...@news.sfc.keio.ac.jp> より
>
> mihiさんが2003年11月27日(木) 01時34分05秒に、
> fj.booksに投稿した<87he0rt...@artemis.scn-net.ne.jp>の記事から
> > HTMLブラウザーのバージョン・チェックがあって、w3mとかだと
> > 見れないのが残念です。
>
> ~/.w3m/config で，user_agent を IE っぽく書いてみるとどうでしょうか？
> user_agent "Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)"
> とか．
なるほど。
でも、このままだと、Googleに行った時に、Encoding schemeが
UTF-8になってしまいますね。
Mozilla/4.0 (compatible; MSIE 5.0; Windows NT 5.0) とすると、
GoogleでUTF-8にならず英辞郎のチェックも抜けられるようです。
うちのw3mもJavaScriptを解釈するのじゃないので、トップからは
見れませんが。
>>>>> Hiroshi Fujishima <po...@nature.tsukuba.ac.jp> さんの wrote:
>>>>> in <86k75mqa...@edge.first.tsukuba.ac.jp> 及び
>>>>> in <86r7ztg...@edge.first.tsukuba.ac.jp> より
[...]
> として、M-x ejr 読めました :)
読めました。ありがとうございます。
(eval-after-load "w3m-search"
'(add-to-list
'w3m-search-engine-alist
'("wdic" "http://www.wdic.org/?word=%s" iso-2022-jp)))
みたいにして、辞書のリストを足してけるのですね。
ねとわく的に辞書を取ってこれるのって、何か新鮮な感じ。
> (w3m-url-decode-string "http://www2.alc.co.jp/ejr/index.php?word_in=%96%85&word_in2=%82%A9%82%AB%82%AD%82%AF%82%B1&word_in3=aPkPgGCbGkMSMnEJmY")
> "http://www2.alc.co.jp/ejr/index.php?word_in=妹&word_in2=かきくけこ&word_in3=aPkPgGCbGkMSMnEJmY"
>
> `かきくけこ' ってなんだろう…。
トップ・ページから検索してみると、検索する文字列とは関係なく
word_in2の所に`あいうえお'とか`かきくけこ'と入るようです。
http://www2.alc.co.jp/ejr/index.php?word_in=%96%85&word_in3=aPkPgGCbGkMSMnEJmY
は読めて、
http://www2.alc.co.jp/ejr/index.php?word_in=%CB%E5&word_in2=%82%A9%82%AB%82%AD%82%AF%82%B1
は読めない(トップ・ページに行けと言われる)ので、word_in2は
ダミーの変数で、word_in3がセッションを管理しているのかも。
とはいえ、
http://www2.alc.co.jp/ejr/index.php?word_in=%A4%AC%A4%AA%A4%AC%A4%AA&word_in3=humihumi
とかでも読めちゃうので、今の所は厳密にチェックしているわけでは
なさそうです。^^;
それでは。
--
＿∧∧＿＿ mihi~star <mi...@childstar.club.ne.jp>
／~(*^-') ／|＼ あと少し探せば きっと見つかりますよっ♪
|￣∪∪￣|／ ￣
Hiroshi Fujishima
Message-ID: <86k75mqa...@edge.first.tsukuba.ac.jp>
Message-ID: <86r7ztg...@edge.first.tsukuba.ac.jp>
に書いた方法だと<< 前候補や次候補 >>を選択したとき、見れなかったので最
終的に以下のようにしました。
(defadvice w3m-header-arguments (around alc activate)
"URL が \"alc.co.jp\" という正規表現に合致したら、
w3m-user-agent を一時的に変更する"
(if (string-match "alc.co.jp" url)
(let ((w3m-user-agent
"Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)"))
ad-do-it)
ad-do-it))
(eval-after-load "w3m-search"
'(add-to-list
'w3m-search-engine-alist
'("ejr" "http://www2.alc.co.jp/ejr/index.php?word_in=%s&word_in2=%82%A0%82%A2%82%A4%82%A6%82%A8&word_in3=aPkPgGCbGkMSMnEJmY" shift_jis)))
(defun ejr ()
"C-u M-x w3m-search ejr とするのはめんどいので"
(interactive)
(require 'w3m-search)
(let ((w3m-search-default-engine "ejr"))
(call-interactively 'w3m-search)))
--
Hiroshi Fujishima