[PATCH 5/8] emacs: Pass plist to `notmuch-search-show-result'
Austin Clements
amdragon at MIT.EDU
Tue Jul 3 15:20:56 PDT 2012
Rather than passing lots of arguments and then further passing those
to `notmuch-search-insert-field', pass a plist containing all of the
search result information. This plist is compatible JSON format
search results.
---
emacs/notmuch.el | 65 +++++++++++++++++++++++++++++++-----------------------
1 file changed, 38 insertions(+), 27 deletions(-)
diff --git a/emacs/notmuch.el b/emacs/notmuch.el
index a073367..084cec6 100644
--- a/emacs/notmuch.el
+++ b/emacs/notmuch.el
@@ -707,41 +707,46 @@ non-authors is found, assume that all of the authors match."
(overlay-put overlay 'isearch-open-invisible #'delete-overlay)))
(insert padding))))
-(defun notmuch-search-insert-field (field format date count authors subject tags)
+(defun notmuch-search-insert-field (field format result)
(cond
((string-equal field "date")
- (insert (propertize (format format date)
+ (insert (propertize (format format (plist-get result :date_relative))
'face 'notmuch-search-date)))
((string-equal field "count")
- (insert (propertize (format format count)
+ (insert (propertize (format format (format "[%s/%s]"
+ (plist-get result :matched)
+ (plist-get result :total)))
'face 'notmuch-search-count)))
((string-equal field "subject")
- (insert (propertize (format format subject)
+ (insert (propertize (format format (plist-get result :subject))
'face 'notmuch-search-subject)))
((string-equal field "authors")
- (notmuch-search-insert-authors format authors))
+ (notmuch-search-insert-authors format (plist-get result :authors)))
((string-equal field "tags")
(insert
- (format format (propertize tags 'font-lock-face 'notmuch-tag-face))))))
+ (format format (propertize
+ (mapconcat 'identity (plist-get result :tags) " ")
+ 'font-lock-face 'notmuch-tag-face))))))
-(defun notmuch-search-show-result (thread-id date count authors subject tags)
+(defun notmuch-search-show-result (result)
;; Ignore excluded matches
- (unless (eq (aref count 1) ?0)
- (let ((beg (point-max))
- (tags-str (mapconcat 'identity tags " ")))
+ (unless (= (plist-get result :matched) 0)
+ (let ((beg (point-max)))
(save-excursion
(goto-char beg)
(dolist (format notmuch-search-result-format)
- (notmuch-search-insert-field (car format) (cdr format)
- date count authors subject tags-str))
+ (notmuch-search-insert-field (car format) (cdr format) result))
(insert "\n")
- (notmuch-search-color-line beg (point) tags)
- (put-text-property beg (point) 'notmuch-search-thread-id thread-id)
- (put-text-property beg (point) 'notmuch-search-authors authors)
- (put-text-property beg (point) 'notmuch-search-subject subject))
- (when (string= thread-id notmuch-search-target-thread)
+ (notmuch-search-color-line beg (point) (plist-get result :tags))
+ (put-text-property beg (point) 'notmuch-search-thread-id
+ (concat "thread:" (plist-get result :thread)))
+ (put-text-property beg (point) 'notmuch-search-authors
+ (plist-get result :authors))
+ (put-text-property beg (point) 'notmuch-search-subject
+ (plist-get result :subject)))
+ (when (string= (plist-get result :thread) notmuch-search-target-thread)
(setq notmuch-search-target-thread "found")
(goto-char beg)))))
@@ -765,18 +770,24 @@ non-authors is found, assume that all of the authors match."
(while more
(while (and (< line (length string)) (= (elt string line) ?\n))
(setq line (1+ line)))
- (if (string-match "^\\(thread:[0-9A-Fa-f]*\\) \\([^][]*\\) \\(\\[[0-9/]*\\]\\) \\([^;]*\\); \\(.*\\) (\\([^()]*\\))$" string line)
+ (if (string-match "^thread:\\([0-9A-Fa-f]*\\) \\([^][]*\\) \\[\\([0-9]*\\)/\\([0-9]*\\)\\] \\([^;]*\\); \\(.*\\) (\\([^()]*\\))$" string line)
(let* ((thread-id (match-string 1 string))
- (date (match-string 2 string))
- (count (match-string 3 string))
- (authors (match-string 4 string))
- (subject (match-string 5 string))
- (tags (match-string 6 string))
- (tag-list (if tags (save-match-data (split-string tags)))))
- (if (/= (match-beginning 1) line)
+ (tags-str (match-string 7 string))
+ (result (list :thread thread-id
+ :date_relative (match-string 2 string)
+ :matched (string-to-number
+ (match-string 3 string))
+ :total (string-to-number
+ (match-string 4 string))
+ :authors (match-string 5 string)
+ :subject (match-string 6 string)
+ :tags (if tags-str
+ (save-match-data
+ (split-string tags-str))))))
+ (if (/= (match-beginning 0) line)
(notmuch-search-show-error
- (substring string line (match-beginning 1))))
- (notmuch-search-show-result thread-id date count authors subject tag-list)
+ (substring string line (match-beginning 0))))
+ (notmuch-search-show-result result)
(set 'line (match-end 0)))
(set 'more nil)
(while (and (< line (length string)) (= (elt string line) ?\n))
--
1.7.10
More information about the notmuch
mailing list