Source

;;; 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.;;;; $Id$;;(require'bbdb-com)(require'browse-url)(defvarw3-mode-map)(eval-when-compile(condition-case()(require'url)(error(fset'url-view-url'ignore))));;;###autoload(defunbbdb-www(rec&optionalwhich)"Visit URLs stored in the `www' field 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-get-record"Visit (WWW): ")(orcurrent-prefix-arg0)))(browse-url(read-string"fetch: "(bbdb-get-fieldrec'wwwwhich))));;;###autoload(defunbbdb-www-grab-homepage(record)"Grab the current URL and store it in the bbdb database"(interactive(list(bbdb-completing-read-one-record"Add WWW homepage for: ")));; if there is no database record for this person, create one(unlessrecord(setqrecord(bbdb-read-new-record))(bbdb-invoke-hook'bbdb-create-hookrecord))(if(bbdb-record-getproprecord'www)(bbdb-record-putproprecord'www(concat(bbdb-record-getproprecord'www)","(url-view-urlt)))(bbdb-record-putproprecord'www(url-view-urlt)))(bbdb-change-recordrecordt)(bbdb-display-records(listrecord)));;;###autoload(defunbbdb-insinuate-w3()"Call this function to hook BBDB into W3."(add-hook'w3-mode-hook(lambda()(define-keyw3-mode-map":"'bbdb-www-grab-homepage))))(provide'bbdb-w3)