1 |
;;; webjump.el --- programmable Web hotlist |
;;; webjump.el --- programmable Web hotlist |
2 |
|
|
3 |
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. |
;; Copyright (C) 1996, 1997 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Neil W. Van Dyke <nwv@acm.org> |
;; Author: Neil W. Van Dyke <nwv@acm.org> |
109 |
"ftp://ftp.luth.se/pub/unix/gnu" |
"ftp://ftp.luth.se/pub/unix/gnu" |
110 |
"ftp://ftp.sunet.se/pub/gnu" |
"ftp://ftp.sunet.se/pub/gnu" |
111 |
"ftp://archive.eu.net" |
"ftp://archive.eu.net" |
112 |
;; SOUTH AMERICA: |
;; SOUTH AMERICA: |
113 |
"ftp://ftp.inf.utfsm.cl/pub/gnu" |
"ftp://ftp.inf.utfsm.cl/pub/gnu" |
114 |
"ftp://ftp.unicamp.br/pub/gnu" |
"ftp://ftp.unicamp.br/pub/gnu" |
115 |
;; WESTERN CANADA: |
;; WESTERN CANADA: |
133 |
"ftp://ftp.emacs.org/pub/") |
"ftp://ftp.emacs.org/pub/") |
134 |
|
|
135 |
;; Internet search engines. |
;; Internet search engines. |
136 |
("AltaVista" . |
("AltaVista" . |
137 |
[simple-query |
[simple-query |
138 |
"www.altavista.digital.com" |
"www.altavista.digital.com" |
139 |
"www.altavista.digital.com/cgi-bin/query?pg=aq&what=web&fmt=.&q=" |
"www.altavista.digital.com/cgi-bin/query?pg=aq&what=web&fmt=.&q=" |
144 |
("Lycos" . |
("Lycos" . |
145 |
[simple-query "www.lycos.com" |
[simple-query "www.lycos.com" |
146 |
"www.lycos.com/cgi-bin/pursuit?cat=lycos&query=" ""]) |
"www.lycos.com/cgi-bin/pursuit?cat=lycos&query=" ""]) |
147 |
("Yahoo" . |
("Yahoo" . |
148 |
[simple-query "www.yahoo.com" "search.yahoo.com/bin/search?p=" ""]) |
[simple-query "www.yahoo.com" "search.yahoo.com/bin/search?p=" ""]) |
149 |
|
|
150 |
;; Misc. general interest. |
;; Misc. general interest. |
151 |
("Interactive Weather Information Network" . webjump-to-iwin) |
("Interactive Weather Information Network" . webjump-to-iwin) |
152 |
("Usenet FAQs" . |
("Usenet FAQs" . |
153 |
[simple-query "www.cis.ohio-state.edu/hypertext/faq/usenet/FAQ-List.html" |
[simple-query "www.cis.ohio-state.edu/hypertext/faq/usenet/FAQ-List.html" |
154 |
"www.cis.ohio-state.edu/htbin/search-usenet-faqs/form?find=" |
"www.cis.ohio-state.edu/htbin/search-usenet-faqs/form?find=" |
155 |
""]) |
""]) |
287 |
((symbolp expr) |
((symbolp expr) |
288 |
(if (fboundp expr) |
(if (fboundp expr) |
289 |
(funcall expr name) |
(funcall expr name) |
290 |
(error "WebJump URL function \"%s\" undefined" |
(error "WebJump URL function \"%s\" undefined" |
291 |
expr))) |
expr))) |
292 |
(t (error "WebJump URL expression for \"%s\" invalid" |
(t (error "WebJump URL expression for \"%s\" invalid" |
293 |
name))))))) |
name))))))) |
343 |
;; Note: I should make this more robust someday. |
;; Note: I should make this more robust someday. |
344 |
(let ((input (webjump-read-string prompt))) |
(let ((input (webjump-read-string prompt))) |
345 |
(if input (string-to-number input)))) |
(if input (string-to-number input)))) |
346 |
|
|
347 |
(defun webjump-read-string (prompt) |
(defun webjump-read-string (prompt) |
348 |
(let ((input (read-string (concat prompt ": ")))) |
(let ((input (read-string (concat prompt ": ")))) |
349 |
(if (webjump-null-or-blank-string-p input) nil input))) |
(if (webjump-null-or-blank-string-p input) nil input))) |
350 |
|
|
351 |
(defun webjump-read-url-choice (what urls &optional default) |
(defun webjump-read-url-choice (what urls &optional default) |
352 |
;; Note: Convert this to use `webjump-read-choice' someday. |
;; Note: Convert this to use `webjump-read-choice' someday. |
353 |
(let* ((completions (mapcar (function (lambda (n) (cons n n))) |
(let* ((completions (mapcar (function (lambda (n) (cons n n))) |