contrib: pick: use the sexp parser

This just converts notmuch-pick to use the sexp parser.
This commit is contained in:
Mark Walters 2013-06-01 20:04:43 +01:00 committed by David Bremner
parent b6a60cf355
commit 5461c31d64

View file

@ -773,8 +773,7 @@ Complete list of currently available key bindings:
(save-excursion (save-excursion
(goto-char (point-max)) (goto-char (point-max))
(insert string)) (insert string))
(notmuch-json-parse-partial-list 'notmuch-pick-insert-forest-thread (notmuch-sexp-parse-partial-list 'notmuch-pick-insert-forest-thread
'notmuch-pick-show-error
results-buf))))) results-buf)))))
(defun notmuch-pick-worker (basic-query &optional query-context target buffer) (defun notmuch-pick-worker (basic-query &optional query-context target buffer)
@ -796,7 +795,7 @@ Complete list of currently available key bindings:
(if notmuch-pick-asynchronous-parser (if notmuch-pick-asynchronous-parser
(let ((proc (start-process (let ((proc (start-process
"notmuch-pick" buffer "notmuch-pick" buffer
notmuch-command "show" "--body=false" "--format=json" notmuch-command "show" "--body=false" "--format=sexp"
message-arg search-args)) message-arg search-args))
;; Use a scratch buffer to accumulate partial output. ;; Use a scratch buffer to accumulate partial output.
;; This buffer will be killed by the sentinel, which ;; This buffer will be killed by the sentinel, which