1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185

;-*- coding: utf-8 -*-
;; lookup-word-on-internet.el -- helpful commands for looking up the internet

;; Copyright © 2011 by Xah Lee

;; Author: Xah Lee ( http://xahlee.org/ )

;; You can redistribute this program and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either GPL version 2 or 3.

;;; DESCRIPTION

;; this package provides convenient commands for looking up the web.
;; The exposed functions are:

;; lookup-word-on-internet
;; lookup-google
;; lookup-wikipedia
;; lookup-word-dict-org
;; lookup-word-definition
;; lookup-answers.com
;; lookup-wiktionary
;; lookup-php-ref

;;; REQUIREMENT

;; You need to have 2 elisp util 〔xeu_elisp_util.el〕 and 〔xfrp_find_replace_pairs.el〕, available at
;; http://code.google.com/p/ergoemacs/source/browse/trunk/packages/xeu_elisp_util.el
;; http://code.google.com/p/ergoemacs/source/browse/trunk/packages/xfrp_find_replace_pairs.el

;; here's linux shell command to download them:
;; wget http://ergoemacs.googlecode.com/svn/trunk/packages/xeu_elisp_util.el
;; wget http://ergoemacs.googlecode.com/svn/trunk/packages/xfrp_find_replace_pairs.el

;;; INSTALL

;; To install, place this file 〔lookup-word-on-internet.el〕 in the directory 〔~/.emacs.d/〕.

;; also place the files 〔xeu_elisp_util.el〕 and 〔xfrp_find_replace_pairs.el〕 in 〔~/.emacs.d/〕, if you haven't done already.

;; Then, place the following code in your emacs init file

;; (autoload 'lookup-google "lookup-word-on-internet" "Lookup in browser" t)
;; (autoload 'lookup-wikipedia "lookup-word-on-internet" "Lookup in browser" t)
;; (autoload 'lookup-word-dict-org "lookup-word-on-internet" "Lookup in browser" t)
;; (autoload 'lookup-word-definition "lookup-word-on-internet" "Lookup in browser" t)
;; (autoload 'lookup-wiktionary "lookup-word-on-internet" "Lookup word in browser" t)
;; (autoload 'lookup-php-ref "lookup-word-on-internet" "Lookup word in browser" t)

;; ;; Suggested keys
;; (global-set-key (kbd "<f1> 1") 'lookup-google)
;; (global-set-key (kbd "<f1> 2") 'lookup-wikipedia)
;; (global-set-key (kbd "<f1> 3") 'lookup-word-definition)
;; …

;;; DOCUMENTATION

;; Just some simple useful commands
;; For detail, see http://xahlee.org/emacs/emacs_lookup_ref.html

;; Donation of $3 is appreciated. Paypal to 〔xah@xahlee.org〕

;;; HISTORY

;; version 1.3, 2012-05-11 added “lookup-all-dictionaries”.
;; version 1.2, 2012-05-10 added “lookup-answers.com”. Improved inline docs.
;; version 1.1, 2012-05-09 changed the input from 「'symbol」 to 「'word」. Changed the English dictionary used from 「http://www.answers.com/main/ntquery?s=�」 to 「http://www.thefreedictionary.com/�」.
;; version 1.0, 2011-11-14 First released to public.

;;; Code:


;; § ----------------------------------------
(require 'xeu_elisp_util)

(defvar all-dictionaries nil "a vector of dictionaries. Used by `lookup-all-dictionaries'.")
(setq all-dictionaries [
"http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=�"
"http://www.thefreedictionary.com/�"
"http://www.answers.com/main/ntquery?s=�" 
"http://en.wiktionary.org/wiki/�"
] )

(defun lookup-word-on-internet (&optional input-word site-to-use)
  "Look up current word or text selection in a online reference site.
This command launches/switches you to default browser.

Optional argument INPUT-WORD and SITE-TO-USE can be given.
SITE-TO-USE a is URL string in this form: 「http://en.wiktionary.org/wiki/�」.
the 「�」 is a placeholder for the query string.

If SITE-TO-USE is nil, Google Search is used.

For a list of online reference sites, see:
 URL `http://xahlee.org/emacs/emacs_lookup_ref.html'"
  (interactive)
  (let (ξword refUrl myUrl)
    (setq ξword
          (if input-word
              input-word
            (if (region-active-p)
                (buffer-substring-no-properties (region-beginning) (region-end))
              (thing-at-point 'word) )) )

    (setq ξword (replace-regexp-in-string " " "%20" (asciify-text ξword)))

    (setq refUrl
          (if site-to-use
              site-to-use
            "http://www.google.com/search?q=�" ) )

    (setq myUrl (replace-regexp-in-string "�" ξword refUrl t t))
    (cond
     ((string-equal system-type "windows-nt") ; any flavor of Windows
      (browse-url-default-windows-browser myUrl)
      )
     ((string-equal system-type "gnu/linux")
      (browse-url myUrl)
      )
     ((string-equal system-type "darwin") ; Mac
      (browse-url myUrl) ) ) ))

(defun lookup-google (&optional input-word)
  "Lookup current word or text selection in Google Search.
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://www.google.com/search?q=�" ))
    (lookup-word-on-internet input-word dictUrl) ) )

(defun lookup-wikipedia (&optional input-word)
  "Lookup current word or text selection in Wikipedia.
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://en.wikipedia.org/wiki/�" ))
    (lookup-word-on-internet input-word dictUrl) ) )

(defun lookup-word-dict-org (&optional input-word)
  "Lookup definition of current word or text selection in URL `http://dict.org/'.
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://www.dict.org/bin/Dict?Form=Dict2&Database=*&Query=�" ))
    (lookup-word-on-internet input-word dictUrl)
    ) )

(defun lookup-word-definition (&optional input-word)
  "Lookup definition of current word or text selection in URL `http://thefreedictionary.com/'.
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://www.thefreedictionary.com/�") )
    (lookup-word-on-internet input-word dictUrl) ) )

(defun lookup-answers.com (&optional input-word)
  "Lookup current word or text selection in URL `http://answers.com/'.
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://www.answers.com/main/ntquery?s=�" 
) )
    (lookup-word-on-internet input-word dictUrl) ) )

(defun lookup-wiktionary (&optional input-word)
  "Lookup definition of current word or text selection in URL `http://en.wiktionary.org/'
See also `lookup-word-on-internet'."
  (interactive)
  (let ((dictUrl "http://en.wiktionary.org/wiki/�" ))
    (lookup-word-on-internet input-word dictUrl) ) )

(defun lookup-all-dictionaries (&optional input-word)
  "Lookup definition in many dictionaries.
Current word or text selection is used as input.
The dictionaries used are in `all-dictionaries'.

See also `lookup-word-on-internet'."
  (interactive)
  (mapc (lambda (dictUrl) (lookup-word-on-internet input-word dictUrl)) all-dictionaries) )

(defun lookup-php-ref ()
  "Look up current word in PHP's reference doc.
If a there is a text selection (a phrase), lookup that phrase.
Launches default browser and opens the doc's url."
  (interactive)
  (let (inputStr myUrl)
    (setq inputStr (elt (get-selection-or-unit 'word) 0) )
    (setq myUrl (concat "http://us.php.net/" inputStr))
    (browse-url myUrl)))

(provide 'lookup-word-on-internet)