[debian-users:00695] Using gene.dic on linux

[d958094@xxxxxxxxxxxxxxxxx (Tagami-K)]

 geneというFreeの英和辞書があるのですが、（窓の社に登録
されているやつです。) これを私は適当に変換してlookで
検索できるようにしていますが、昨日muleから直接使えるように
elispを作ってみました。とりあえず動いたので興味ある人は
使ってみてください。
#偉そうに書いてますが、私はelispについてぜんぜん詳しくない
#です。これは、spell.el ispell.elから寄せ集めて作りました。

--------gene.el--------------------------------------------

(defun gene-string (string)
  "Print Japanese meaning of string supplied as argument."
  (interactive "sEnglish word: ")
  (save-excursion
    (set-buffer (get-buffer-create " *GENE*"))
    (erase-buffer)
    (call-process "look" nil t nil string "/usr/dict/gene.dic")
    (display-buffer " *GENE*")))

(defun gene-word ()
  "Print Japanese meaning of word at or before point."
  (interactive)
  (save-excursion
    (if (not (looking-at "\\<"))
	(forward-word -1))
    (setq beg (point))
    (forward-word 1)
    (setq end (point)))
  (gene-string (downcase (buffer-substring beg end))))

(defun gene-word2 ()
  "Print Japanese meaning of word at or before point."
  (interactive)
  (save-excursion
    (setq end (point))
    (if (not (looking-at "\\<"))
	(forward-word -1))
    (setq beg (point))
  (gene-string (downcase (buffer-substring beg end)))))

--------------------------------------------------------------
ついでにシェルスクリプトも

-------------dictionary---------------------------------------
#!/bin/sh
while true;
do
	echo -n "dictionary: ";
	read word;
	if test -z $word; then exit; fi
	look "$word" /usr/dict/gene.dic;
	echo;
done;
--------------------------------------------------------------

debianと全く関係ない話をしてしまいましたが、
実はこれをパッケージ化しようなどという野望を持っていたり
します。
--
========Tagami-K=========
d958094@xxxxxxxxxxxxxxxxx