On Friday Jan 18, 2002, Robert Fenk wrote:
> On Tuesday, January 8, 2002 at 20:32:08, Galen Boyer wrote:
> > If I have a few records showing in my BBDB, is there anyway to
> > make the visible records remain while I search for a different
> > string. The resulting bbdb buffer would be a union of the
> > records from the anchored buffer and the "just found" records.
>
> The current CVS version (not release) of BBDB has this now.
> Press "+" to append once or "C-u 5" to append the next five
> times or "C-u +" to always append until you press it again.
I use bbdb-query for this, Works great to filter down the
bbdb buffer to exactly the list of records you want,
allowing you to append or remove matching entries. I'm
surprised it's not in the main distrubtion. Any reason for
that?
Howard
================================================================
;; bbdb-query.el
;; version: 1.0 Oct 7 '94
;;
;; Copyright (C) 1993 1994 Cengiz Alaettinoglu <[EMAIL PROTECTED]>
;;
;; LCD Archive Entry:
;; bbdb-query|Cengiz Alaettinoglu|[EMAIL PROTECTED]|
;; BBDB Query/Append/Flush/Keep functions.|
;; 07-Oct-1994|1.0|~/misc/bbdb-query.el|
;;
;; This program 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.
;;
;; This program 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 didn't receive a copy of the GNU General Public License along
;; with this program; so, write to the Free Software Foundation, Inc.,
;; 675 Mass Ave, Cambridge, MA 02139, USA.
;;
;;----------------------------------------------------------------------------
;;
;; DESCRIPTION:
;; All of the following commands asks for a field name
;; and a regular expression, then
;; bbdb-query
;; displays only the matching records in the BBDB buffer
;; bbdb-append
;; appends the matching records to the BBDB buffer
;; bbdb-flush
;; deletes the matching records from the BBDB buffer
;; bbdb-keep
;; keeps only the matching records in the BBDB buffer
;;
;; To search for all fields press RET at the field prompt.
;; To search for all note fields enter "notes" at the field prompt.
;;
;; INSTALLATION:
;;
;; Add this to your .emacs:
;;
;; (require 'bbdb-query)
;;
;; and put this elisp file somewhere on your load-path and byte-compile it.
;;
(require 'bbdb-com)
(provide 'bbdb-query)
(define-key bbdb-mode-map "B" 'bbdb-query)
(define-key bbdb-mode-map "A" 'bbdb-append)
(define-key bbdb-mode-map "F" 'bbdb-flush)
(define-key bbdb-mode-map "K" 'bbdb-keep)
(defun bbdb-query (elidep)
"Append all entries in the BBDB matching the regexp STRING
in either the name(s), company, network address, or notes."
(interactive "P")
(let ((bbdb-elided-display (bbdb-grovel-elide-arg elidep))
(bbdb-append nil))
(bbdb-display-records-1
(bbdb-search-field (bbdb-records)) bbdb-append)))
(defun bbdb-append (elidep)
"Append all entries in the BBDB matching the regexp STRING
in either the name(s), company, network address, or notes."
(interactive "P")
(let ((bbdb-elided-display (bbdb-grovel-elide-arg elidep))
(bbdb-append t))
(bbdb-display-records-1
(bbdb-search-field (bbdb-records)) bbdb-append)))
(defun bbdb-keep (elidep)
"Keep only the entries in the BBDB buffer matching the regexp STRING
in either the name(s), company, network address, or notes."
(interactive "P")
(let ((bbdb-elided-display (bbdb-grovel-elide-arg elidep))
(bbdb-append nil)
(ca-bbdb-records nil))
(setq ca-bbdb-records (mapcar 'car bbdb-records))
(bbdb-display-records-1
(bbdb-search-field ca-bbdb-records) bbdb-append)))
(defun bbdb-flush (elidep)
"Keep only the entries in the BBDB buffer matching the regexp STRING
in either the name(s), company, network address, or notes."
(interactive "P")
(let ((bbdb-elided-display (bbdb-grovel-elide-arg elidep))
(bbdb-append nil)
(ca-bbdb-records nil)
(ca-bbdb-records-matched nil)
(ptr nil))
(setq ca-bbdb-records (mapcar 'car bbdb-records))
(setq ca-bbdb-records-matched
(bbdb-search-field ca-bbdb-records))
(setq ptr (cdr ca-bbdb-records)
parent ca-bbdb-records)
(while ptr
(if (member (car ptr) ca-bbdb-records-matched)
(setcdr parent (cdr ptr))
(setq parent ptr))
(setq ptr (cdr ptr)))
(if (and ca-bbdb-records
(member (car ca-bbdb-records) ca-bbdb-records-matched))
(setq ca-bbdb-records (cdr ca-bbdb-records)))
(bbdb-display-records-1 ca-bbdb-records bbdb-append)))
(defun bbdb-search-field (records)
"Read field name and string. Display all entries in RECORDS matching string in the
named field."
(let ((which nil)
(string "")
(which-notes ""))
(setq which
(completing-read
"Field to search (RET for all): "
(append '(("name")("company")("net")("notes")("phones"))
(bbdb-propnames))
nil t))
(and (string= which "notes")
(setq which-notes ""))
(if (assoc which (bbdb-propnames))
(progn (setq which-notes which)
(setq which "notes")))
(setq string (read-string "Regular Expression: "))
(if (string= which "")
(bbdb-query-all records string)
(if (string= which "notes")
(bbdb-query-notes records (if (string= which-notes "")
(cons '* string)
(cons (intern which-notes) string)))
(funcall (intern (concat "bbdb-query-" which)) records string)))))
(defun bbdb-query-all (records string)
"Display all entries in the BBDB matching the regexp STRING
in either the name(s), company, network address, or notes."
(interactive "sRegular Expression: \nP")
(let ((notes (cons '* string)))
(bbdb-search records string string string notes nil)))
(defun bbdb-query-name (records string)
"Display all entries in the BBDB matching the regexp STRING in the name
\(or ``alternate'' names\)."
(bbdb-search records string))
(defun bbdb-query-company (records string)
"Display all entries in BBDB matching STRING in the company field."
(bbdb-search records nil string))
(defun bbdb-query-net (records string)
"Display all entries in BBDB matching regexp STRING in the network address."
(bbdb-search records nil nil string))
(defun bbdb-query-notes (records string)
"Display all entries in BBDB matching STRING in the named notes field."
(bbdb-search records nil nil nil string))
(defun bbdb-query-phones (records string)
"Display all entries in BBDB matching the regexp STRING in the phones field."
(bbdb-search records nil nil nil nil string))
_______________________________________________
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/bbdb-info
BBDB Home Page: http://bbdb.sourceforge.net/
