[elpa] externals/ebdb 015bd25 038/350: New search command ebdb-search-record-class

[Eric Abrahamsen]

branch: externals/ebdb
commit 015bd257e00086bdb3524b3f09e3ff131cef36e1
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    New search command ebdb-search-record-class
    
    * ebdb-com.el (ebdb-search-record-class): Search by record class.
      (ebdb-mode-map): Give it a keybinding.
---
 ebdb-com.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/ebdb-com.el b/ebdb-com.el
index c323719..23b1bfa 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -333,6 +333,7 @@ With ARG a negative number do not append."
     (define-key km (kbd "/ N")         'ebdb-search-user-fields)
     (define-key km (kbd "/ x")         'ebdb-search-user-fields)
     (define-key km (kbd "/ c")         'ebdb-search-changed)
+    (define-key km (kbd "/ C")         'ebdb-search-record-class)
     (define-key km (kbd "/ d")         'ebdb-search-duplicates)
     (define-key km (kbd "/ D")         'ebdb-search-database)
     (define-key km (kbd "C-x n w")     'ebdb-display-all-records)
@@ -2009,6 +2010,15 @@ The search results are displayed in the EBDB buffer."
   (ebdb-display-records (slot-value db 'records) fmt))
 
 ;;;###autoload
+(defun ebdb-search-record-class (class &optional fmt)
+  "Prompt for a record class and display all records of that class."
+  (interactive (list (eieio-read-subclass "Use which record class? " 
'ebdb-record nil t)
+                    (ebdb-formatter-prefix)))
+  (let ((recs (seq-filter (lambda (r) (object-of-class-p t class))
+                        (ebdb-records))))
+    (ebdb-display-records recs fmt)))
+
+;;;###autoload
 (defun ebdb-display-one-record (record &optional fmt)
   "Prompt for a single record, and display it."
   (interactive (list (ebdb-completing-read-records "Display records: ")