From 6d5c587ec719e3309077c7d637b03b13db65c047 Mon Sep 17 00:00:00 2001 From: Joseph LaFreniere 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 tyle package inputs....* guix/import/egg.scm (egg->guix-package): Generate dependency list from a list of symbols. [egg-parse-dependency]: Return a list of symbols. [maybe-inputs]: Wrap INPUTS in 'list' instead of 'quasiquote'. * tests/egg.scm (match-chicken-foo): Adjust accordingly. Signed-off-by: Ludovic Courtès <ludo@gnu.org> Sarah Morgensen 2021-06-03import: Add CHICKEN egg importer....* guix/import/egg.scm: New file. * guix/scripts/import/egg.scm: New file. * tests/egg.scm: New file. * Makefile.am (MODULES, SCM_TESTS): Register them. * po/guix/POTFILES.in: Likewise. * guix/scripts/import.scm (importers): Add egg importer. * doc/guix.texi (Invoking guix import, Invoking guix refresh): Document it. Signed-off-by: Ludovic Courtès <ludo@gnu.org> Xinglu Chen