1 ;;; oxford.el --- supplement package for "Oxford Dictionary/Thesaurus"
2 ;; Copyright (C) 1999 Lookup Development Team <lookup@ring.gr.jp>
4 ;; Author: Keisuke Nishida <kei@psn.net>
5 ;; Target: ndtp 1.0, ndeb 1.0
9 ;; This program is free software; you can redistribute it and/or
10 ;; modify it under the terms of the GNU General Public License
11 ;; as published by the Free Software Foundation; either version 2
12 ;; of the License, or (at your option) any later version.
14 ;; This program is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with this program; if not, write to the Free Software Foundation,
21 ;; Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 (require 'lookup-package)
27 (defvar oxford-dictionary-arranges
28 '(oxford-arrange-structure
29 lookup-arrange-references
31 lookup-arrange-default-headings
32 lookup-arrange-fill-lines))
34 (defvar oxford-dictionary-options
35 (list (cons ':title "Oxford Dictionary")
36 (cons ':stemmer 'stem-english)
37 (cons ':arranges oxford-dictionary-arranges)))
39 (defun oxford-arrange-structure (entry)
40 (while (re-search-forward "\\( \\([nv]\\|adj\\)\\.\\)\\|\\[[0-9]\\]" nil t)
42 (goto-char (match-beginning 0))
49 (setq lookup-package-agent-options
50 '((:title . "Oxford Dictionary/Thesaurus")
51 (:enable . ("OXFORD"))
52 (:coding . iso-8859-1)
53 (:stop-code . "0x1f090000")))
55 (setq lookup-package-dictionary-options-alist
56 (list (cons (cond ((eq lookup-package-agent 'ndtp) "OXFORD/OXFORD")
57 ((eq lookup-package-agent 'ndeb) "OXFORD"))
58 oxford-dictionary-options)))
60 ;;; oxford.el ends here