[DRAFT PATCH] emacs: notmuch-version and version comparison with CLI

[Mark Walters]

Hi

I think I would prefer some more specific versioning so that we don't
have the warning unless we think we might need it. I often run notmuch
over ssh and the two sides are often minorly out of sync so I think I
would find a warning each time irritating. 

Maybe basing the message on "version + commits since last release" with
  emacs knowing some minimum acceptable version?

Best wishes

Mark


  Tomi Ollila <tomi.ollila at iki.fi> writes:

> ---
>
> This is continuation of id:m2y59ag9yj.fsf at guru.guru-group.fi
>
> This is draft of code which could be used to do exact version comparison
> between notmuch cli and notmuch Emacs MUA.
>
> In case the versions aren't exactly same a warning message is shown
> to the user before notmuch-hello window is filled the first time.
>
> If this approach gets support I'll write more prepared patches
> (in addition to make fully working patch...).
>
> Tomi
>
>  emacs/Makefile.local   |  4 +++-
>  emacs/notmuch-hello.el | 26 +++++++++++++++++++++++++-
>  2 files changed, 28 insertions(+), 2 deletions(-)
>
> diff --git a/emacs/Makefile.local b/emacs/Makefile.local
> index a910aff..fd45d4a 100644
> --- a/emacs/Makefile.local
> +++ b/emacs/Makefile.local
> @@ -36,7 +36,9 @@ $(dir)/.eldeps: $(dir)/Makefile.local $(dir)/make-deps.el $(emacs_sources)
>  CLEAN+=$(dir)/.eldeps $(dir)/.eldeps.tmp
>  
>  %.elc: %.el $(global_deps)
> -	$(call quiet,EMACS) --directory emacs -batch -f batch-byte-compile $<
> +	$(call quiet,EMACS) --directory emacs \
> +		--eval "(setq notmuch--version \"$(VERSION)\")" \
> +		-batch -f batch-byte-compile $<
>  
>  ifeq ($(WITH_EMACS),1)
>  ifeq ($(HAVE_EMACS),1)
> diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el
> index 147c08c..d97aee3 100644
> --- a/emacs/notmuch-hello.el
> +++ b/emacs/notmuch-hello.el
> @@ -29,6 +29,18 @@
>  (declare-function notmuch-search "notmuch" (&optional query oldest-first target-thread target-line continuation))
>  (declare-function notmuch-poll "notmuch" ())
>  
> +;; defconst notmuch-version to a value during build-time byte compilation...
> +;; the compiled output will only contain the defconst definition
> +(eval-when-compile
> +  (defmacro expand-defconst-notmuch-version ()
> +    `(if ,(boundp 'notmuch--version)
> +         (defconst notmuch-version ,notmuch--version
> +           "Version string for this version of Notmuch.")
> +       (defconst notmuch-version "unknown"
> +         "Placeholder for Notmuch version string. Set during build process.")))
> +)
> +(expand-defconst-notmuch-version)
> +
>  (defcustom notmuch-hello-recent-searches-max 10
>    "The number of recent searches to display."
>    :type 'integer
> @@ -762,7 +774,19 @@ following:
>  
>    (if no-display
>        (set-buffer "*notmuch-hello*")
> -    (switch-to-buffer "*notmuch-hello*"))
> +    (switch-to-buffer "*notmuch-hello*")
> +    (if notmuch-hello-first-run
> +	(let ((v (replace-regexp-in-string "^notmuch " ""
> +					   (car (process-lines notmuch-command
> +							       "--version")))))
> +	  (unless (string= v notmuch-version)
> +	    (save-excursion
> +	      (erase-buffer)
> +	      (insert "
> +Notmuch CLI version: " v "
> +Notmuch Emacs version: " notmuch-version "
> +
> +XXX") (y-or-n-p "Press y or n to continue"))))))
>  
>    (let ((target-line (line-number-at-pos))
>  	(target-column (current-column))
> -- 
> 1.8.1.4
>
> _______________________________________________
> notmuch mailing list
> notmuch at notmuchmail.org
> http://notmuchmail.org/mailman/listinfo/notmuch