From: Doug Bagley <doug@deja.com>
Cc: Gnus Mailing List <ding@gnus.org>
Subject: Re: dict.el
Date: 02 Jul 1999 15:34:50 -0500 [thread overview]
Message-ID: <yg9r9mq6b9x.fsf@acme.dejanews.com> (raw)
In-Reply-To: "Edward J. Sabol"'s message of "Fri, 2 Jul 1999 12:11:18 -0400 (EDT)"
"Edward J. Sabol" <sabol@alderaan.gsfc.nasa.gov> writes:
> Ditto. I like the definitions at www.m-w.com a lot more than the
> definitions at dict.org or in the 1913 Webster's. Anyone have an
> Emacs interface/front-end for www.m-w.com?
I have something like the following in my .emacs. I grab the
definition from m-w, and do a little cleanup. Works, for me, caveat
emptor. I'd gladly accept any constructive comments:
;; (derived from webster-www.el)
;; bind to CTRL-Z CTRL-W
;; (define-key global-map "\C-z\C-w" 'kof:webster-define-current-word)
(require 'url)
(require 'w3-forms)
(defvar kof:webster-url "http://www.m-w.com/cgi-bin/mweb?book=Dictionary&va="
"URL to reference for Webster's dictionary.")
(defun kof:webster-define-current-word ()
"Look up a word at point in the Webster's dictionary at http://www.m-w.com"
(interactive)
(kof:webster-define-word (current-word)))
(defun kof:webster-define-word (arg)
"Look up a word in the Webster's dictionary at http://www.m-w.com"
(interactive (list
(let ((prompt (concat "Look up word in webster ("
(current-word) "): ")))
(read-string prompt))))
(if (equal "" arg) (setq arg (current-word)))
(let ((kof:w3-load-images nil)
(url (concat kof:webster-url (w3-form-encode-xwfu arg))))
(w3-fetch url))
(re-search-forward "\\[Thesaurus\\]\\|Main Entry: ")
(beginning-of-line)
(narrow-to-region (point) (point-max)))
Cheers,
Doug
next prev parent reply other threads:[~1999-07-02 20:34 UTC|newest]
Thread overview: 19+ messages / expand[flat|nested] mbox.gz Atom feed top
1999-07-01 10:55 dict.el Lars Magne Ingebrigtsen
1999-07-01 11:00 ` dict.el Lars Magne Ingebrigtsen
1999-07-01 17:49 ` dict.el Aaron M. Ucko
1999-07-01 21:50 ` dict.el Lars Magne Ingebrigtsen
1999-07-01 12:07 ` dict.el Tibor Simko
1999-07-01 13:32 ` dict.el luis fernandes
1999-07-01 15:51 ` dict.el Edward J. Sabol
1999-07-01 16:05 ` dict.el Eric Marsden
1999-07-01 19:15 ` dict.el Alexander Vorobiev
1999-07-01 21:42 ` dict.el Lars Magne Ingebrigtsen
1999-07-02 16:06 ` dict.el Hrvoje Niksic
1999-07-02 16:11 ` dict.el Edward J. Sabol
1999-07-02 20:34 ` Doug Bagley [this message]
1999-07-02 16:19 ` dict.el Paul Stevenson
1999-07-02 16:27 ` dict.el Hrvoje Niksic
1999-07-02 16:39 ` dict.el Laura Conrad
1999-07-01 12:17 ` dict.el Mats Lvfdahl
1999-07-01 21:42 ` dict.el Lars Magne Ingebrigtsen
1999-07-02 13:36 ` dict.el Robert Bihlmeyer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=yg9r9mq6b9x.fsf@acme.dejanews.com \
--to=doug@deja.com \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).