From 71d6a405815d8c7894e7241a944ff782eb886245 Mon Sep 17 00:00:00 2001 From: David Bremner Date: Sun, 26 Jan 2014 14:13:48 -0400 Subject: emacs: add a function to heuristically test if the CLI is configured OK. We cache the result so that we can call the function many places without worrying about the cost. --- emacs/notmuch-lib.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'emacs') diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 2be409b3..140d7603 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -168,6 +168,17 @@ Otherwise the output will be returned" (notmuch-check-exit-status status (cons notmuch-command args) output) output))) +(defvar notmuch--cli-sane-p nil + "Cache whether the CLI seems to be configured sanely.") + +(defun notmuch-cli-sane-p () + "Return t if the cli seems to be configured sanely." + (unless notmuch--cli-sane-p + (let ((status (call-process notmuch-command nil nil nil + "config" "get" "user.primary_email"))) + (setq notmuch--cli-sane-p (= status 0)))) + notmuch--cli-sane-p) + (defun notmuch-version () "Return a string with the notmuch version number." (let ((long-string -- cgit v1.2.3