1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
;;; This file is part of the Insidious Big Brother Database (aka BBDB),
;;; copyright (c) 1991, 1992, 1993 Jamie Zawinski <jwz@netscape.com>.
;;; WWW-related functions for the BBDB. See bbdb.texinfo.
;;; The Insidious Big Brother Database is free software; you can redistribute
;;; it and/or modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 2 or (at your
;;; option) any later version.
;;;
;;; BBDB is distributed in the hope that it will be useful, but WITHOUT ANY
;;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;;; details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;
;; bbdb-w3.el,v 1.5 1998/01/06 06:18:22 simmonmt Exp
;;
;; bbdb-w3.el,v
;; Revision 1.5 1998/01/06 06:18:22 simmonmt
;; Removed autoloads and added provide for bbdb-w3
;;
;; Revision 1.4 1997/10/26 05:03:49 simmonmt
;; Use browse-url-browser-function rather than a funcall
;;
;; Revision 1.3 1997/10/12 00:18:50 simmonmt
;; Added bbdb-insinuate-w3 to set keyboard map correctly. Merged
;; bbdb-www-netscape into bbdb-www using browse-url-browser-function to
;; differentiate.
;;
;; Revision 1.2 1997/10/11 20:21:32 simmonmt
;; Modifications mailed in by David Carlton <carlton@math.mit.edu>. They
;; look to be mostly adaptations for netscape
;;
;; Revision 1.1 1997/10/11 19:05:54 simmonmt
;; Initial revision
;;
;;
(defun bbdb-www (all)
"Visit URL's stored in `www' fields of the current record.
\\[bbdb-apply-next-command-to-all-records]\\[bbdb-www] \
means to try all records currently visible.
Non-interactively, do all records if arg is nonnil."
(interactive (list (bbdb-do-all-records-p)))
(let ((urls (mapcar '(lambda (r) (bbdb-record-getprop r 'www))
(if all
(mapcar 'car bbdb-records)
(list (bbdb-current-record)))))
(got-one nil))
(while urls
(cond ((car urls)
(or (fboundp 'browse-url) (autoload 'browse-url "browse-url"))
(browse-url (setq got-one (car urls)))))
(setq urls (cdr urls)))
(if (not got-one)
(error "No WWW field!"))))
(defun bbdb-www-grab-homepage (record)
"Grab the current URL and store it in the bbdb database"
(interactive (list (bbdb-completing-read-record "Add WWW homepage for: ")))
;; if there is no database record for this person, create one
(cond ((null record)
(setq record (bbdb-read-new-record))
(bbdb-invoke-hook 'bbdb-create-hook record))
;; .. ok, it already exists ..
(t nil))
(bbdb-record-putprop record 'www (url-view-url t))
(bbdb-change-record record t)
(bbdb-display-records (list record)))
(defun bbdb-insinuate-w3 ()
"Call this function to hook BBDB into W3."
(add-hook 'w3-mode-hook
'(lambda () (define-key w3-mode-map ":" 'bbdb-www-grab-homepage))))
(provide 'bbdb-w3)
|
