Browse Source
* gnu/packages/emacs-xyz.scm (emacs-hyperbole): Add at 7.0.3 Signed-off-by: Jakub Kądziołka <kuba@kadziolka.net>wip-haskell-updates-2
LaFreniere, Joseph
3 years ago
committed by
Jakub Kądziołka
Jakub Kądziołka
4 changed files with 207 additions and 0 deletions
@ -0,0 +1,24 @@ |
|||
From 3016fbd61e47978be73bbbaf7a8c2709bec42066 Mon Sep 17 00:00:00 2001 |
|||
From: Joseph LaFreniere <joseph@lafreniere.xyz> |
|||
Date: Fri, 12 Jul 2019 13:12:40 -0500 |
|||
Subject: [PATCH] Do not run hyperb:check-dir-user during initialization |
|||
|
|||
---
|
|||
hyperbole.el | 1 - |
|||
1 file changed, 1 deletion(-) |
|||
|
|||
diff --git a/hyperbole.el b/hyperbole.el
|
|||
index 872dbaf..6edb2a7 100644
|
|||
--- a/hyperbole.el
|
|||
+++ b/hyperbole.el
|
|||
@@ -653,7 +653,6 @@ If FLAG is nil then text is shown, while if FLAG is t the text is hidden."
|
|||
(interactive) |
|||
(message "Initializing Hyperbole...") |
|||
(run-hooks 'hyperbole-init-hook) |
|||
- (hyperb:check-dir-user)
|
|||
(or (stringp hyperb:user-email) |
|||
(setq hyperb:user-email |
|||
(or (and (boundp 'user-mail-address) |
|||
--
|
|||
2.22.0 |
|||
|
|||
@ -0,0 +1,29 @@ |
|||
From 17c87ac58ce6d475fa1987347fcb868ef7f75e40 Mon Sep 17 00:00:00 2001 |
|||
From: Joseph LaFreniere <joseph@lafreniere.xyz> |
|||
Date: Sun, 2 Jun 2019 12:38:27 -0500 |
|||
Subject: [PATCH] Replace executable domainname with hostname |
|||
|
|||
Fixes build failure: |
|||
> ice-9/boot-9.scm:752:25: In procedure dispatch-exception: |
|||
> patch-el-files: unable to locate "domainname" |
|||
---
|
|||
hypb.el | 3 +-- |
|||
1 file changed, 1 insertion(+), 2 deletions(-) |
|||
|
|||
diff --git a/hypb.el b/hypb.el
|
|||
index 6abc17a..0332946 100644
|
|||
--- a/hypb.el
|
|||
+++ b/hypb.el
|
|||
@@ -183,8 +183,7 @@ Global keymap is used unless optional KEYMAP is given."
|
|||
|
|||
(defun hypb:domain-name () |
|||
"Returns current Internet domain name with '@' prepended or nil if none." |
|||
- (let* ((dname-cmd (or (file-exists-p "/usr/bin/domainname")
|
|||
- (file-exists-p "/bin/domainname")))
|
|||
+ (let* ((dname-cmd (file-exists-p "/bin/hostname"))
|
|||
(dname (or (and (boundp 'message-user-fqdn) (stringp message-user-fqdn) |
|||
(string-match "\\." message-user-fqdn) |
|||
message-user-fqdn) |
|||
--
|
|||
2.21.0 |
|||
|
|||
@ -0,0 +1,86 @@ |
|||
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 |
|||
|
|||
Loading…
Reference in new issue