Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

executable file 43 lines (33 sloc) 1.858 kb
;;; web-lookup.el --- Various functions for looking things up on the
;;; web.
;; Copyright (C) 2008 Wangdera Corporation
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
;; files (the "Software"), to deal in the Software without
;; restriction, including without limitation the rights to use,
;; copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the
;; Software is furnished to do so, subject to the following
;; conditions:
;; The above copyright notice and this permission notice shall be
;; included in all copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
;; OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
;; OTHER DEALINGS IN THE SOFTWARE.
;; Author: Craig Andera <candera@wangdera.com>
(provide 'web-lookup)
(defun dictionary-lookup-word-at-point ()
"Opens a browser for the word at point on dictionary.com"
(interactive)
(browse-url (format "http://dictionary.reference.com/browse/%s" (word-at-point))))
(defun wikipedia-lookup-word-at-point ()
"Opens a browser for the word at point on wikipedia.org"
(interactive)
(browse-url (format "http://en.wikipedia.org/wiki/%s" (word-at-point))))
(define-key text-mode-map (kbd "C-c d") 'dictionary-lookup-word-at-point)
(define-key text-mode-map (kbd "C-c w") 'wikipedia-lookup-word-at-point)
Jump to Line
Something went wrong with that request. Please try again.