branch master updated: gnu: emacs-flycheck-grammalecte: Disable checks for updates.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 4a42ef0  gnu: emacs-flycheck-grammalecte: Disable checks for updates.
4a42ef0 is described below

commit 4a42ef00152064aee86d3d4b3ea0c650009f610b
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Feb 5 17:33:28 2021 +0100

    gnu: emacs-flycheck-grammalecte: Disable checks for updates.
    
    * gnu/packages/emacs-xyz.scm (emacs-flycheck-grammalecte)[arguments]: Add
    a phase to disable checks for updates.
---
 gnu/packages/emacs-xyz.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 584ea26..e544e43 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -4810,7 +4810,15 @@ for Flow files.")
                                "/lib/python"
                                ,(version-major+minor (package-version python))
                                "/site-packages/grammalecte")))
-             #t)))))
+             #t))
+         (add-after 'unpack 'do-not-phone-home
+           ;; The package wants to check upstream Grammalecte version to
+           ;; decide if an update is in order.  Always return version
+           ;; installed so it doesn't phone home and doesn't install anything.
+           (lambda _
+             (substitute* "flycheck-grammalecte.el"
+               (("\\(flycheck-grammalecte--grammalecte-upstream-version\\)")
+                ,(format #f "\"~a\"" (package-version grammalecte)))))))))
     (inputs
      `(("grammalecte" ,grammalecte)
        ("python" ,python)))