Mercurial > emacs
annotate lisp/browse-url.el @ 16652:eb3f3934a185
(normal-top-level, command-line, command-line-1):
User w32 instead of ms-windows for window-system symbol.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Mon, 09 Dec 1996 23:38:03 +0000 |
parents | c7622616333c |
children | 0bd213d55f05 |
rev | line source |
---|---|
13208 | 1 ;;; browse-url.el --- ask a WWW browser to load a URL |
14169 | 2 |
14734 | 3 ;; Copyright 1995, 1996 Free Software Foundation, Inc. |
13208 | 4 |
5 ;; Author: Denis Howe <dbh@doc.ic.ac.uk> | |
6 ;; Maintainer: Denis Howe <dbh@doc.ic.ac.uk> | |
7 ;; Created: 03 Apr 1995 | |
8 ;; Keywords: hypertext | |
9 ;; X-Home page: http://wombat.doc.ic.ac.uk/ | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14169 | 14 ;; it under the terms of the GNU General Public License as published by |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
13208 | 17 |
14169 | 18 ;; GNU Emacs is distributed in the hope that it will be useful, |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
13208 | 22 |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
14169 | 25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
26 ;; Boston, MA 02111-1307, USA. | |
13208 | 27 |
28 ;;; Commentary: | |
29 | |
30 ;; The latest version of this package should be available from | |
31 ;; <URL:http://wombat.doc.ic.ac.uk/emacs/browse-url.el>. | |
32 | |
33 ;; This package provides functions which read a URL (Uniform Resource | |
34 ;; Locator) from the minibuffer, defaulting to the URL around point, | |
35 ;; and ask a World-Wide Web browser to load it. It can also load the | |
36 ;; URL associated with the current buffer. Different browsers use | |
37 ;; different methods of remote control so there is one function for | |
38 ;; each supported browser. If the chosen browser is not running, it | |
39 ;; is started. Currently there is support for: | |
40 | |
41 ;; Function Browser Earliest version | |
42 ;; browse-url-netscape Netscape 1.1b1 | |
43 ;; browse-url-mosaic XMosaic <= 2.4 | |
44 ;; browse-url-cci XMosaic 2.5 | |
45 ;; browse-url-w3 w3 0 | |
46 ;; browse-url-iximosaic IXI Mosaic ? | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
47 ;; browse-url-lynx-* Lynx 0 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
48 ;; browse-url-grail Grail 0.3b1 |
13208 | 49 |
50 ;; Note that versions of Netscape before 1.1b1 did not have remote | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
51 ;; control. <URL:http://www.netscape.com/newsref/std/x-remote.html> |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
52 ;; and <URL:http://www.netscape.com/info/APIs/>. |
13208 | 53 |
54 ;; Netscape can cache Web pages so it may be necessary to tell it to | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
55 ;; reload the current page if it has changed (e.g. if you have edited |
13208 | 56 ;; it). There is currently no perfect automatic solution to this. |
57 | |
58 ;; Netscape allows you to specify the id of the window you want to | |
59 ;; control but which window DO you want to control and how do you | |
60 ;; discover its id? | |
61 | |
62 ;; If using XMosaic before version 2.5, check the definition of | |
63 ;; browse-url-usr1-signal below. | |
64 ;; <URL:http://www.ncsa.uiuc.edu/SDG/Software/XMosaic/remote-control.html> | |
65 | |
66 ;; XMosaic version 2.5 introduced Common Client Interface allowing you | |
67 ;; to control mosaic through Unix sockets. | |
68 ;; <URL:http://www.ncsa.uiuc.edu/SDG/Software/XMosaic/CCI/cci-spec.html> | |
69 | |
70 ;; William M. Perry's excellent "w3" WWW browser for | |
71 ;; Emacs <URL:ftp://cs.indiana.edu/pub/elisp/w3/> | |
72 ;; has a function w3-follow-url-at-point, but that | |
73 ;; doesn't let you edit the URL like browse-url. | |
74 | |
75 ;; I recommend Nelson Minar <nelson@santafe.edu>'s excellent | |
76 ;; html-helper-mode.el for editing HTML and thank Nelson for | |
77 ;; his many useful comments on this code. | |
78 ;; <URL:http://www.santafe.edu/~nelson/hhm-beta/> | |
79 | |
80 ;; This package generalises function html-previewer-process in Marc | |
81 ;; Andreessen <marca@ncsa.uiuc.edu>'s html-mode (LCD | |
82 ;; modes/html-mode.el.Z) and provides better versions of the URL | |
83 ;; functions in Michelangelo Grigni <mic@cs.ucsd.edu>'s ffap.el | |
84 ;; (find-file-at-point) <URL:ftp://cs.ucsd.edu:/pub/mic/>. The huge | |
85 ;; hyperbole package also contains similar functions. | |
86 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
87 ;; Grail is the freely available WWW browser implemented in Python, a |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
88 ;; cool object-oriented freely available interpreted language. Grail |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
89 ;; 0.3b1 was the first version to have remote control as distributed. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
90 ;; For more information on Grail see |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
91 ;; <URL:http://monty.cnri.reston.va.us/> and for more information on |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
92 ;; Python see <url:http://www.python.org/>. Grail support in |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
93 ;; browse-url.el written by Barry Warsaw <bwarsaw@python.org>. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
94 |
13208 | 95 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
96 ;; Help! | |
97 | |
98 ;; Can you write and test some code for the Macintrash and Windoze | |
99 ;; Netscape remote control APIs? (See the URL above). | |
100 | |
101 ;; Do any other browsers have remote control? | |
102 | |
103 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
104 ;; Usage | |
105 | |
106 ;; To display the URL at or before point: | |
107 ;; M-x browse-url-at-point RET | |
108 | |
109 ;; To display a URL by shift-clicking on it, put this in your ~/.emacs | |
110 ;; file: | |
13933
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
111 ;; (global-set-key [S-mouse-2] 'browse-url-at-mouse) |
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
112 ;; (Note that using Shift-mouse-1 is not desirable because |
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
113 ;; that event has a standard meaning in Emacs.) |
13208 | 114 |
115 ;; To display the current buffer in a web browser: | |
116 ;; M-x browse-url-of-buffer RET | |
117 | |
118 ;; In Dired, to display the file named on the current line: | |
119 ;; M-x browse-url-of-dired-file RET | |
120 | |
121 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
122 ;; Customisation (~/.emacs) | |
123 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
124 ;; To see what variables are available for customization, type |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
125 ;; `M-x set-variable browse-url TAB'. |
13208 | 126 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
127 ;; Bind the browse-url commands to keys with the `C-c C-z' prefix |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
128 ;; (as used by html-helper-mode): |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
129 ;; (global-set-key "\C-c\C-z." 'browse-url-at-point) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
130 ;; (global-set-key "\C-c\C-zb" 'browse-url-of-buffer) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
131 ;; (global-set-key "\C-c\C-zu" 'browse-url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
132 ;; (global-set-key "\C-c\C-zv" 'browse-url-of-file) |
13208 | 133 ;; (add-hook 'dired-mode-hook |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
134 ;; (function (lambda () |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
135 ;; (local-set-key "\C-c\C-zf" 'browse-url-of-dired-file)))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
136 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
137 ;; Browse URLs in mail messages by clicking mouse-2: |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
138 ;; (add-hook 'rmail-mode-hook (function (lambda () ; rmail-mode startup |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
139 ;; (define-key rmail-mode-map [mouse-2] 'browse-url-at-mouse)))) |
13208 | 140 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
141 ;; Browse URLs in Usenet messages by clicking mouse-2: |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
142 ;; (eval-after-load "gnus" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
143 ;; '(define-key gnus-article-mode-map [mouse-2] 'browse-url-at-mouse)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
144 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
145 ;; Use the Emacs w3 browser when not running under X11: |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
146 ;; (or (eq window-system 'x) |
13208 | 147 ;; (setq browse-url-browser-function 'browse-url-w3)) |
148 | |
149 ;; To always save modified buffers before displaying the file in a browser: | |
150 ;; (setq browse-url-save-file t) | |
151 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
152 ;; To get round the Netscape caching problem, you could EITHER have |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
153 ;; write-file in html-helper-mode make Netscape reload the document: |
13208 | 154 ;; |
155 ;; (autoload 'browse-url-netscape-reload "browse-url" | |
156 ;; "Ask a WWW browser to redisplay the current file." t) | |
157 ;; (add-hook 'html-helper-mode-hook | |
158 ;; (function (lambda () | |
159 ;; (add-hook 'local-write-file-hooks | |
160 ;; (function (lambda () | |
161 ;; (let ((local-write-file-hooks)) | |
162 ;; (save-buffer)) | |
163 ;; (browse-url-netscape-reload) | |
13224
e19603a14c3f
Repair line wrapping damage.
Erik Naggum <erik@naggum.no>
parents:
13208
diff
changeset
|
164 ;; t)) ; => file written by hook |
e19603a14c3f
Repair line wrapping damage.
Erik Naggum <erik@naggum.no>
parents:
13208
diff
changeset
|
165 ;; t)))) ; append to l-w-f-hooks |
13208 | 166 ;; |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
167 ;; OR have browse-url-of-file ask Netscape to load and then reload the |
13208 | 168 ;; file: |
169 ;; | |
170 ;; (add-hook 'browse-url-of-file-hook 'browse-url-netscape-reload) | |
171 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
172 ;; You may also want to customise browse-url-netscape-arguments, e.g. |
13208 | 173 ;; (setq browse-url-netscape-arguments '("-install")) |
174 ;; | |
175 ;; or similarly for the other browsers. | |
176 | |
177 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
178 ;;; Change Log: | |
179 | |
180 ;; 0.00 03 Apr 1995 Denis Howe <dbh@doc.ic.ac.uk> | |
181 ;; Created. | |
182 | |
183 ;; 0.01 04 Apr 1995 | |
184 ;; All names start with "browse-url-". Added provide. | |
185 | |
186 ;; 0.02 05 Apr 1995 | |
187 ;; Save file at start of browse-url-of-file. | |
188 ;; Use start-process instead of start-process-shell-command. | |
189 | |
190 ;; 0.03 06 Apr 1995 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
191 ;; Add browse-url-netscape-reload, browse-url-netscape-send. |
13208 | 192 ;; browse-url-of-file save file option. |
193 | |
194 ;; 0.04 08 Apr 1995 | |
195 ;; b-u-file-url separate function. Change b-u-filename-alist | |
196 ;; default. | |
197 | |
198 ;; 0.05 09 Apr 1995 | |
199 ;; Added b-u-of-file-hook. | |
200 | |
201 ;; 0.06 11 Apr 1995 | |
202 ;; Improved .emacs suggestions and documentation. | |
203 | |
204 ;; 0.07 13 Apr 1995 | |
205 ;; Added browse-url-interactive-arg optional prompt. | |
206 | |
207 ;; 0.08 18 Apr 1995 | |
208 ;; Exclude final "." from browse-url-regexp. | |
209 | |
210 ;; 0.09 21 Apr 1995 | |
211 ;; Added mouse-set-point to browse-url-interactive-arg. | |
212 | |
213 ;; 0.10 24 Apr 1995 | |
214 ;; Added Mosaic signal sending variations. | |
215 ;; Thanks Brian K Servis <servis@ecn.purdue.edu>. | |
216 ;; Don't use xprop for Netscape. | |
217 | |
218 ;; 0.11 25 Apr 1995 | |
219 ;; Fix reading of ~/.mosaicpid. Thanks Dag.H.Wanvik@kvatro.no. | |
220 | |
221 ;; 0.12 27 Apr 1995 | |
222 ;; Interactive prefix arg => URL *after* point. | |
223 ;; Thanks Michelangelo Grigni <mic@cs.ucsd.edu>. | |
224 ;; Added IXI Mosaic support. | |
225 ;; Thanks David Karr <dkarr@nmo.gtegsc.com>. | |
226 | |
227 ;; 0.13 28 Apr 1995 | |
228 ;; Exclude final [,;] from browse-url-regexp. | |
229 | |
230 ;; 0.14 02 May 1995 | |
231 ;; Provide browser argument variables. | |
232 | |
233 ;; 0.15 07 May 1995 | |
234 ;; More Netscape options. Thanks Peter Arius | |
235 ;; <arius@immd2.informatik.uni-erlangen.de>. | |
236 | |
237 ;; 0.16 17 May 1995 | |
238 ;; Added browse-url-at-mouse. | |
239 ;; Thanks Wayne Mesard <wmesard@sgi.com> | |
240 | |
241 ;; 0.17 27 Jun 1995 | |
242 ;; Renamed browse-url-at-point to browse-url-url-at-point. | |
243 ;; Added browse-url-at-point. | |
244 ;; Thanks Jonathan Cano <cano@patch.tandem.com>. | |
245 | |
246 ;; 0.18 16 Aug 1995 | |
247 ;; Fixed call to browse-url-url-at-point in browse-url-at-point. | |
248 ;; Thanks Eric Ding <ericding@San-Jose.ate.slb.com>. | |
249 | |
250 ;; 0.19 24 Aug 1995 | |
251 ;; Improved documentation. | |
252 ;; Thanks Kevin Rodgers <kevin.rodgers@ihs.com>. | |
253 | |
254 ;; 0.20 31 Aug 1995 | |
255 ;; browse-url-of-buffer to handle file-less buffers. | |
256 ;; browse-url-of-dired-file browses current file in dired. | |
257 ;; Thanks Kevin Rodgers <kevin.rodgers@ihs.com>. | |
258 | |
259 ;; 0.21 09 Sep 1995 | |
260 ;; XMosaic CCI functions. | |
261 ;; Thanks Marc Furrer <Marc.Furrer@di.epfl.ch>. | |
262 | |
263 ;; 0.22 13 Sep 1995 | |
264 ;; Fixed new-window documentation and added to browse-url-cci. | |
265 ;; Thanks Dilip Sequeira <djs@dcs.ed.ac.uk>. | |
266 | |
267 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
268 ;;; Code: | |
269 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
270 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
271 ;; Variables |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
272 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
273 (eval-when-compile (require 'dired)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
274 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
275 (defvar browse-url-path-regexp |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
276 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
277 "A regular expression probably matching the host, path or e-mail |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
278 part of a URL.") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
279 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
280 (defvar browse-url-short-regexp |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
281 (concat "[-A-Za-z0-9.]+" browse-url-path-regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
282 "A regular expression probably matching a URL without an access scheme. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
283 Hostname matching is stricter in this case than for |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
284 ``browse-url-regexp''.") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
285 |
13208 | 286 (defvar browse-url-regexp |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
287 (concat |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
288 "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
289 browse-url-path-regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
290 "A regular expression probably matching a complete URL.") |
13208 | 291 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
292 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
293 ;;;###autoload |
13208 | 294 (defvar browse-url-browser-function |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
295 'browse-url-netscape |
13208 | 296 "*Function to display the current buffer in a WWW browser. |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
297 Used by the `browse-url-at-point', `browse-url-at-mouse', and |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
298 `browse-url-of-file' commands.") |
13208 | 299 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
300 (defvar browse-url-netscape-command "netscape" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
301 "*The name by which to invoke Netscape.") |
15656
e73cd7ff1d4a
(browse-url-netscape-program): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
14734
diff
changeset
|
302 |
13208 | 303 (defvar browse-url-netscape-arguments nil |
304 "*A list of strings to pass to Netscape as arguments.") | |
305 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
306 (defvar browse-url-netscape-startup-arguments browse-url-netscape-arguments |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
307 "*A list of strings to pass to Netscape when it starts up. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
308 Defaults to the value of browse-url-netscape-arguments at the time |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
309 browse-url is loaded.") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
310 |
13208 | 311 (defvar browse-url-new-window-p nil |
312 "*If non-nil, always open a new browser window. | |
313 Passing an interactive argument to \\[browse-url-netscape] or | |
314 \\[browse-url-cci] reverses the effect of this variable. Requires | |
315 Netscape version 1.1N or later or XMosaic version 2.5 or later.") | |
316 | |
317 (defvar browse-url-mosaic-arguments nil | |
318 "*A list of strings to pass to Mosaic as arguments.") | |
319 | |
320 (defvar browse-url-filename-alist | |
321 '(("^/+" . "file:/")) | |
322 "An alist of (REGEXP . STRING) pairs. | |
323 Any substring of a filename matching one of the REGEXPs is replaced by | |
324 the corresponding STRING. All pairs are applied in the order given. | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
325 The default value prepends `file:' to any path beginning with `/'. |
13208 | 326 Used by the `browse-url-of-file' command.") |
327 | |
328 (defvar browse-url-save-file nil | |
329 "If non-nil, save the buffer before displaying its file. | |
330 Used by the `browse-url-of-file' command.") | |
331 | |
332 (defvar browse-url-of-file-hook nil | |
333 "A hook to be run with run-hook after `browse-url-of-file' has asked | |
334 a browser to load a file. | |
335 | |
336 Set this to `browse-url-netscape-reload' to force Netscape to load the | |
337 file rather than displaying a cached copy.") | |
338 | |
339 (defvar browse-url-usr1-signal | |
340 (if (and (boundp 'emacs-major-version) | |
341 (or (> emacs-major-version 19) (>= emacs-minor-version 29))) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
342 'SIGUSR1 ; Why did I think this was in lower case before? |
13208 | 343 30) ; Check /usr/include/signal.h. |
344 "The argument to `signal-process' for sending SIGUSR1 to XMosaic. | |
13938
3e0b6a3707bd
(browse-url-usr1-signal): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
13933
diff
changeset
|
345 Emacs 19.29 accepts 'SIGUSR1, earlier versions require an integer |
13208 | 346 which is 30 on SunOS and 16 on HP-UX and Solaris.") |
347 | |
348 (defvar browse-url-CCI-port 3003 | |
349 "Port to access XMosaic via CCI. | |
350 This can be any number between 1024 and 65535 but must correspond to | |
351 the value set in the browser.") | |
352 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
353 (defvar browse-url-CCI-host "localhost" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
354 "*Host to access XMosaic via CCI. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
355 This should be the host name of the machine running XMosaic with CCI |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
356 enabled. The port number should be set in `browse-url-CCI-port'.") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
357 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
358 (defvar browse-url-temp-file-name nil) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
359 (make-variable-buffer-local 'browse-url-temp-file-name) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
360 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
361 (defvar browse-url-temp-file-list '()) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
362 |
13208 | 363 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
364 ;; URL input | |
365 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
366 ;; thingatpt.el doesn't work for complex regexps |
13208 | 367 |
368 (defun browse-url-url-at-point () | |
369 "Return the URL around or before point. | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
370 Search backwards for the start of a URL ending at or after |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
371 point. If no URL found, return the empty string. The |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
372 access scheme, `http://' will be prepended if absent." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
373 (cond ((browse-url-looking-at browse-url-regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
374 (buffer-substring (match-beginning 0) (match-end 0))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
375 ;; Access scheme omitted? |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
376 ((browse-url-looking-at browse-url-short-regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
377 (concat "http://" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
378 (buffer-substring (match-beginning 0) (match-end 0)))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
379 (t ""))) ; No match |
13208 | 380 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
381 (defun browse-url-looking-at (regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
382 "Return non-nil if point is in or just after a match for REGEXP. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
383 Set the match data from the earliest such match in the current line |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
384 ending at or after point." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
385 (save-excursion |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
386 (let ((old-point (point)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
387 (eol (progn (end-of-line) (point))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
388 (hit nil)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
389 (beginning-of-line) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
390 (or (and (looking-at regexp) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
391 (>= (match-end 0) old-point)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
392 (progn |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
393 (while (and (re-search-forward regexp eol t) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
394 (<= (match-beginning 0) old-point) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
395 (not (setq hit (>= (match-end 0) old-point))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
396 hit))))) |
13208 | 397 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
398 ;; Having this as a separate function called by the browser-specific |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
399 ;; functions allows them to be stand-alone commands, making it easier |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
400 ;; to switch between browsers. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
401 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
402 (defun browse-url-interactive-arg (prompt) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
403 "Read a URL from the minibuffer, prompting with PROMPT. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
404 Default to the URL at or before point. If invoke with a mouse button, |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
405 set point to the position clicked first. Return a list for use in |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
406 `interactive' containing the URL and browse-url-new-window-p or its |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
407 negation if a prefix argument was given." |
13208 | 408 (let ((event (elt (this-command-keys) 0))) |
409 (and (listp event) (mouse-set-point event))) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
410 (list (read-string prompt (browse-url-url-at-point)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
411 (not (eq (null browse-url-new-window-p) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
412 (null current-prefix-arg))))) |
13208 | 413 |
414 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
415 ;; Browse current buffer | |
416 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
417 ;;;###autoload |
13208 | 418 (defun browse-url-of-file (&optional file) |
419 "Ask a WWW browser to display FILE. | |
420 Display the current buffer's file if FILE is nil or if called | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
421 interactively. Turn the filename into a URL with function |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
422 browse-url-file-url. Pass the URL to a browser using variable |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
423 `browse-url-browser-function' then run `browse-url-of-file-hook'." |
13208 | 424 (interactive) |
425 (or file | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
426 (setq file (buffer-file-name)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
427 (error "Current buffer has no file")) |
13208 | 428 (let ((buf (get-file-buffer file))) |
429 (if buf | |
430 (save-excursion | |
431 (set-buffer buf) | |
432 (cond ((not (buffer-modified-p))) | |
433 (browse-url-save-file (save-buffer)) | |
434 (t (message "%s modified since last save" file)))))) | |
435 (funcall browse-url-browser-function (browse-url-file-url file)) | |
436 (run-hooks 'browse-url-of-file-hook)) | |
437 | |
438 (defun browse-url-file-url (file) | |
439 "Return the URL corresponding to FILE. | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
440 Use variable `browse-url-filename-alist' to map filenames to URLs. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
441 Convert EFS file names of the form /USER@HOST:PATH to ftp://HOST/PATH." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
442 ;; URL-encode special chars, do % first |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
443 (let ((s 0)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
444 (while (setq s (string-match "%" file s)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
445 (setq file (replace-match "%25" t t file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
446 s (1+ s)))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
447 (while (string-match "[*\"()',=;? ]" file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
448 (let ((enc (format "%%%x" (aref file (match-beginning 0))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
449 (setq file (replace-match enc t t file)))) |
13208 | 450 (let ((maps browse-url-filename-alist)) |
451 (while maps | |
452 (let* ((map (car maps)) | |
453 (from-re (car map)) | |
454 (to-string (cdr map))) | |
455 (setq maps (cdr maps)) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
456 (and (string-match from-re file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
457 (setq file (replace-match to-string t t file)))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
458 ;; Check for EFS path |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
459 (and (string-match "^/\\([^:@]+@\\)?\\([^:]+\\):/*" file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
460 (setq file (concat "ftp://" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
461 (substring file (match-beginning 2) (match-end 2)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
462 "/" (substring file (match-end 0))))) |
13208 | 463 file) |
464 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
465 ;;;###autoload |
13208 | 466 (defun browse-url-of-buffer (&optional buffer) |
467 "Ask a WWW browser to display BUFFER. | |
468 Display the current buffer if BUFFER is nil." | |
469 (interactive) | |
470 (save-excursion | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
471 (and buffer (set-buffer buffer)) |
13208 | 472 (let ((file-name |
473 (or buffer-file-name | |
474 (and (boundp 'dired-directory) dired-directory)))) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
475 (or file-name |
13208 | 476 (progn |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
477 (or browse-url-temp-file-name |
13208 | 478 (setq browse-url-temp-file-name |
479 (make-temp-name | |
480 (expand-file-name (buffer-name) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
481 (or (getenv "TMPDIR") "/tmp"))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
482 browse-url-temp-file-list |
13208 | 483 (cons browse-url-temp-file-name |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
484 browse-url-temp-file-list))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
485 (setq file-name browse-url-temp-file-name) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
486 (write-region (point-min) (point-max) file-name nil 'no-message))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
487 (browse-url-of-file file-name)))) |
13208 | 488 |
489 (defun browse-url-delete-temp-file (&optional temp-file-name) | |
490 ;; Delete browse-url-temp-file-name from the file system and from | |
491 ;; browse-url-temp-file-list. If optional arg TEMP-FILE-NAME is | |
492 ;; non-nil, delete it instead, but only from the file system -- | |
493 ;; browse-url-temp-file-list is not affected. | |
494 (let ((file-name (or temp-file-name browse-url-temp-file-name))) | |
495 (if (and file-name (file-exists-p file-name)) | |
496 (progn | |
497 (delete-file file-name) | |
498 (if (null temp-file-name) | |
499 (setq browse-url-temp-file-list | |
500 (delete browse-url-temp-file-name | |
501 browse-url-temp-file-list))))))) | |
502 | |
503 (defun browse-url-delete-temp-file-list () | |
504 ;; Delete all elements of browse-url-temp-file-list. | |
505 (while browse-url-temp-file-list | |
506 (browse-url-delete-temp-file (car browse-url-temp-file-list)) | |
507 (setq browse-url-temp-file-list | |
508 (cdr browse-url-temp-file-list)))) | |
509 | |
510 (add-hook 'kill-buffer-hook 'browse-url-delete-temp-file) | |
511 (add-hook 'kill-emacs-hook 'browse-url-delete-temp-file-list) | |
512 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
513 ;;;###autoload |
13208 | 514 (defun browse-url-of-dired-file () |
515 "In Dired, ask a WWW browser to display the file named on this line." | |
516 (interactive) | |
517 (browse-url-of-file (dired-get-filename))) | |
518 | |
519 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
520 ;; Browser-independant commands |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
521 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
522 ;; A generic command to call the current b-u-browser-function |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
523 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
524 (defun browse-url (&rest args) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
525 "Ask a WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
526 Prompts for a URL, defaulting to the URL at or before point. Variable |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
527 `browse-url-browser-function' says which browser to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
528 (interactive (browse-url-interactive-arg "URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
529 (apply browse-url-browser-function args)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
530 |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
531 ;;;###autoload |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
532 (defun browse-url-at-point () |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
533 "Ask a WWW browser to load the URL at or before point. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
534 Doesn't let you edit the URL like browse-url. Variable |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
535 `browse-url-browser-function' says which browser to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
536 (interactive) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
537 (funcall browse-url-browser-function (browse-url-url-at-point))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
538 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
539 ;; Define these if not already defined (XEmacs compatibility) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
540 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
541 (eval-and-compile |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
542 (or (fboundp 'event-buffer) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
543 (defun event-buffer (event) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
544 (window-buffer (posn-window (event-start event)))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
545 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
546 (eval-and-compile |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
547 (or (fboundp 'event-point) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
548 (defun event-point (event) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
549 (posn-point (event-start event))))) |
13208 | 550 |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
551 ;;;###autoload |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
552 (defun browse-url-at-mouse (event) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
553 "Ask a WWW browser to load a URL clicked with the mouse. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
554 The URL is the one around or before the position of the mouse click |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
555 but point is not changed. Doesn't let you edit the URL like |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
556 browse-url. Variable `browse-url-browser-function' says which browser |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
557 to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
558 (interactive "e") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
559 (save-excursion |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
560 (set-buffer (event-buffer event)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
561 (goto-char (event-point event)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
562 (let ((url (browse-url-url-at-point))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
563 (if (string-equal url "") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
564 (error "No URL found")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
565 (funcall browse-url-browser-function url)))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
566 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
567 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
568 ;; Browser-specific commands |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
569 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
570 ;; --- Netscape --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
571 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
572 ;; Put the correct DISPLAY value in the environment for Netscape |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
573 ;; launched from multi-display Emacs. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
574 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
575 (defun browse-url-process-environment () |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
576 (let* ((device (and (fboundp 'selected-device) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
577 (fboundp 'device-connection) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
578 (selected-device))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
579 (display (and device (fboundp 'device-type) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
580 (eq (device-type device) 'x) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
581 (not (equal (device-connection device) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
582 (getenv "DISPLAY")))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
583 (if display |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
584 ;; Attempt to run on the correct display |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
585 (cons (concat "DISPLAY=" (device-connection device)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
586 process-environment) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
587 process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
588 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
589 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
590 ;;;###autoload |
13208 | 591 (defun browse-url-netscape (url &optional new-window) |
592 "Ask the Netscape WWW browser to load URL. | |
593 | |
594 Default to the URL around or before point. The strings in variable | |
595 `browse-url-netscape-arguments' are also passed to Netscape. | |
596 | |
597 When called interactively, if variable `browse-url-new-window-p' is | |
598 non-nil, load the document in a new Netscape window, otherwise use a | |
599 random existing one. A non-nil interactive prefix argument reverses | |
600 the effect of browse-url-new-window-p. | |
601 | |
602 When called non-interactively, optional second argument NEW-WINDOW is | |
603 used instead of browse-url-new-window-p." | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
604 (interactive (browse-url-interactive-arg "Netscape URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
605 ;; URL encode any commas in the URL |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
606 (while (string-match "," url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
607 (setq url (replace-match "%2C" t t url))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
608 (let* ((process-environment (browse-url-process-environment)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
609 (process (apply 'start-process |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
610 (concat "netscape " url) nil |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
611 browse-url-netscape-command |
14368
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
612 (append browse-url-netscape-arguments |
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
613 (if new-window '("-noraise")) |
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
614 (list "-remote" |
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
615 (concat "openURL(" url |
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
616 (if new-window ",new-window") |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
617 ")")))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
618 (set-process-sentinel process |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
619 (list 'lambda '(process change) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
620 (list 'browse-url-netscape-sentinel 'process url))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
621 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
622 (defun browse-url-netscape-sentinel (process url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
623 "Handle a change to the process communicating with Netscape." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
624 (or (eq (process-exit-status process) 0) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
625 (let* ((process-environment (browse-url-process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
626 ;; Netscape not running - start it |
14368
861f51e090d4
(browse-url-netscape): Check for call-process returning a string.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
627 (message "Starting Netscape...") |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
628 (apply 'start-process (concat "netscape" url) nil |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
629 browse-url-netscape-command |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
630 (append browse-url-netscape-startup-arguments (list url)))))) |
13208 | 631 |
632 (defun browse-url-netscape-reload () | |
633 "Ask Netscape to reload its current document." | |
634 (interactive) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
635 (browse-url-netscape-send "reload")) |
13208 | 636 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
637 (defun browse-url-netscape-send (command) |
13208 | 638 "Send a remote control command to Netscape." |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
639 (let* ((process-environment (browse-url-process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
640 (apply 'start-process "netscape" nil |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
641 browse-url-netscape-command |
13208 | 642 (append browse-url-netscape-arguments |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
643 (list "-remote" command))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
644 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
645 ;; --- Mosaic --- |
13208 | 646 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
647 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
648 (defun browse-url-mosaic (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
649 ;; new-window ignored |
13208 | 650 "Ask the XMosaic WWW browser to load URL. |
651 Default to the URL around or before point." | |
652 (interactive (browse-url-interactive-arg "Mosaic URL: ")) | |
653 (let ((pidfile (expand-file-name "~/.mosaicpid")) | |
654 pid pidbuf) | |
655 (if (file-readable-p pidfile) | |
656 (save-excursion | |
657 (find-file pidfile) | |
658 (goto-char (point-min)) | |
659 (setq pid (read (current-buffer))) | |
660 (kill-buffer nil))) | |
661 (if (and pid (zerop (signal-process pid 0))) ; Mosaic running | |
662 (save-excursion | |
663 (find-file (format "/tmp/Mosaic.%d" pid)) | |
664 (erase-buffer) | |
665 (insert "goto\n" url "\n") | |
666 (save-buffer) | |
667 (kill-buffer nil) | |
668 ;; Send signal SIGUSR to Mosaic | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
669 (message "Signalling Mosaic...") |
13208 | 670 (signal-process pid browse-url-usr1-signal) |
671 ;; Or you could try: | |
672 ;; (call-process "kill" nil 0 nil "-USR1" (int-to-string pid)) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
673 (message "Signalling Mosaic...done") |
13208 | 674 ) |
675 ;; Mosaic not running - start it | |
676 (message "Starting Mosaic...") | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
677 (apply 'start-process "xmosaic" nil "xmosaic" |
13933
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
678 (append browse-url-mosaic-arguments (list url))) |
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
679 (message "Starting Mosaic...done")))) |
13208 | 680 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
681 ;; --- Grail --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
682 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
683 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
684 (defvar browse-url-grail |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
685 (concat (or (getenv "GRAILDIR") "~/.grail") "/user/rcgrail.py") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
686 "*Location of Grail remote control client script `rcgrail.py'. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
687 Typically found in $GRAILDIR/rcgrail.py, or ~/.grail/user/rcgrail.py.") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
688 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
689 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
690 (defun browse-url-grail (url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
691 "Ask the Grail WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
692 Default to the URL around or before point. Runs the program in the |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
693 variable `browse-url-grail'." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
694 (interactive (browse-url-interactive-arg "Grail URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
695 (message "Sending URL to Grail...") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
696 (save-excursion |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
697 (set-buffer (get-buffer-create " *Shell Command Output*")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
698 (erase-buffer) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
699 ;; don't worry about this failing. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
700 (call-process browse-url-grail nil 0 nil url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
701 (message "Sending URL to Grail... done"))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
702 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
703 ;; --- Mosaic using CCI --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
704 |
13208 | 705 (defun browse-url-cci (url &optional new-window) |
706 "Ask the XMosaic WWW browser to load URL. | |
707 Default to the URL around or before point. | |
708 | |
709 This function only works for XMosaic version 2.5 or later. You must | |
710 select `CCI' from XMosaic's File menu, set the CCI Port Address to the | |
711 value of variable `browse-url-CCI-port', and enable `Accept requests'. | |
712 | |
713 When called interactively, if variable `browse-url-new-window-p' is | |
714 non-nil, load the document in a new browser window, otherwise use a | |
715 random existing one. A non-nil interactive prefix argument reverses | |
716 the effect of browse-url-new-window-p. | |
717 | |
718 When called non-interactively, optional second argument NEW-WINDOW is | |
719 used instead of browse-url-new-window-p." | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
720 (interactive (browse-url-interactive-arg "Mosaic URL: ")) |
13208 | 721 (open-network-stream "browse-url" " *browse-url*" |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
722 browse-url-CCI-host browse-url-CCI-port) |
13208 | 723 ;; Todo: start browser if fails |
724 (process-send-string "browse-url" | |
725 (concat "get url (" url ") output " | |
726 (if new-window "new" "current") "\r\n")) | |
727 (process-send-string "browse-url" "disconnect\r\n") | |
728 (delete-process "browse-url")) | |
729 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
730 ;; --- IXI Mosaic --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
731 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
732 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
733 (defun browse-url-iximosaic (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
734 ;; new-window ignored |
13208 | 735 "Ask the IXIMosaic WWW browser to load URL. |
736 Default to the URL around or before point." | |
737 (interactive (browse-url-interactive-arg "IXI Mosaic URL: ")) | |
738 (start-process "tellw3b" nil "tellw3b" | |
739 "-service WWW_BROWSER ixi_showurl " url)) | |
740 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
741 ;; --- W3 --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
742 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
743 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
744 (defun browse-url-w3 (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
745 ;; new-window ignored |
13208 | 746 "Ask the w3 WWW browser to load URL. |
747 Default to the URL around or before point." | |
748 (interactive (browse-url-interactive-arg "W3 URL: ")) | |
749 (w3-fetch url)) | |
750 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
751 ;; --- Lynx in an xterm --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
752 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
753 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
754 (defun browse-url-lynx-xterm (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
755 ;; new-window ignored |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
756 "Ask the Lynx WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
757 Default to the URL around or before point. A new Lynx process is run |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
758 in an Xterm window." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
759 (interactive (browse-url-interactive-arg "Lynx URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
760 (start-process (concat "lynx" url) nil "xterm" "-e" "lynx" url)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
761 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
762 (eval-when-compile (require 'term)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
763 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
764 ;; --- Lynx in an Emacs "term" window --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
765 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
766 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
767 (defun browse-url-lynx-emacs (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
768 ;; new-window ignored |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
769 "Ask the Lynx WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
770 Default to the URL around or before point. Run a new Lynx process in |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
771 an Emacs buffer." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
772 (interactive (browse-url-interactive-arg "Lynx URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
773 (let ((system-uses-terminfo t)) ; Lynx uses terminfo |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
774 (if (fboundp 'make-term) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
775 (let ((term-term-name "vt100")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
776 (set-buffer (make-term "browse-url" "lynx" nil url)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
777 (term-mode) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
778 (term-char-mode) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
779 (switch-to-buffer "*browse-url*")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
780 (terminal-emulator "*browse-url*" "lynx" (list url))))) |
15780
0a03d2b02ba1
(browse-url-choose-browser): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15656
diff
changeset
|
781 |
13208 | 782 (provide 'browse-url) |
783 | |
784 ;;; browse-url.el ends here |