[xyzzy:06240] Web で英次郎

["Kazushige.Y" <kazusige@xxxxxxxxxxxxxx>]

逸見さんのwww-modeを使ってカーソル位置(またはリージョン)の単語を英次郎
ontheWebから検索するコードです(英日・日英両用)。辞書ファイルを持っていないの
でそれなりに便利です。使ってやってください。

#たまねぎLisperなのでコードが汚いです。edict.lを参考にしました。

; 英次郎で検索
(global-set-key '(#\C-c #\e) 'eijiro-selection)

; カーソル位置の単語を検索
(defun eijiro-selection ()
  (interactive)
  (ed::edict-lookup-selection #'eijiro))

; リージョンを検索
(load-library "www/www")
(defun eijiro (from to)
  (interactive "r")
  (long-operation ; 砂時計
 (let ((buffer (selected-buffer))
    (string (substitute-string (buffer-substring from to) " " "%20"))
    (type)
    (url))
   (if (both-case-p (char string 0)) (setq type "ej") (setq type "je"))
   (setq url (concat "http://www.alc.co.jp/eijiro351.php3?word_in=" string
"&type_in=" type))
   (www::www-open url)
   ;(rename-buffer "*WWW 検索結果") ; buffer名を短く
   (kill-buffer (concat "*WWW SRC: " url))
   #|; ウィンドウを分割して表示する
   (goto-line 10) (recenter 0) ; 表示の調整
   (poEp-to-buffer buffer (truncate (* (screen-height) 1/2)))|#)
 t))


英次郎によるとlisperは「女っぽい男」の意なんだそうな。まあいいや

    kazu.y