[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive e3d22082cf 6/7: Tidy: Move gateway configuratio
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive e3d22082cf 6/7: Tidy: Move gateway configuration into configuration section |
Date: |
Sat, 31 Aug 2024 13:00:20 -0400 (EDT) |
branch: elpa/hyperdrive
commit e3d22082cf68eeab61b209affb18336960d27279
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Tidy: Move gateway configuration into configuration section
---
hyperdrive-vars.el | 88 +++++++++++++++++++++++++++---------------------------
1 file changed, 44 insertions(+), 44 deletions(-)
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 35bd11e65d..741e499c03 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -271,6 +271,50 @@ value (and should only be present once in the string).
Used in
(cons :tag "Hyperdrive domains" (const domains)
(string :tag "Format string"))))
+;;;;;; Gateway configuration
+
+(defgroup hyperdrive-gateway nil
+ "Starting and stopping the gateway."
+ :group 'hyperdrive)
+
+(declare-function h//gateway-start-default "hyperdrive-lib")
+(defcustom h/gateway-start-function #'h//gateway-start-default
+ "Function called to start the gateway.
+If this function signals an error, the `h/gateway-ready-hook'
+will not be run; otherwise, the hook will be run when the gateway
+appears to be ready."
+ :type 'function)
+
+(declare-function h//gateway-stop-default "hyperdrive-lib")
+(defcustom h/gateway-stop-function #'h//gateway-stop-default
+ "Function called to stop the gateway.
+This function should signal an error if it fails to stop the
+gateway process."
+ :type 'function)
+
+(declare-function h/gateway-live-p-default "hyperdrive-lib")
+(defcustom h/gateway-live-predicate #'h/gateway-live-p-default
+ "Predicate function which returns non-nil if the gateway process is live."
+ :type 'function)
+
+(defcustom h/gateway-ready-hook
+ '( h/check-gateway-version
+ h/announce-gateway-ready
+ h/menu-refresh)
+ "Hook called when gateway is ready after starting it.
+This hook is called by `hyperdrive--gateway-wait-for-ready' after
+`hyperdrive-start'."
+ :type 'hook)
+
+(defcustom h/gateway-dead-hook
+ '( h//gateway-cleanup-default
+ h/announce-gateway-stopped
+ h/menu-refresh)
+ "Hook called when gateway is ready after stopping it.
+This hook is called by `hyperdrive--gateway-wait-for-dead' after
+`hyperdrive-stop'."
+ :type 'hook)
+
;;;;; Faces
(defgroup hyperdrive-faces nil
@@ -439,50 +483,6 @@ Keys are regexps matched against MIME types.")
:desc "Name"))
"Fields for sorting hyperdrive directory buffer columns.")
-;;;;;; Gateway configuration
-
-(defgroup hyperdrive-gateway nil
- "Starting and stopping the gateway."
- :group 'hyperdrive)
-
-(declare-function h//gateway-start-default "hyperdrive-lib")
-(defcustom h/gateway-start-function #'h//gateway-start-default
- "Function called to start the gateway.
-If this function signals an error, the `h/gateway-ready-hook'
-will not be run; otherwise, the hook will be run when the gateway
-appears to be ready."
- :type 'function)
-
-(declare-function h//gateway-stop-default "hyperdrive-lib")
-(defcustom h/gateway-stop-function #'h//gateway-stop-default
- "Function called to stop the gateway.
-This function should signal an error if it fails to stop the
-gateway process."
- :type 'function)
-
-(declare-function h/gateway-live-p-default "hyperdrive-lib")
-(defcustom h/gateway-live-predicate #'h/gateway-live-p-default
- "Predicate function which returns non-nil if the gateway process is live."
- :type 'function)
-
-(defcustom h/gateway-ready-hook
- '( h/check-gateway-version
- h/announce-gateway-ready
- h/menu-refresh)
- "Hook called when gateway is ready after starting it.
-This hook is called by `hyperdrive--gateway-wait-for-ready' after
-`hyperdrive-start'."
- :type 'hook)
-
-(defcustom h/gateway-dead-hook
- '( h//gateway-cleanup-default
- h/announce-gateway-stopped
- h/menu-refresh)
- "Hook called when gateway is ready after stopping it.
-This hook is called by `hyperdrive--gateway-wait-for-dead' after
-`hyperdrive-stop'."
- :type 'hook)
-
;;;; Footer
(provide 'hyperdrive-vars)
- [nongnu] elpa/hyperdrive updated (5e34cc22d0 -> 9e7ebe32ba), ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive 41646669a9 1/7: Fix: (h/stop) Set h//gateway-starting-timer to nil, ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive ee98e49ffb 3/7: Tidy: (h/restart) Use with-demoted-errors, ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive ed23b13af3 4/7: Docs: Document h/gateway-dead-hook, ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive 3d70849484 2/7: Tidy: (hyperdrive-start) Error phrasing, ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive d80f83006d 5/7: Add: (hyperdrive-gateway) Customization group, ELPA Syncer, 2024/08/31
- [nongnu] elpa/hyperdrive e3d22082cf 6/7: Tidy: Move gateway configuration into configuration section,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 9e7ebe32ba 7/7: Tidy: Put internals at same section level as configuration, ELPA Syncer, 2024/08/31