simple func for adding www addresses

Hello


Sorry for any double posting:

The following primitive hack adds a www address to my bbdb 

             
(defun my-bbdb-add-www ()
 (interactive)
 (let ((myurl (ffap-url-at-point)))
   (find-file-confirm-non-existing "~/.bbdb")
   (goto-char (point-max))
   (insert "[nil nil nil nil nil nil nil ((creation-date . \"")
   (insert (time-stamp-yyyy-mm-dd))
   (insert "\")")
   (insert "(timestamp. \"")
   (insert (time-stamp-yyyy-mm-dd))
   (insert "\")")
   (insert " (www . \" ")
   (insert myurl)
   (insert " \"))")
   (insert " nil]")))





Does anybody have an idea about a cleaner solution?




Thanks




Uwe Brauer



-------------------------------------------------------
This SF.Net email is sponsored by BEA Weblogic Workshop
FREE Java Enterprise J2EE developer tools!
Get your free copy of BEA WebLogic Workshop 8.1 today.
http://ads.osdn.com/?ad_id=5047&alloc_id=10808&op=click
_______________________________________________
bbdb-info@xxxxxxxxxxxxxxxxxxxxx
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/