diff options
author | Austin Clements <amdragon@MIT.EDU> | 2012-12-15 15:04:16 -0500 |
---|---|---|
committer | David Bremner <bremner@debian.org> | 2012-12-16 17:00:22 -0400 |
commit | 66c935cff37fcab1ef7b0a5cecf5bc1c62d8d2ed (patch) | |
tree | 1fb3f2df33641c2813f6be80cdb5fc0f40b97061 /emacs/notmuch-query.el | |
parent | 0844af35eb9a4843fbf7053ca37f9f69bbafdcb1 (diff) |
emacs: Factor out synchronous notmuch JSON invocations
Previously this code was duplicated between show and reply. This
factors out synchronously invoking notmuch and parsing the output as
JSON.
Diffstat (limited to 'emacs/notmuch-query.el')
-rw-r--r-- | emacs/notmuch-query.el | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/emacs/notmuch-query.el b/emacs/notmuch-query.el index d66baeab..e7e35207 100644 --- a/emacs/notmuch-query.el +++ b/emacs/notmuch-query.el @@ -29,18 +29,11 @@ A thread is a forest or list of trees. A tree is a two element list where the first element is a message, and the second element is a possibly empty forest of replies. " - (let ((args '("show" "--format=json")) - (json-object-type 'plist) - (json-array-type 'list) - (json-false 'nil)) + (let ((args '("show" "--format=json"))) (if notmuch-show-process-crypto (setq args (append args '("--decrypt")))) (setq args (append args search-terms)) - (with-temp-buffer - (progn - (apply 'call-process (append (list notmuch-command nil (list t nil) nil) args)) - (goto-char (point-min)) - (json-read))))) + (apply #'notmuch-call-notmuch-json args))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Mapping functions across collections of messages. |