Mercurial > emacs
comparison lisp/net/browse-url.el @ 85654:289916e64e8b
(browse-url-browser-function): Delete grail.
(browse-url-grail): Function and variable deleted.
(browse-url-browser-function): Delete IXI Mosaic.
(browse-url-default-browser): Don't try IXI Mosaic.
(browse-url-iximosaic): Function deleted.
(browse-url-browser-function): Delete MMM.
(browse-url-default-browser): Don't try MMM.
(browse-url-mmm): Function deleted.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 26 Oct 2007 03:51:19 +0000 |
parents | 96e533633b62 |
children | a55a536ce0db |
comparison
equal
deleted
inserted
replaced
85653:58abbc936e8f | 85654:289916e64e8b |
---|---|
44 ;; browse-url-netscape Netscape 1.1b1 | 44 ;; browse-url-netscape Netscape 1.1b1 |
45 ;; browse-url-mosaic XMosaic/mMosaic <= 2.4 | 45 ;; browse-url-mosaic XMosaic/mMosaic <= 2.4 |
46 ;; browse-url-cci XMosaic 2.5 | 46 ;; browse-url-cci XMosaic 2.5 |
47 ;; browse-url-w3 w3 0 | 47 ;; browse-url-w3 w3 0 |
48 ;; browse-url-w3-gnudoit w3 remotely | 48 ;; browse-url-w3-gnudoit w3 remotely |
49 ;; browse-url-iximosaic IXI Mosaic ? | |
50 ;; browse-url-lynx-* Lynx 0 | 49 ;; browse-url-lynx-* Lynx 0 |
51 ;; browse-url-grail Grail 0.3b1 | |
52 ;; browse-url-mmm MMM ? | |
53 ;; browse-url-generic arbitrary | 50 ;; browse-url-generic arbitrary |
54 ;; browse-url-default-windows-browser MS-Windows browser | 51 ;; browse-url-default-windows-browser MS-Windows browser |
55 ;; browse-url-default-macosx-browser Mac OS X browser | 52 ;; browse-url-default-macosx-browser Mac OS X browser |
56 ;; browse-url-gnome-moz GNOME interface to Mozilla | 53 ;; browse-url-gnome-moz GNOME interface to Mozilla |
57 ;; browse-url-kde KDE konqueror (kfm) | 54 ;; browse-url-kde KDE konqueror (kfm) |
77 ;; has a function w3-follow-url-at-point, but that | 74 ;; has a function w3-follow-url-at-point, but that |
78 ;; doesn't let you edit the URL like browse-url. | 75 ;; doesn't let you edit the URL like browse-url. |
79 ;; The `gnuserv' package that can be used to control it in another | 76 ;; The `gnuserv' package that can be used to control it in another |
80 ;; Emacs process is available from | 77 ;; Emacs process is available from |
81 ;; <URL:ftp://ftp.splode.com/pub/users/friedman/packages/>. | 78 ;; <URL:ftp://ftp.splode.com/pub/users/friedman/packages/>. |
82 | |
83 ;; Grail is the freely available WWW browser implemented in Python, a | |
84 ;; cool object-oriented freely available interpreted language. Grail | |
85 ;; 0.3b1 was the first version to have remote control as distributed. | |
86 ;; For more information on Grail see | |
87 ;; <URL:http://grail.cnri.reston.va.us/> and for more information on | |
88 ;; Python see <url:http://www.python.org/>. Grail support in | |
89 ;; browse-url.el written by Barry Warsaw <bwarsaw@python.org>. | |
90 | 79 |
91 ;; Lynx is now distributed by the FSF. See also | 80 ;; Lynx is now distributed by the FSF. See also |
92 ;; <URL:http://lynx.browser.org/>. | 81 ;; <URL:http://lynx.browser.org/>. |
93 | 82 |
94 ;; Free graphical browsers that could be used by `browse-url-generic' | 83 ;; Free graphical browsers that could be used by `browse-url-generic' |
255 (function-item :tag "Galeon" :value browse-url-galeon) | 244 (function-item :tag "Galeon" :value browse-url-galeon) |
256 (function-item :tag "Epiphany" :value browse-url-epiphany) | 245 (function-item :tag "Epiphany" :value browse-url-epiphany) |
257 (function-item :tag "Netscape" :value browse-url-netscape) | 246 (function-item :tag "Netscape" :value browse-url-netscape) |
258 (function-item :tag "Mosaic" :value browse-url-mosaic) | 247 (function-item :tag "Mosaic" :value browse-url-mosaic) |
259 (function-item :tag "Mosaic using CCI" :value browse-url-cci) | 248 (function-item :tag "Mosaic using CCI" :value browse-url-cci) |
260 (function-item :tag "IXI Mosaic" :value browse-url-iximosaic) | |
261 (function-item :tag "Lynx in an xterm window" | 249 (function-item :tag "Lynx in an xterm window" |
262 :value browse-url-lynx-xterm) | 250 :value browse-url-lynx-xterm) |
263 (function-item :tag "Lynx in an Emacs window" | 251 (function-item :tag "Lynx in an Emacs window" |
264 :value browse-url-lynx-emacs) | 252 :value browse-url-lynx-emacs) |
265 (function-item :tag "Grail" :value browse-url-grail) | |
266 (function-item :tag "MMM" :value browse-url-mmm) | |
267 (function-item :tag "KDE" :value browse-url-kde) | 253 (function-item :tag "KDE" :value browse-url-kde) |
268 (function-item :tag "Elinks" :value browse-url-elinks) | 254 (function-item :tag "Elinks" :value browse-url-elinks) |
269 (function-item :tag "Specified by `Browse Url Generic Program'" | 255 (function-item :tag "Specified by `Browse Url Generic Program'" |
270 :value browse-url-generic) | 256 :value browse-url-generic) |
271 (function-item :tag "Default Windows browser" | 257 (function-item :tag "Default Windows browser" |
878 | 864 |
879 When called non-interactively, optional second argument NEW-WINDOW is | 865 When called non-interactively, optional second argument NEW-WINDOW is |
880 used instead of `browse-url-new-window-flag'. | 866 used instead of `browse-url-new-window-flag'. |
881 | 867 |
882 The order attempted is gnome-moz-remote, Mozilla, Firefox, | 868 The order attempted is gnome-moz-remote, Mozilla, Firefox, |
883 Galeon, Konqueror, Netscape, Mosaic, IXI Mosaic, Lynx in an | 869 Galeon, Konqueror, Netscape, Mosaic, Lynx in an xterm, and then W3." |
884 xterm, MMM, and then W3." | |
885 (apply | 870 (apply |
886 (cond | 871 (cond |
887 ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz) | 872 ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz) |
888 ((executable-find browse-url-mozilla-program) 'browse-url-mozilla) | 873 ((executable-find browse-url-mozilla-program) 'browse-url-mozilla) |
889 ((executable-find browse-url-firefox-program) 'browse-url-firefox) | 874 ((executable-find browse-url-firefox-program) 'browse-url-firefox) |
890 ((executable-find browse-url-galeon-program) 'browse-url-galeon) | 875 ((executable-find browse-url-galeon-program) 'browse-url-galeon) |
891 ((executable-find browse-url-kde-program) 'browse-url-kde) | 876 ((executable-find browse-url-kde-program) 'browse-url-kde) |
892 ((executable-find browse-url-netscape-program) 'browse-url-netscape) | 877 ((executable-find browse-url-netscape-program) 'browse-url-netscape) |
893 ((executable-find browse-url-mosaic-program) 'browse-url-mosaic) | 878 ((executable-find browse-url-mosaic-program) 'browse-url-mosaic) |
894 ((executable-find "tellw3b") 'browse-url-iximosaic) | |
895 ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm) | 879 ((executable-find browse-url-xterm-program) 'browse-url-lynx-xterm) |
896 ((executable-find "mmm") 'browse-url-mmm) | |
897 ((locate-library "w3") 'browse-url-w3) | 880 ((locate-library "w3") 'browse-url-w3) |
898 (t | 881 (t |
899 (lambda (&ignore args) (error "No usable browser found")))) | 882 (lambda (&ignore args) (error "No usable browser found")))) |
900 url args)) | 883 url args)) |
901 | 884 |
1255 (message "Starting %s..." browse-url-mosaic-program) | 1238 (message "Starting %s..." browse-url-mosaic-program) |
1256 (apply 'start-process "xmosaic" nil browse-url-mosaic-program | 1239 (apply 'start-process "xmosaic" nil browse-url-mosaic-program |
1257 (append browse-url-mosaic-arguments (list url))) | 1240 (append browse-url-mosaic-arguments (list url))) |
1258 (message "Starting %s...done" browse-url-mosaic-program)))) | 1241 (message "Starting %s...done" browse-url-mosaic-program)))) |
1259 | 1242 |
1260 ;; --- Grail --- | |
1261 | |
1262 (defvar browse-url-grail | |
1263 (concat (or (getenv "GRAILDIR") "~/.grail") "/user/rcgrail.py") | |
1264 "Location of Grail remote control client script `rcgrail.py'. | |
1265 Typically found in $GRAILDIR/rcgrail.py, or ~/.grail/user/rcgrail.py.") | |
1266 | |
1267 ;;;###autoload | |
1268 (defun browse-url-grail (url &optional new-window) | |
1269 "Ask the Grail WWW browser to load URL. | |
1270 Default to the URL around or before point. Runs the program in the | |
1271 variable `browse-url-grail'." | |
1272 (interactive (browse-url-interactive-arg "Grail URL: ")) | |
1273 (message "Sending URL to Grail...") | |
1274 (with-current-buffer (get-buffer-create " *Shell Command Output*") | |
1275 (erase-buffer) | |
1276 ;; don't worry about this failing. | |
1277 (if (browse-url-maybe-new-window new-window) | |
1278 (call-process browse-url-grail nil 0 nil "-b" url) | |
1279 (call-process browse-url-grail nil 0 nil url)) | |
1280 (message "Sending URL to Grail... done"))) | |
1281 | |
1282 ;; --- Mosaic using CCI --- | 1243 ;; --- Mosaic using CCI --- |
1283 | 1244 |
1284 ;;;###autoload | 1245 ;;;###autoload |
1285 (defun browse-url-cci (url &optional new-window) | 1246 (defun browse-url-cci (url &optional new-window) |
1286 "Ask the XMosaic WWW browser to load URL. | 1247 "Ask the XMosaic WWW browser to load URL. |
1307 "new" | 1268 "new" |
1308 "current") | 1269 "current") |
1309 "\r\n")) | 1270 "\r\n")) |
1310 (process-send-string "browse-url" "disconnect\r\n") | 1271 (process-send-string "browse-url" "disconnect\r\n") |
1311 (delete-process "browse-url")) | 1272 (delete-process "browse-url")) |
1312 | |
1313 ;; --- IXI Mosaic --- | |
1314 | |
1315 ;;;###autoload | |
1316 (defun browse-url-iximosaic (url &optional new-window) | |
1317 ;; new-window ignored | |
1318 "Ask the IXIMosaic WWW browser to load URL. | |
1319 Default to the URL around or before point." | |
1320 (interactive (browse-url-interactive-arg "IXI Mosaic URL: ")) | |
1321 (start-process "tellw3b" nil "tellw3b" | |
1322 "-service WWW_BROWSER ixi_showurl " url)) | |
1323 | 1273 |
1324 ;; --- W3 --- | 1274 ;; --- W3 --- |
1325 | 1275 |
1326 ;;;###autoload | 1276 ;;;###autoload |
1327 (defun browse-url-w3 (url &optional new-window) | 1277 (defun browse-url-w3 (url &optional new-window) |
1431 (term-send-string proc (concat "g" ; goto | 1381 (term-send-string proc (concat "g" ; goto |
1432 "\C-u" ; kill default url | 1382 "\C-u" ; kill default url |
1433 url | 1383 url |
1434 "\r"))))) | 1384 "\r"))))) |
1435 | 1385 |
1436 ;; --- MMM --- | |
1437 | |
1438 ;;;###autoload | |
1439 (defun browse-url-mmm (url &optional new-window) | |
1440 "Ask the MMM WWW browser to load URL. | |
1441 Default to the URL around or before point." | |
1442 (interactive (browse-url-interactive-arg "MMM URL: ")) | |
1443 (message "Sending URL to MMM...") | |
1444 (with-current-buffer (get-buffer-create " *Shell Command Output*") | |
1445 (erase-buffer) | |
1446 ;; mmm_remote just SEGVs if the file isn't there... | |
1447 (if (or (file-exists-p (expand-file-name "~/.mmm_remote")) | |
1448 ;; location in v 0.4: | |
1449 (file-exists-p (expand-file-name "~/.mmm/remote"))) | |
1450 (call-process "mmm_remote" nil 0 nil url) | |
1451 (call-process "mmm" nil 0 nil "-external" url)) | |
1452 (message "Sending URL to MMM... done"))) | |
1453 | |
1454 ;; --- mailto --- | 1386 ;; --- mailto --- |
1455 | 1387 |
1456 (autoload 'rfc2368-parse-mailto-url "rfc2368") | 1388 (autoload 'rfc2368-parse-mailto-url "rfc2368") |
1457 | 1389 |
1458 ;;;###autoload | 1390 ;;;###autoload |