From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/23671 Path: main.gmane.org!not-for-mail From: Doug Bagley Newsgroups: gmane.emacs.gnus.general Subject: Re: dict.el Date: 02 Jul 1999 15:34:50 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: <199907021611.MAA23508@alderaan.gsfc.nasa.gov> NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035161360 3253 80.91.224.250 (21 Oct 2002 00:49:20 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:49:20 +0000 (UTC) Cc: Gnus Mailing List Return-Path: Original-Received: from farabi.math.uh.edu (farabi.math.uh.edu [129.7.128.57]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA11695 for ; Fri, 2 Jul 1999 16:37:34 -0400 (EDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by farabi.math.uh.edu (8.9.1/8.9.1) with ESMTP id PAB10377; Fri, 2 Jul 1999 15:36:20 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 02 Jul 1999 15:36:42 -0500 (CDT) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id PAA00715 for ; Fri, 2 Jul 1999 15:36:29 -0500 (CDT) Original-Received: from mail.deja.com (mail.deja.com [205.238.143.34]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id QAA11603 for ; Fri, 2 Jul 1999 16:35:27 -0400 (EDT) Original-Received: from acme.dejanews.com (acme.dejanews.com [205.238.143.160]) by mail.deja.com (8.8.7/8.8.5) with ESMTP id PAA04798; Fri, 2 Jul 1999 15:34:52 -0500 Original-Received: (doug@localhost) by acme.dejanews.com (8.7.5/8.6.12) id PAA25981; Fri, 2 Jul 1999 15:34:50 -0500 Original-To: "Edward J. Sabol" X-Face: "|NaWfYJ-]P="T#?R.9}QgGuFXUd@3vi[.E2q-;"NV3+k_y@zreL2w^ts0XPXt t9^9{uQ@.cu2GgUgK9@HXC\a}Rtah}0'eT~>or7[~Hd?;!\Bpo#"3w>0a0ft-MvvZ X-Disclaimer: I am solely responsible for this message. In-Reply-To: "Edward J. Sabol"'s message of "Fri, 2 Jul 1999 12:11:18 -0400 (EDT)" Original-Lines: 36 User-Agent: Gnus/5.070088 (Pterodactyl Gnus v0.88) XEmacs/21.1 (20 Minutes to Nikko) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:23671 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:23671 "Edward J. Sabol" 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