From: Tomi Ollila <tomi.ollila@iki.fi>
To: David Bremner <david@tethera.net>, notmuch@notmuchmail.org
Subject: Re: [PATCH] emacs: add a function to heuristically test if the CLI is
	configured OK.
In-Reply-To: <1390763615-24477-1-git-send-email-david@tethera.net>
References: <1390762444-18793-1-git-send-email-david@tethera.net>
	<1390763615-24477-1-git-send-email-david@tethera.net>
User-Agent: Notmuch/0.17+55~g4397960 (http://notmuchmail.org) Emacs/24.3.1
	(x86_64-unknown-linux-gnu)
Date: Sun, 26 Jan 2014 21:54:24 +0200
Message-ID: <m28uu25xjj.fsf@guru.guru-group.fi>
MIME-Version: 1.0
Content-Type: text/plain
Precedence: list

On Sun, Jan 26 2014, David Bremner <david@tethera.net> wrote:

> We cache the result so that we can call the function many places
> without worrying about the cost.
> ---
> thanks to Tomi for catching the typos (uncommitted changes on my end).

Series LGTM.

Tomi

>
>  emacs/notmuch-lib.el | 11 +++++++++++
>  1 file changed, 11 insertions(+)
>
> diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el
> index 2be409b..140d760 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
> -- 
> 1.8.5.2
>
> _______________________________________________
> notmuch mailing list
> notmuch@notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch