[xyzzy:06380] Re: 他のアプリを前面に

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

Hiroki Nakano <hiroki@xxxxx> さん、こんにちは。Seiya です。

        Tue, 13 Mar 2001 09:23:50 +0900 の
        [xyzzy:06336] 他のアプリを前面に
        への返事です。


といっても全然お返事になってないし、無関係なのですが、
WordWeb というシソーラスがあって、そいつに xyzzy から
出てきてもらいたいと思って、何か忘れてしまいましたが、
参考にさせていただいて、ぱくって作ったのがあって、
それをついでだからご紹介しようと思って、それで
今回メールしました。

----これです----

(c:define-dll-entry winapi:INT ShowModalWordWeb ((c:char *) (c:char *) c:int c:int) "wweb32")

(global-set-key #\M-C-w 'lookup-wordweb)

(defun lookup-wordweb ()
  (interactive)
  (let ((word (get-current-word-or-selection))
	(out ""))
    (ShowModalWordWeb (si:make-string-chunk word) (si:make-string-chunk out) 1 0)))

これはどこからもってきてきたのかなぁ。動くからいいんですが。

get-current-word-or-selection は次です。

(defun get-current-word-or-selection ()
  (interactive)
  (let (word)
    (if (pre-selection-p)
	(let ((start (selection-point))
	      (end (selection-mark)))
	  (setq word (buffer-substring start end)))
      (setq word
	    (buffer-substring
	     (progn (goto-word-head) (point))
	     (progn (forward-word) (point)))))
    word))

goto-word-head というけったいなのは次です。

(defun goto-word-head ()
  (cond ((looking-at " ")
	 (backward-word 1))
	((looking-at "\\<"))
	(t
	 (backward-word 1))))

いいかげんですが。動作もどうなるか覚えてません。


WordWeb は　Yahoo! かなにかで検索してください。

ロングマンはこういうように dll を利用できるようにはなって
ないのでしょうか。


--------
須田誠也(suda seiya)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/