emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive b52601fdb5 073/163: Change: (hyperdrive-menu) "


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive b52601fdb5 073/163: Change: (hyperdrive-menu) "not found" gateway status indicator
Date: Fri, 31 May 2024 04:00:16 -0400 (EDT)

branch: elpa/hyperdrive
commit b52601fdb533ecc5f25d9e72dd513317e1ba3bba
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-menu) "not found" gateway status indicator
---
 hyperdrive-menu.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index ca581d4917..ce6f7ad13b 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -208,6 +208,11 @@
               (propertize
                (cond ((h//gateway-ready-p) "on")
                      ((h/gateway-live-p) "starting")
+                     ((and (equal h/gateway-start-function
+                                  (eval (car (get 'h/gateway-start-function
+                                                  'standard-value))))
+                           (not (h//hyper-gateway-ushin-path)))
+                      "not found")
                      (t "off"))
                'face 'transient-value)))
     ("G s" "Start" h/start



reply via email to

[Prev in Thread] Current Thread [Next in Thread]