[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 015bd25 038/350: New search command ebdb-search-re
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb 015bd25 038/350: New search command ebdb-search-record-class |
Date: |
Mon, 14 Aug 2017 11:45:58 -0400 (EDT) |
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: ")
- [elpa] externals/ebdb 16cdf2c 028/350: Provide protection for relations to unloaded records, (continued)
- [elpa] externals/ebdb 16cdf2c 028/350: Provide protection for relations to unloaded records, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 50f39b6 031/350: Forgot about rmail, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb b0778d6 033/350: Make ebdb-display-records non-interactive, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 1ee7829 012/350: Don't auto-save unsynced databases, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb ac0b822 010/350: Switch to using kbd macro in keymap def, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9edb0c0 015/350: Sort out catch-all version of ebdb-make-buffer-name, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 74ed051 009/350: Better customization setup for record fields, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c803f1c 004/350: Forgot extra argument to ebdb-delete-i18n, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 22734d1 019/350: Select newly-cloned buffers, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 94c7c6b 039/350: Provide ebdb-load guards in a few more places, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 015bd25 038/350: New search command ebdb-search-record-class,
Eric Abrahamsen <=
- [elpa] externals/ebdb f288cba 034/350: Use "d" prefix for record/database move commands, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7721bf3 044/350: Mess with autoloads, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7126d5d 027/350: Hash record uuids during the loading process, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 60aea3d 045/350: ebdb-create-record: set record class outside of interactive call, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb e178321 051/350: Trailing code in last commit, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c212316 014/350: First commit of buffer improvements, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb dbd3559 042/350: Do away with ebdb-seen-uuids, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7570ed9 040/350: Protect against non-present records in role delete method, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c44b910 056/350: New ebdb-copy-mail-as-kill command, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 10b0fa4 057/350: Use save-excursion in ebdb-toggle-all-record-marks, Eric Abrahamsen, 2017/08/14