/[emacs]/emacs/lisp/net/webjump.el
ViewVC logotype

Diff of /emacs/lisp/net/webjump.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pj, Tue Dec 11 07:01:35 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:20:31 2003 UTC
# Line 1  Line 1 
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>
# Line 109  Line 109 
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:
# Line 133  Line 133 
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="
# Line 144  Line 144 
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                     ""])                     ""])
# Line 287  Please submit bug reports and other feed Line 287  Please submit bug reports and other feed
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)))))))
# Line 343  Please submit bug reports and other feed Line 343  Please submit bug reports and other feed
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)))

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26