Mercurial > emacs
annotate lisp/browse-url.el @ 18429:8326843eefd9
(widget-edit-hook): New variable.
(widget-field-action, widget-choice-action): Run that hook
instead of displaying an echo area message.
(widget-toggle-action): Likewise.
(group-visibility, widget-group-visibility-create):
Moved to cus-edit.el and renamed.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 24 Jun 1997 03:17:34 +0000 |
parents | 0c8339d10beb |
children | a3267de991c3 |
rev | line source |
---|---|
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
1 ;;; browse-url.el --- Pass a URL to a WWW browser |
14169 | 2 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
3 ;; Copyright 1995, 1996, 1997 Free Software Foundation, Inc. |
13208 | 4 |
5 ;; Author: Denis Howe <dbh@doc.ic.ac.uk> | |
18224 | 6 ;; Maintainer: Dave Love <d.love@dl.ac.uk> |
13208 | 7 ;; Created: 03 Apr 1995 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
8 ;; Keywords: hypertext, hypermedia, mouse |
13208 | 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 | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
42 ;; browse-url-netscape Netscape 1.1b1 |
13208 | 43 ;; browse-url-mosaic XMosaic <= 2.4 |
44 ;; browse-url-cci XMosaic 2.5 | |
45 ;; browse-url-w3 w3 0 | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
46 ;; browse-url-w3-gnudoit w3 remotely |
13208 | 47 ;; browse-url-iximosaic IXI Mosaic ? |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
48 ;; browse-url-lynx-* Lynx 0 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
49 ;; browse-url-grail Grail 0.3b1 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
50 ;; browse-url-mmm MMM ? |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
51 ;; browse-url-generic arbitrary |
13208 | 52 |
53 ;; Note that versions of Netscape before 1.1b1 did not have remote | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
54 ;; control. <URL:http://www.netscape.com/newsref/std/x-remote.html>. |
13208 | 55 |
56 ;; 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
|
57 ;; reload the current page if it has changed (e.g. if you have edited |
13208 | 58 ;; it). There is currently no perfect automatic solution to this. |
59 | |
60 ;; Netscape allows you to specify the id of the window you want to | |
61 ;; control but which window DO you want to control and how do you | |
62 ;; discover its id? | |
63 | |
64 ;; If using XMosaic before version 2.5, check the definition of | |
65 ;; browse-url-usr1-signal below. | |
66 ;; <URL:http://www.ncsa.uiuc.edu/SDG/Software/XMosaic/remote-control.html> | |
67 | |
68 ;; XMosaic version 2.5 introduced Common Client Interface allowing you | |
69 ;; to control mosaic through Unix sockets. | |
70 ;; <URL:http://www.ncsa.uiuc.edu/SDG/Software/XMosaic/CCI/cci-spec.html> | |
71 | |
72 ;; William M. Perry's excellent "w3" WWW browser for | |
73 ;; Emacs <URL:ftp://cs.indiana.edu/pub/elisp/w3/> | |
74 ;; has a function w3-follow-url-at-point, but that | |
75 ;; doesn't let you edit the URL like browse-url. | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
76 ;; The `gnuserv' package that can be used to control it in another |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
77 ;; Emacs process is available from |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
78 ;; <URL:http://hplbwww.hpl.hp.com/people/ange/gnuserv/>. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
79 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
80 ;; Grail is the freely available WWW browser implemented in Python, a |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
81 ;; cool object-oriented freely available interpreted language. Grail |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
82 ;; 0.3b1 was the first version to have remote control as distributed. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
83 ;; For more information on Grail see |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
84 ;; <URL:http://grail.cnri.reston.va.us/> and for more information on |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
85 ;; Python see <url:http://www.python.org/>. Grail support in |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
86 ;; browse-url.el written by Barry Warsaw <bwarsaw@python.org>. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
87 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
88 ;; MMM is the freely available WWW browser implemented in Caml Special |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
89 ;; Light, a cool impure functional programming language, by Francois |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
90 ;; Rouaix. See the MMM home page |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
91 ;; <URL:http://pauillac.inria.fr/%7Erouaix/mmm/>. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
92 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
93 ;; Lynx is now distributed by the FSF. See also |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
94 ;; <URL:http://lynx.browser.org/>. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
95 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
96 ;; Free graphical browsers that could be used by `browse-url-generic' |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
97 ;; include Chimera <URL:ftp://ftp.cs.unlv.edu/pub/chimera>, Arena |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
98 ;; <URL:ftp://ftp.yggdrasil.com/pub/dist/web/arena>, Amaya |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
99 ;; <URL:ftp://ftp.w3.org/pub/amaya>, mMosaic |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
100 ;; <URL:ftp://sig.enst.fr/pub/multicast/mMosaic/> (the latter with |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
101 ;; development support for Java applets). |
13208 | 102 |
103 ;; I recommend Nelson Minar <nelson@santafe.edu>'s excellent | |
104 ;; html-helper-mode.el for editing HTML and thank Nelson for | |
105 ;; his many useful comments on this code. | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
106 ;; <URL:http://www.santafe.edu/%7Enelson/hhm-beta/> |
13208 | 107 |
108 ;; This package generalises function html-previewer-process in Marc | |
109 ;; Andreessen <marca@ncsa.uiuc.edu>'s html-mode (LCD | |
110 ;; modes/html-mode.el.Z) and provides better versions of the URL | |
111 ;; functions in Michelangelo Grigni <mic@cs.ucsd.edu>'s ffap.el | |
112 ;; (find-file-at-point) <URL:ftp://cs.ucsd.edu:/pub/mic/>. The huge | |
113 ;; hyperbole package also contains similar functions. | |
114 | |
115 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
116 ;; Help! | |
117 | |
118 ;; Can you write and test some code for the Macintrash and Windoze | |
119 ;; Netscape remote control APIs? (See the URL above). | |
120 | |
121 ;; Do any other browsers have remote control? | |
122 | |
123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
124 ;; Usage | |
125 | |
126 ;; To display the URL at or before point: | |
127 ;; M-x browse-url-at-point RET | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
128 ;; or, similarly but with the opportunity to edit the URL extracted from |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
129 ;; the buffer, use: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
130 ;; M-x browse-url |
13208 | 131 |
132 ;; To display a URL by shift-clicking on it, put this in your ~/.emacs | |
133 ;; file: | |
13933
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
134 ;; (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
|
135 ;; (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
|
136 ;; that event has a standard meaning in Emacs.) |
13208 | 137 |
138 ;; To display the current buffer in a web browser: | |
139 ;; M-x browse-url-of-buffer RET | |
140 | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
141 ;; To display the current region in a web browser: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
142 ;; M-x browse-url-of-region RET |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
143 |
13208 | 144 ;; In Dired, to display the file named on the current line: |
145 ;; M-x browse-url-of-dired-file RET | |
146 | |
147 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
148 ;; Customisation (~/.emacs) | |
149 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
150 ;; To see what variables are available for customization, type |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
151 ;; `M-x set-variable browse-url TAB'. |
13208 | 152 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
153 ;; 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
|
154 ;; (as used by html-helper-mode): |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
155 ;; (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
|
156 ;; (global-set-key "\C-c\C-zb" 'browse-url-of-buffer) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
157 ;; (global-set-key "\C-c\C-zr" 'browse-url-of-region) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
158 ;; (global-set-key "\C-c\C-zu" 'browse-url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
159 ;; (global-set-key "\C-c\C-zv" 'browse-url-of-file) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
160 ;; (add-hook 'dired-mode-hook |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
161 ;; (function (lambda () |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
162 ;; (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
|
163 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
164 ;; Browse URLs in mail messages by clicking mouse-2: |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
165 ;; (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
|
166 ;; (define-key rmail-mode-map [mouse-2] 'browse-url-at-mouse)))) |
13208 | 167 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
168 ;; Browse URLs in Usenet messages by clicking mouse-2: |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
169 ;; (eval-after-load "gnus" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
170 ;; '(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
|
171 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
172 ;; 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
|
173 ;; (or (eq window-system 'x) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
174 ;; (setq browse-url-browser-function 'browse-url-w3)) |
13208 | 175 |
176 ;; To always save modified buffers before displaying the file in a browser: | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
177 ;; (setq browse-url-save-file t) |
13208 | 178 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
179 ;; 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
|
180 ;; write-file in html-helper-mode make Netscape reload the document: |
13208 | 181 ;; |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
182 ;; (autoload 'browse-url-netscape-reload "browse-url" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
183 ;; "Ask a WWW browser to redisplay the current file." t) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
184 ;; (add-hook 'html-helper-mode-hook |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
185 ;; (function (lambda () |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
186 ;; (add-hook 'local-write-file-hooks |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
187 ;; (function (lambda () |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
188 ;; (let ((local-write-file-hooks)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
189 ;; (save-buffer)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
190 ;; (browse-url-netscape-reload) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
191 ;; t)) ; => file written by hook |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
192 ;; t)))) ; append to l-w-f-hooks |
13208 | 193 ;; |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
194 ;; OR have browse-url-of-file ask Netscape to load and then reload the |
13208 | 195 ;; file: |
196 ;; | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
197 ;; (add-hook 'browse-url-of-file-hook 'browse-url-netscape-reload) |
13208 | 198 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
199 ;; You may also want to customise browse-url-netscape-arguments, e.g. |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
200 ;; (setq browse-url-netscape-arguments '("-install")) |
13208 | 201 ;; |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
202 ;; or similarly for the other browsers. |
13208 | 203 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
204 ;; To invoke different browsers for different URLs: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
205 ;; (setq browse-url-browser-function '(("^mailto:" . browse-url-mail) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
206 ;; ("." . browse-url-netscape))) |
13208 | 207 |
208 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
209 ;;; Code: | |
210 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
211 (eval-when-compile (require 'dired)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
212 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
213 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
214 ;; Variables |
13208 | 215 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
216 ;;;###autoload |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
217 (defgroup browse-url nil |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
218 "Use a web browser to look at a URL." |
17862
1cc28cd7e2c7
(browse-url): Make `applicatations' the parent.
Richard M. Stallman <rms@gnu.org>
parents:
17803
diff
changeset
|
219 :group 'applications) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
220 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
221 ;;;###autoload |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
222 (defcustom browse-url-browser-function |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
223 'browse-url-netscape |
13208 | 224 "*Function to display the current buffer in a WWW browser. |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
225 This is used by the `browse-url-at-point', `browse-url-at-mouse', and |
17456
b386f1a9ed75
(browse-url-browser-function): Fix syntax error.
Karl Heuer <kwzh@gnu.org>
parents:
17443
diff
changeset
|
226 `browse-url-of-file' commands. |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
227 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
228 If the value is not a function it should be a list of pairs |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
229 (REGEXP.FUNCTION). In this case the function called will be the one |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
230 associated with the first REGEXP which matches the current URL. The |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
231 function is passed the URL and any other args of `browse-url'. The last |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
232 regexp should probably be \".\" to specify a default browser." |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
233 :type 'function |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
234 :group 'browse-url) |
13208 | 235 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
236 (defcustom browse-url-netscape-program "netscape" |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
237 "*The name by which to invoke Netscape." |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
238 :type 'string |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
239 :group 'browse-url) |
15656
e73cd7ff1d4a
(browse-url-netscape-program): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
14734
diff
changeset
|
240 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
241 (defcustom browse-url-netscape-arguments nil |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
242 "*A list of strings to pass to Netscape as arguments." |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
243 :type '(repeat (string :tag "Argument")) |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
244 :group 'browse-url) |
13208 | 245 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
246 (defcustom browse-url-netscape-startup-arguments browse-url-netscape-arguments |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
247 "*A list of strings to pass to Netscape when it starts up. |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
248 Defaults to the value of `browse-url-netscape-arguments' at the time |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
249 `browse-url' is loaded." |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
250 :type '(repeat (string :tag "Argument")) |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
251 :group 'browse-url) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
252 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
253 (defcustom browse-url-new-window-p nil |
13208 | 254 "*If non-nil, always open a new browser window. |
255 Passing an interactive argument to \\[browse-url-netscape] or | |
256 \\[browse-url-cci] reverses the effect of this variable. Requires | |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
257 Netscape version 1.1N or later or XMosaic version 2.5 or later." |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
258 :type 'boolean |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
259 :group 'browse-url) |
13208 | 260 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
261 (defcustom browse-url-netscape-display nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
262 "*The X display on which Netscape is running if different from |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
263 Emacs's display." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
264 :type 'string |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
265 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
266 |
17443
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
267 (defcustom browse-url-mosaic-arguments nil |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
268 "*A list of strings to pass to Mosaic as arguments." |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
269 :type '(repeat (string :tag "Argument")) |
02751f3ecbdd
Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16670
diff
changeset
|
270 :group 'browse-url) |
13208 | 271 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
272 (defvar browse-url-path-regexp |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
273 "[^]\t\n \"'()<>[^`{}]*[^]\t\n \"'()<>[^`{}.,;]+" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
274 "A regular expression probably matching the host, path or e-mail part of a URL.") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
275 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
276 (defvar browse-url-short-regexp |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
277 (concat "[-A-Za-z0-9.]+" browse-url-path-regexp) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
278 "A regular expression probably matching a URL without an access scheme. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
279 Hostname matching is stricter in this case than for |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
280 ``browse-url-regexp''.") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
281 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
282 (defvar browse-url-regexp |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
283 (concat |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
284 "\\(https?://\\|ftp://\\|gopher://\\|telnet://\\|wais://\\|file:/\\|s?news:\\|mailto:\\)" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
285 browse-url-path-regexp) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
286 "A regular expression probably matching a complete URL.") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
287 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
288 (defvar browse-url-markedup-regexp |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
289 "<URL:[^>]+>" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
290 "A regular expression matching a URL marked up per RFC1738. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
291 This may be broken across lines.") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
292 |
13208 | 293 (defvar browse-url-filename-alist |
294 '(("^/+" . "file:/")) | |
295 "An alist of (REGEXP . STRING) pairs. | |
296 Any substring of a filename matching one of the REGEXPs is replaced by | |
297 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
|
298 The default value prepends `file:' to any path beginning with `/'. |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
299 Used by the `browse-url-of-file' command. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
300 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
301 For example, to map EFS filenames to URLs: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
302 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
303 (setq browse-url-filename-alist |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
304 '((\"/webmaster@webserver:/home/www/html/\" . |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
305 \"http://www.acme.co.uk/\") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
306 (\"^/+\" . \"file:/\"))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
307 ") |
13208 | 308 |
309 (defvar browse-url-save-file nil | |
310 "If non-nil, save the buffer before displaying its file. | |
311 Used by the `browse-url-of-file' command.") | |
312 | |
313 (defvar browse-url-of-file-hook nil | |
314 "A hook to be run with run-hook after `browse-url-of-file' has asked | |
315 a browser to load a file. | |
316 | |
317 Set this to `browse-url-netscape-reload' to force Netscape to load the | |
318 file rather than displaying a cached copy.") | |
319 | |
320 (defvar browse-url-usr1-signal | |
321 (if (and (boundp 'emacs-major-version) | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
322 (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
|
323 'SIGUSR1 ; Why did I think this was in lower case before? |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
324 30) ; Check /usr/include/signal.h. |
13208 | 325 "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
|
326 Emacs 19.29 accepts 'SIGUSR1, earlier versions require an integer |
13208 | 327 which is 30 on SunOS and 16 on HP-UX and Solaris.") |
328 | |
329 (defvar browse-url-CCI-port 3003 | |
330 "Port to access XMosaic via CCI. | |
331 This can be any number between 1024 and 65535 but must correspond to | |
332 the value set in the browser.") | |
333 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
334 (defvar browse-url-CCI-host "localhost" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
335 "*Host to access XMosaic via CCI. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
336 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
|
337 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
|
338 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
339 (defvar browse-url-temp-file-name nil) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
340 (make-variable-buffer-local 'browse-url-temp-file-name) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
341 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
342 (defcustom browse-url-xterm-program "xterm" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
343 "*The name of the terminal emulator used by `browse-url-lynx-xterm'. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
344 This might, for instance, be a separate colour version of xterm." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
345 :type 'string |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
346 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
347 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
348 (defcustom browse-url-xterm-args nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
349 "*A list of strings defining options for `browse-url-xterm-program'. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
350 These might set its size, for instance." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
351 :type '(repeat (string :tag "Argument")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
352 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
353 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
354 (defcustom browse-url-gnudoit-program "gnudoit" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
355 "*The name of the `gnudoit' program used by `browse-url-w3-gnudoit'." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
356 :type 'string |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
357 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
358 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
359 (defcustom browse-url-gnudoit-args '("-q") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
360 "*A list of strings defining options for `browse-url-gnudoit-program'. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
361 These might set the port, for instance." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
362 :type '(repeat (string :tag "Argument")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
363 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
364 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
365 (defcustom browse-url-generic-program nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
366 "*The name of the browser program used by `browse-url-generic'." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
367 :type 'string |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
368 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
369 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
370 (defcustom browse-url-generic-args nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
371 "*A list of strings defining options for `browse-url-generic-program'." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
372 :type '(repeat (string :tag "Argument")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
373 :group 'browse-url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
374 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
375 (defvar browse-url-temp-file-list '()) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
376 |
13208 | 377 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
378 ;; URL input | |
379 | |
380 (defun browse-url-url-at-point () | |
381 "Return the URL around or before point. | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
382 Search backwards for the start of a URL ending at or after |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
383 point. If no URL found, return the empty string. The |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
384 access scheme, `http://' will be prepended if absent." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
385 (let ((url "") short strip) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
386 (if (or (setq strip (browse-url-looking-at browse-url-markedup-regexp)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
387 (browse-url-looking-at browse-url-regexp) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
388 ;; Access scheme omitted? |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
389 (setq short (browse-url-looking-at browse-url-short-regexp))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
390 (progn |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
391 (setq url (buffer-substring-no-properties (match-beginning 0) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
392 (match-end 0))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
393 (and strip (setq url (substring url 5 -1))) ; Drop "<URL:" & ">" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
394 ;; strip whitespace |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
395 (while (string-match "\\s +\\|\n+" url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
396 (setq url (replace-match "" t t url))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
397 (and short (setq url (concat (if (string-match "@" url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
398 "mailto:" "http://") url))))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
399 url)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
400 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
401 ;; thingatpt.el doesn't work for complex regexps. This should work |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
402 ;; for almost any regexp wherever we are in the match. To do a |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
403 ;; perfect job for any arbitrary regexp would mean testing every |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
404 ;; position before point. Regexp searches won't find matches that |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
405 ;; straddle the start position so we search forwards once and then |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
406 ;; back repeatedly and then back up a char at a time. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
407 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
408 (defun browse-url-looking-at (regexp) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
409 "Return non-nil if point is in or just after a match for REGEXP. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
410 Set the match data from the earliest such match ending at or after |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
411 point." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
412 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
413 (let ((old-point (point)) match) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
414 (and (looking-at regexp) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
415 (>= (match-end 0) old-point) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
416 (setq match (point))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
417 ;; Search back repeatedly from end of next match. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
418 ;; This may fail if next match ends before this match does. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
419 (re-search-forward regexp nil 'limit) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
420 (while (and (re-search-backward regexp nil t) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
421 (or (> (match-beginning 0) old-point) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
422 (and (looking-at regexp) ; Extend match-end past search start |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
423 (>= (match-end 0) old-point) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
424 (setq match (point)))))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
425 (if (not match) nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
426 (goto-char match) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
427 ;; Back up a char at a time in case search skipped |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
428 ;; intermediate match straddling search start pos. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
429 (while (and (not (bobp)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
430 (progn (backward-char 1) (looking-at regexp)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
431 (>= (match-end 0) old-point) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
432 (setq match (point)))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
433 (goto-char match) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
434 (looking-at regexp))))) |
13208 | 435 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
436 ;; 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
|
437 ;; 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
|
438 ;; to switch between browsers. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
439 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
440 (defun browse-url-interactive-arg (prompt) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
441 "Read a URL from the minibuffer, prompting with PROMPT. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
442 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
|
443 set point to the position clicked first. Return a list for use in |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
444 `interactive' containing the URL and `browse-url-new-window-p' or its |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
445 negation if a prefix argument was given." |
13208 | 446 (let ((event (elt (this-command-keys) 0))) |
447 (and (listp event) (mouse-set-point event))) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
448 (list (read-string prompt (browse-url-url-at-point)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
449 (not (eq (null browse-url-new-window-p) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
450 (null current-prefix-arg))))) |
13208 | 451 |
452 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
453 ;; Browse current buffer | |
454 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
455 ;;;###autoload |
13208 | 456 (defun browse-url-of-file (&optional file) |
457 "Ask a WWW browser to display FILE. | |
458 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
|
459 interactively. Turn the filename into a URL with function |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
460 `browse-url-file-url'. Pass the URL to a browser using the |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
461 `browse-url' function then run `browse-url-of-file-hook'." |
13208 | 462 (interactive) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
463 (or file |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
464 (setq file (buffer-file-name)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
465 (error "Current buffer has no file")) |
13208 | 466 (let ((buf (get-file-buffer file))) |
467 (if buf | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
468 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
469 (set-buffer buf) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
470 (cond ((not (buffer-modified-p))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
471 (browse-url-save-file (save-buffer)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
472 (t (message "%s modified since last save" file)))))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
473 (browse-url (browse-url-file-url file)) |
13208 | 474 (run-hooks 'browse-url-of-file-hook)) |
475 | |
476 (defun browse-url-file-url (file) | |
477 "Return the URL corresponding to FILE. | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
478 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
|
479 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
|
480 ;; URL-encode special chars, do % first |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
481 (let ((s 0)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
482 (while (setq s (string-match "%" file s)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
483 (setq file (replace-match "%25" t t file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
484 s (1+ s)))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
485 (while (string-match "[*\"()',=;? ]" file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
486 (let ((enc (format "%%%x" (aref file (match-beginning 0))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
487 (setq file (replace-match enc t t file)))) |
13208 | 488 (let ((maps browse-url-filename-alist)) |
489 (while maps | |
490 (let* ((map (car maps)) | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
491 (from-re (car map)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
492 (to-string (cdr map))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
493 (setq maps (cdr maps)) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
494 (and (string-match from-re file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
495 (setq file (replace-match to-string t t file)))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
496 ;; Check for EFS path |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
497 (and (string-match "^/\\([^:@]+@\\)?\\([^:]+\\):/*" file) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
498 (setq file (concat "ftp://" |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
499 (substring file (match-beginning 2) (match-end 2)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
500 "/" (substring file (match-end 0))))) |
13208 | 501 file) |
502 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
503 ;;;###autoload |
13208 | 504 (defun browse-url-of-buffer (&optional buffer) |
505 "Ask a WWW browser to display BUFFER. | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
506 Display the current buffer if BUFFER is nil. Display only the |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
507 currently visible part of BUFFER (from a temporary file) if buffer is |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
508 narrowed." |
13208 | 509 (interactive) |
510 (save-excursion | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
511 (and buffer (set-buffer buffer)) |
13208 | 512 (let ((file-name |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
513 ;; Ignore real name if restricted |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
514 (and (= (- (point-max) (point-min)) (buffer-size)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
515 (or buffer-file-name |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
516 (and (boundp 'dired-directory) dired-directory))))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
517 (or file-name |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
518 (progn |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
519 (or browse-url-temp-file-name |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
520 (setq browse-url-temp-file-name |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
521 (make-temp-name |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
522 (expand-file-name (buffer-name) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
523 (or (getenv "TMPDIR") "/tmp"))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
524 browse-url-temp-file-list |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
525 (cons browse-url-temp-file-name |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
526 browse-url-temp-file-list))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
527 (setq file-name browse-url-temp-file-name) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
528 (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
|
529 (browse-url-of-file file-name)))) |
13208 | 530 |
531 (defun browse-url-delete-temp-file (&optional temp-file-name) | |
532 ;; Delete browse-url-temp-file-name from the file system and from | |
533 ;; browse-url-temp-file-list. If optional arg TEMP-FILE-NAME is | |
534 ;; non-nil, delete it instead, but only from the file system -- | |
535 ;; browse-url-temp-file-list is not affected. | |
536 (let ((file-name (or temp-file-name browse-url-temp-file-name))) | |
537 (if (and file-name (file-exists-p file-name)) | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
538 (progn |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
539 (delete-file file-name) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
540 (if (null temp-file-name) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
541 (setq browse-url-temp-file-list |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
542 (delete browse-url-temp-file-name |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
543 browse-url-temp-file-list))))))) |
13208 | 544 |
545 (defun browse-url-delete-temp-file-list () | |
546 ;; Delete all elements of browse-url-temp-file-list. | |
547 (while browse-url-temp-file-list | |
548 (browse-url-delete-temp-file (car browse-url-temp-file-list)) | |
549 (setq browse-url-temp-file-list | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
550 (cdr browse-url-temp-file-list)))) |
13208 | 551 |
552 (add-hook 'kill-buffer-hook 'browse-url-delete-temp-file) | |
553 (add-hook 'kill-emacs-hook 'browse-url-delete-temp-file-list) | |
554 | |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
555 ;;;###autoload |
13208 | 556 (defun browse-url-of-dired-file () |
557 "In Dired, ask a WWW browser to display the file named on this line." | |
558 (interactive) | |
559 (browse-url-of-file (dired-get-filename))) | |
560 | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
561 ;;;###autoload |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
562 (defun browse-url-of-region (min max) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
563 "Ask a WWW browser to display the current region." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
564 (interactive "r") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
565 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
566 (save-restriction |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
567 (narrow-to-region (mark) (point)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
568 (browse-url-of-buffer)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
569 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
570 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
571 ;; Browser-independent commands |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
572 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
573 ;; A generic command to call the current browse-url-browser-function |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
574 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
575 ;;;###autoload |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
576 (defun browse-url (&rest args) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
577 "Ask a WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
578 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
|
579 `browse-url-browser-function' says which browser to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
580 (interactive (browse-url-interactive-arg "URL: ")) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
581 (if (consp browse-url-browser-function) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
582 (browse-url-choose-browser args) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
583 (apply browse-url-browser-function args))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
584 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
585 (defun browse-url-choose-browser (url &rest args) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
586 "Pass URL to a browser function chosen. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
587 This is done according to the association list in variable |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
588 `browse-url-browser-function'." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
589 (let ((blist browse-url-browser-function) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
590 re bf) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
591 (while (consp blist) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
592 (setq re (car (car blist)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
593 bf (cdr (car blist)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
594 blist (cdr blist)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
595 (if (string-match re url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
596 (progn (apply bf url args) (setq blist t)))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
597 (or blist |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
598 (error "No browser in browse-url-browser-function matching URL %s" url)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
599 |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
600 ;;;###autoload |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
601 (defun browse-url-at-point () |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
602 "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
|
603 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
|
604 `browse-url-browser-function' says which browser to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
605 (interactive) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
606 (browse-url (browse-url-url-at-point))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
607 |
17802
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
608 (defun browse-url-event-buffer (event) |
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
609 (window-buffer (posn-window (event-start event)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
610 |
17802
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
611 (defun browse-url-event-point (event) |
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
612 (posn-point (event-start event))) |
13208 | 613 |
16416
c7622616333c
(browse-url-at-point): Add autoload cookie.
Richard M. Stallman <rms@gnu.org>
parents:
16415
diff
changeset
|
614 ;;;###autoload |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
615 (defun browse-url-at-mouse (event) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
616 "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
|
617 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
|
618 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
|
619 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
|
620 to use." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
621 (interactive "e") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
622 (save-excursion |
17802
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
623 (set-buffer (browse-url-event-buffer event)) |
77d8356a7eed
(browse-url-event-buffer):
Richard M. Stallman <rms@gnu.org>
parents:
17456
diff
changeset
|
624 (goto-char (browse-url-event-point event)) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
625 (let ((url (browse-url-url-at-point))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
626 (if (string-equal url "") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
627 (error "No URL found")) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
628 (browse-url url)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
629 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
630 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
631 ;; Browser-specific commands |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
632 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
633 ;; --- Netscape --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
634 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
635 (defun browse-url-process-environment () |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
636 "Set DISPLAY in the environment to the X display Netscape is running on. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
637 This is either the value of variable `browse-url-netscape-display' if |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
638 non-nil, or the same display as Emacs if different from the current |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
639 environment, otherwise just use the current environment." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
640 (let ((display (or browse-url-netscape-display (browse-url-emacs-display)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
641 (if display |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
642 (cons (concat "DISPLAY=" display) process-environment) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
643 process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
644 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
645 (defun browse-url-emacs-display () |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
646 "Return the X display Emacs is running on. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
647 This nil if the display is the same as the DISPLAY environment variable. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
648 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
649 Actually Emacs could be using several screens on several displays, as |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
650 listed by (emacs-display-list) and (x-display-screens DISPLAY), this |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
651 just returns the display showing the selected frame. You got a |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
652 problem with that?" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
653 (let (device display) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
654 (and (fboundp 'selected-device) (fboundp 'device-type) (fboundp 'device-connection) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
655 (setq device (selected-device)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
656 (eq (device-type device) 'x) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
657 (setq display (device-connection device)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
658 (not (equal display (getenv "DISPLAY"))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
659 display))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
660 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
661 ;;;###autoload |
13208 | 662 (defun browse-url-netscape (url &optional new-window) |
663 "Ask the Netscape WWW browser to load URL. | |
664 | |
665 Default to the URL around or before point. The strings in variable | |
666 `browse-url-netscape-arguments' are also passed to Netscape. | |
667 | |
668 When called interactively, if variable `browse-url-new-window-p' is | |
669 non-nil, load the document in a new Netscape window, otherwise use a | |
670 random existing one. A non-nil interactive prefix argument reverses | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
671 the effect of `browse-url-new-window-p'. |
13208 | 672 |
673 When called non-interactively, optional second argument NEW-WINDOW is | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
674 used instead of `browse-url-new-window-p'." |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
675 (interactive (browse-url-interactive-arg "Netscape URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
676 ;; URL encode any commas in the URL |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
677 (while (string-match "," url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
678 (setq url (replace-match "%2C" t t url))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
679 (let* ((process-environment (browse-url-process-environment)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
680 (process (apply 'start-process |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
681 (concat "netscape " url) nil |
17975
3f2cc6cc8705
(browse-url-netscape, browse-url-netscape-sentinel)
Richard M. Stallman <rms@gnu.org>
parents:
17862
diff
changeset
|
682 browse-url-netscape-program |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
683 (append browse-url-netscape-arguments |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
684 (if (string-equal "win32" window-system) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
685 (list url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
686 (if new-window '("-noraise")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
687 (list "-remote" |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
688 (concat "openURL(" url |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
689 (if new-window ",new-window") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
690 ")"))))))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
691 (set-process-sentinel process |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
692 (list 'lambda '(process change) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
693 (list 'browse-url-netscape-sentinel 'process url))))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
694 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
695 (defun browse-url-netscape-sentinel (process url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
696 "Handle a change to the process communicating with Netscape." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
697 (or (eq (process-exit-status process) 0) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
698 (let* ((process-environment (browse-url-process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
699 ;; Netscape not running - start it |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
700 (message "Starting Netscape...") |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
701 (apply 'start-process (concat "netscape" url) nil |
17975
3f2cc6cc8705
(browse-url-netscape, browse-url-netscape-sentinel)
Richard M. Stallman <rms@gnu.org>
parents:
17862
diff
changeset
|
702 browse-url-netscape-program |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
703 (append browse-url-netscape-startup-arguments (list url)))))) |
13208 | 704 |
705 (defun browse-url-netscape-reload () | |
706 "Ask Netscape to reload its current document." | |
707 (interactive) | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
708 (browse-url-netscape-send "reload")) |
13208 | 709 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
710 (defun browse-url-netscape-send (command) |
13208 | 711 "Send a remote control command to Netscape." |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
712 (let* ((process-environment (browse-url-process-environment))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
713 (apply 'start-process "netscape" nil |
17975
3f2cc6cc8705
(browse-url-netscape, browse-url-netscape-sentinel)
Richard M. Stallman <rms@gnu.org>
parents:
17862
diff
changeset
|
714 browse-url-netscape-program |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
715 (append browse-url-netscape-arguments |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
716 (list "-remote" command))))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
717 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
718 ;; --- Mosaic --- |
13208 | 719 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
720 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
721 (defun browse-url-mosaic (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
722 ;; new-window ignored |
13208 | 723 "Ask the XMosaic WWW browser to load URL. |
724 Default to the URL around or before point." | |
725 (interactive (browse-url-interactive-arg "Mosaic URL: ")) | |
726 (let ((pidfile (expand-file-name "~/.mosaicpid")) | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
727 pid pidbuf) |
13208 | 728 (if (file-readable-p pidfile) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
729 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
730 (find-file pidfile) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
731 (goto-char (point-min)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
732 (setq pid (read (current-buffer))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
733 (kill-buffer nil))) |
13208 | 734 (if (and pid (zerop (signal-process pid 0))) ; Mosaic running |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
735 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
736 (find-file (format "/tmp/Mosaic.%d" pid)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
737 (erase-buffer) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
738 (insert "goto\n" url "\n") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
739 (save-buffer) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
740 (kill-buffer nil) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
741 ;; Send signal SIGUSR to Mosaic |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
742 (message "Signalling Mosaic...") |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
743 (signal-process pid browse-url-usr1-signal) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
744 ;; Or you could try: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
745 ;; (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
|
746 (message "Signalling Mosaic...done") |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
747 ) |
13208 | 748 ;; Mosaic not running - start it |
749 (message "Starting Mosaic...") | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
750 (apply 'start-process "xmosaic" nil "xmosaic" |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
751 (append browse-url-mosaic-arguments (list url))) |
13933
efd6ce432dc5
(browse-url-mosaic): Print "done" message
Richard M. Stallman <rms@gnu.org>
parents:
13224
diff
changeset
|
752 (message "Starting Mosaic...done")))) |
13208 | 753 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
754 ;; --- Grail --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
755 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
756 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
757 (defvar browse-url-grail |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
758 (concat (or (getenv "GRAILDIR") "~/.grail") "/user/rcgrail.py") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
759 "*Location of Grail remote control client script `rcgrail.py'. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
760 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
|
761 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
762 ;;;###autoload |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
763 (defun browse-url-grail (url &optional new-window) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
764 "Ask the Grail WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
765 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
|
766 variable `browse-url-grail'." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
767 (interactive (browse-url-interactive-arg "Grail URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
768 (message "Sending URL to Grail...") |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
769 (save-excursion |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
770 (set-buffer (get-buffer-create " *Shell Command Output*")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
771 (erase-buffer) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
772 ;; don't worry about this failing. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
773 (call-process browse-url-grail nil 0 nil url) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
774 (message "Sending URL to Grail... done"))) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
775 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
776 ;; --- Mosaic using CCI --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
777 |
13208 | 778 (defun browse-url-cci (url &optional new-window) |
779 "Ask the XMosaic WWW browser to load URL. | |
780 Default to the URL around or before point. | |
781 | |
782 This function only works for XMosaic version 2.5 or later. You must | |
783 select `CCI' from XMosaic's File menu, set the CCI Port Address to the | |
784 value of variable `browse-url-CCI-port', and enable `Accept requests'. | |
785 | |
786 When called interactively, if variable `browse-url-new-window-p' is | |
787 non-nil, load the document in a new browser window, otherwise use a | |
788 random existing one. A non-nil interactive prefix argument reverses | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
789 the effect of `browse-url-new-window-p'. |
13208 | 790 |
791 When called non-interactively, optional second argument NEW-WINDOW is | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
792 used instead of `browse-url-new-window-p'." |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
793 (interactive (browse-url-interactive-arg "Mosaic URL: ")) |
13208 | 794 (open-network-stream "browse-url" " *browse-url*" |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
795 browse-url-CCI-host browse-url-CCI-port) |
13208 | 796 ;; Todo: start browser if fails |
797 (process-send-string "browse-url" | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
798 (concat "get url (" url ") output " |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
799 (if new-window "new" "current") "\r\n")) |
13208 | 800 (process-send-string "browse-url" "disconnect\r\n") |
801 (delete-process "browse-url")) | |
802 | |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
803 ;; --- IXI Mosaic --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
804 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
805 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
806 (defun browse-url-iximosaic (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
807 ;; new-window ignored |
13208 | 808 "Ask the IXIMosaic WWW browser to load URL. |
809 Default to the URL around or before point." | |
810 (interactive (browse-url-interactive-arg "IXI Mosaic URL: ")) | |
811 (start-process "tellw3b" nil "tellw3b" | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
812 "-service WWW_BROWSER ixi_showurl " url)) |
13208 | 813 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
814 ;; --- W3 --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
815 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
816 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
817 (defun browse-url-w3 (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
818 ;; new-window ignored |
13208 | 819 "Ask the w3 WWW browser to load URL. |
820 Default to the URL around or before point." | |
821 (interactive (browse-url-interactive-arg "W3 URL: ")) | |
822 (w3-fetch url)) | |
823 | |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
824 ;;;###autoload |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
825 (defun browse-url-w3-gnudoit (url &optional new-window) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
826 ;; new-window ignored |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
827 "Ask another Emacs running gnuserv to load the URL using the W3 browser. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
828 The `browse-url-gnudoit-program' program is used with options given by |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
829 `browse-url-gnudoit-args'. Default to the URL around or before point." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
830 (interactive (browse-url-interactive-arg "W3 URL: ")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
831 (apply 'start-process (concat "gnudoit:" url) nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
832 browse-url-gnudoit-program |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
833 (append browse-url-gnudoit-args (list (concat "(w3-fetch \"" url "\")") "(raise-frame)")))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
834 |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
835 ;; --- Lynx in an xterm --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
836 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
837 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
838 (defun browse-url-lynx-xterm (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
839 ;; new-window ignored |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
840 "Ask the Lynx WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
841 Default to the URL around or before point. A new Lynx process is run |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
842 in an Xterm window using the Xterm program named by `browse-url-xterm-program' |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
843 with possible additional arguments `browse-url-xterm-args'." |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
844 (interactive (browse-url-interactive-arg "Lynx URL: ")) |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
845 (apply 'start-process (concat "lynx" url) nil browse-url-xterm-program |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
846 (append browse-url-xterm-args (list "-e" "lynx" url)))) |
16415
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
847 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
848 ;; --- Lynx in an Emacs "term" window --- |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
849 |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
850 ;;;###autoload |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
851 (defun browse-url-lynx-emacs (url &optional new-window) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
852 ;; new-window ignored |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
853 "Ask the Lynx WWW browser to load URL. |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
854 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
|
855 an Emacs buffer." |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
856 (interactive (browse-url-interactive-arg "Lynx URL: ")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
857 (let ((system-uses-terminfo t)) ; Lynx uses terminfo |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
858 (if (fboundp 'make-term) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
859 (let ((term-term-name "vt100")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
860 (set-buffer (make-term "browse-url" "lynx" nil url)) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
861 (term-mode) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
862 (term-char-mode) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
863 (switch-to-buffer "*browse-url*")) |
e25afe6ea4d6
(browse-url): New function.
Richard M. Stallman <rms@gnu.org>
parents:
15780
diff
changeset
|
864 (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
|
865 |
18253
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
866 ;; --- MMM --- |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
867 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
868 ;;;###autoload |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
869 (defun browse-url-mmm (url &optional new-window) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
870 "Ask the MMM WWW browser to load URL. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
871 Default to the URL around or before point." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
872 (interactive (browse-url-interactive-arg "MMM URL: ")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
873 (message "Sending URL to MMM...") |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
874 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
875 (set-buffer (get-buffer-create " *Shell Command Output*")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
876 (erase-buffer) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
877 ;; mmm_remote just SEGVs if the file isn't there... |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
878 (if (or (file-exists-p (expand-file-name "~/.mmm_remote")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
879 ;; location in v 0.4: |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
880 (file-exists-p (expand-file-name "~/.mmm/remote"))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
881 (call-process "mmm_remote" nil 0 nil url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
882 (call-process "mmm" nil 0 nil "-external" url)) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
883 (message "Sending URL to MMM... done"))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
884 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
885 ;; --- mailto --- |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
886 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
887 ;;;###autoload |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
888 (defun browse-url-mail (url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
889 "Open a new mail message buffer within Emacs. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
890 Default to the mailto URL around or before point." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
891 (interactive (browse-url-interactive-arg "Mailto URL: ")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
892 (save-excursion |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
893 ;; open mail buffer, specifying TO and REPLYBUFFER |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
894 (mail nil (if (string-match "^mailto:" url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
895 (substring url 7) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
896 url) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
897 nil nil nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
898 (current-buffer)))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
899 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
900 ;; --- Random browser --- |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
901 |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
902 ;;;###autoload |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
903 (defun browse-url-generic (url &optional new-window) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
904 ;; new-window ignored |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
905 "Ask the WWW browser defined by `browse-url-generic-program' to load URL. |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
906 Default to the URL around or before point. A fresh copy of the |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
907 browser is started up in a new process with possible additional arguments |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
908 `browse-url-generic-args'. This is appropriate for browsers which |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
909 don't offer a form of remote control." |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
910 (interactive (browse-url-interactive-arg "URL: ")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
911 (if (not browse-url-generic-program) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
912 (error "No browser defined (`browse-url-generic-program')")) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
913 (apply 'start-process (concat browse-url-generic-program url) nil |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
914 browse-url-generic-program |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
915 (append browse-url-generic-args (list url)))) |
0c8339d10beb
Update keywords to show up in finder.
Richard M. Stallman <rms@gnu.org>
parents:
18224
diff
changeset
|
916 |
13208 | 917 (provide 'browse-url) |
918 | |
919 ;;; browse-url.el ends here |