01/02: gnu: emacs-hyperbole: Update to 8.0.0.

[guix-commits]

ngz pushed a commit to branch master
in repository guix.

commit f6b18b53722d8ce5a3f0c961a95015a204c95b62
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Wed Jul 13 16:02:36 2022 +0200

    gnu: emacs-hyperbole: Update to 8.0.0.
    
    * gnu/packages/emacs-xyz.scm (emacs-hyperbole): Update to 8.0.0.
    [arguments]<#:include>: Use %default-include.
    <#:phases>: Add build fix.
    * gnu/packages/patches/emacs-hyperbole-toggle-messaging.patch: Remove file.
    * gnu/local.mk (dist_patch_DATA): Delete reference to removed file.
---
 gnu/local.mk                                       |  1 -
 gnu/packages/emacs-xyz.scm                         | 26 +++----
 .../patches/emacs-hyperbole-toggle-messaging.patch | 86 ----------------------
 3 files changed, 13 insertions(+), 100 deletions(-)

diff --git a/gnu/local.mk b/gnu/local.mk
index c567c3d519..9f8a2eeb82 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1033,7 +1033,6 @@ dist_patch_DATA =                                         
\
   %D%/packages/patches/emacs-json-reformat-fix-tests.patch     \
   %D%/packages/patches/emacs-helpful-fix-docstring-test.patch  \
   %D%/packages/patches/emacs-highlight-stages-add-gexp.patch   \
-  %D%/packages/patches/emacs-hyperbole-toggle-messaging.patch  \
   %D%/packages/patches/emacs-libgit-use-system-libgit2.patch    \
   %D%/packages/patches/emacs-lispy-fix-thread-last-test.patch   \
   %D%/packages/patches/emacs-source-date-epoch.patch           \
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 73a1649fd0..0cc6797024 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -594,36 +594,36 @@ uploading PlatformIO projects.")
 (define-public emacs-hyperbole
   (package
     (name "emacs-hyperbole")
-    (version "7.1.3")
+    (version "8.0.0")
     (source
      (origin
        (method url-fetch)
        (uri (string-append "https://elpa.gnu.org/packages/";
                            "hyperbole-" version ".tar"))
        (sha256
-        (base32 "0bizibn4qgxqp89fyik6p47s9hss1g932mg8k7pznn3kkhj5c8rh"))
-       (patches
-        (search-patches "emacs-hyperbole-toggle-messaging.patch"))))
+        (base32 "171x7jad62xd0n3xgs32dksyhn5abxj1kna0qgm65mm0v73hrv8d"))))
     (build-system emacs-build-system)
     (arguments
-     `(#:include '("DEMO"
-                   "DEMO-ROLO.otl"
-                   "HY-ABOUT"
-                   "man/hkey-help.txt"
-                   "\\.el$"
-                   "\\.info$"
-                   "\\.kotl$")
+     `(#:include (cons* "DEMO"
+                        "DEMO-ROLO.otl"
+                        "HY-ABOUT"
+                        "man/hkey-help.txt"
+                        "\\.kotl$"
+                        %default-include)
        #:phases
        (modify-phases %standard-phases
          ;; Fix build issues about missing "domainname" and "hpmap:dir-user"
-         ;; parent dir.
+         ;; parent dir, and missing require in "hgnus.el" (void-function:
+         ;; var-append).
          (add-after 'unpack 'fix-build
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "hypb.el"
                (("/bin/domainname")
                 (search-input-file inputs "bin/dnsdomainname")))
              (substitute* "hyperbole.el"
-               (("\\(hyperb:check-dir-user\\)") ""))))
+               (("\\(hyperb:check-dir-user\\)") ""))
+             (substitute* "hgnus.el"
+               (("hmail ") "hmail hvar "))))
          (add-after 'install 'install-images
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
diff --git a/gnu/packages/patches/emacs-hyperbole-toggle-messaging.patch 
b/gnu/packages/patches/emacs-hyperbole-toggle-messaging.patch
deleted file mode 100644
index ab66e1b389..0000000000
--- a/gnu/packages/patches/emacs-hyperbole-toggle-messaging.patch
+++ /dev/null
@@ -1,86 +0,0 @@
-From 6d5c587ec719e3309077c7d637b03b13db65c047 Mon Sep 17 00:00:00 2001
-From: Joseph LaFreniere <joseph@lafreniere.xyz>
-Date: Fri, 12 Jul 2019 12:43:46 -0500
-Subject: [PATCH] Move definition of hyperbole-toggle-messaging to hsettings
-
----
- hsettings.el | 25 +++++++++++++++++++++++++
- hyperbole.el | 26 --------------------------
- 2 files changed, 25 insertions(+), 26 deletions(-)
-
-diff --git a/hsettings.el b/hsettings.el
-index 6cdd1b8..9632067 100644
---- a/hsettings.el
-+++ b/hsettings.el
-@@ -163,6 +163,31 @@ package to display search results."
-                             search-term)))
-       (user-error "(Hyperbole): Invalid web search service `%s'" 
service-name))))
- 
-+;;;###autoload
-+(defun hyperbole-toggle-messaging (&optional arg)
-+  "Toggle Hyperbole support for explicit buttons in mail and news buffers.
-+Toggles the boolean variable `inhibit-hyperbole-messaging’ and either
-+adds hooks (nil value) or removes them (t value).
-+
-+With optional prefix ARG > 0, enables support.  If ARG <= 0,
-+disables/inhibits support."
-+  (interactive "P")
-+  (setq inhibit-hyperbole-messaging (if (null arg)
-+                                      (not inhibit-hyperbole-messaging)
-+                                    (<= (prefix-numeric-value arg) 0)))
-+  (if inhibit-hyperbole-messaging
-+      (var:remove-all)
-+    (var:append-all)
-+    ;; Add any hooks that were skipped when inhibit-hyperbole-messaging
-+    ;; was nil.
-+    (cond ((boundp 'hyperbole-loading))
-+        ((not after-init-time)
-+         (add-hook 'after-init-hook (lambda () (load "hyperbole"))))
-+        (t (load "hyperbole"))))
-+  (if (called-interactively-p 'interactive)
-+      (message "Hyperbole messaging button support is %s"
-+             (if inhibit-hyperbole-messaging "disabled" "enabled"))))
-+
- (defcustom inhibit-hyperbole-messaging t
-   "*Determines whether Hyperbole supports explicit buttons in mail and news 
buffers.
- The default of t means disable such support (work remains to
-diff --git a/hyperbole.el b/hyperbole.el
-index 4aa427d..872dbaf 100644
---- a/hyperbole.el
-+++ b/hyperbole.el
-@@ -121,32 +121,6 @@
-                           t)))
-     (error "(Hyperbole): Startup failure: `hyperb:dir' must be manually added 
to `load-path' to fix.")))
- 
--;; This must be defined before the defcustom `inhbit-hyperbole-messaging'.
--;;;###autoload
--(defun hyperbole-toggle-messaging (&optional arg)
--  "Toggle Hyperbole support for explicit buttons in mail and news buffers.
--Toggles the boolean variable `inhibit-hyperbole-messaging’ and either
--adds hooks (nil value) or removes them (t value).
--
--With optional prefix ARG > 0, enables support.  If ARG <= 0,
--disables/inhibits support."
--  (interactive "P")
--  (setq inhibit-hyperbole-messaging (if (null arg)
--                                      (not inhibit-hyperbole-messaging)
--                                    (<= (prefix-numeric-value arg) 0)))
--  (if inhibit-hyperbole-messaging
--      (var:remove-all)
--    (var:append-all)
--    ;; Add any hooks that were skipped when inhibit-hyperbole-messaging
--    ;; was nil.
--    (cond ((boundp 'hyperbole-loading))
--        ((not after-init-time)
--         (add-hook 'after-init-hook (lambda () (load "hyperbole"))))
--        (t (load "hyperbole"))))
--  (if (called-interactively-p 'interactive)
--      (message "Hyperbole messaging button support is %s"
--             (if inhibit-hyperbole-messaging "disabled" "enabled"))))
--
- (defgroup hyperbole-koutliner nil
-   "Hyperbole multi-level autonumbered outliner customizations."
-   :group 'hyperbole)
--- 
-2.22.0
-