[xyzzy:00426] Re: edict について

["Seiya Suda" <EZU11330@xxxxxxxxxxxxxxxx>]

亀井 さん、こんにちは。

   -----Original Message-----
  差出人 : kamei@xxxxxxxxxxxx <kamei@xxxxxxxxxxxx>
  日時 : 1998年9月16日 13:01
  件名 : [xyzzy:00425] Re: edict について
への返事です。


すぐやれという翻訳の仕事が入ってお昼寝タイムがなくなって
しまいましたが、やり直したら、10分くらいでできてしまいまして、
すべてうまくいくようになりました(^^)。

ついでといってはなんですが、以下の追加について、へただとか
もっと美しくできるとかのコメントをいただければありがたいのですが。

----------------------------------------------------
(export '(lookup-e2j-dictionary-selection-and-insert
            lookup-e2j-dictionary-insert
            edict-lookup-dictionary-and-insert))

;;; 追加
(defun lookup-e2j-dictionary-selection-and-insert ()
  (interactive)
  (edict-lookup-selection #'lookup-e2j-dictionary-insert))

;;;; 追加
(defun lookup-e2j-dictionary-insert (from to)
  (interactive "r")
  (edict-lookup-dictionary-and-insert from to "xyzzye2j" nil))

;;; 追加
(defun edict-lookup-dictionary-and-insert (from to dic dic2)
  (let* ((s (buffer-substring from to))
  (r (lookup-dictionary *edict-dictionary-path* "xyzzydic" dic s)))
    (unless r
      (plain-error "登録されていません: ~A" s))
    (save-excursion
      (with-output-to-temp-buffer ("*dictionary*" nil) ;; t 分割
       (long-operation
  (format t "~A " s)
  (if dic2
      (dolist (x (sort r #'string<))
        (format t "~A~%" x)
        (format t " ~{~A~^,~}~%~%"
         (lookup-dictionary *edict-dictionary-path* "xyzzydic" dic2 x)))
    (format t "  ~{~A~^,~}~%" r))
  (set-buffer "*dictionary*")
  (kill-region (point-min) (point-max))))))
  (kill-buffer "*dictionary*")
  (yank)
  t)

(global-set-key '(#\C-c #\d) 'lookup-e2j-dictionary-selection-and-insert)

--------
須田誠也   suda seiya
EZU11330@xxxxxxxxxxx