[nongnu] elpa/hyperdrive 086e8358fe 15/20: Change: (-menu-bar-menu) Make "Drives" inactive when no hyperdrives

[ELPA Syncer]

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

    Change: (-menu-bar-menu) Make "Drives" inactive when no hyperdrives
---
 hyperdrive.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/hyperdrive.el b/hyperdrive.el
index 44f27e0a5e..824d33ba24 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -826,6 +826,10 @@ The return value of this function is the retrieval buffer."
     ["New Drive" hyperdrive-new
      :help "Create a new hyperdrive"]
     ("Drives"
+     :active (< 0 (hash-table-count hyperdrive-hyperdrives))
+     :label (if (= 0 (hash-table-count hyperdrive-hyperdrives))
+                "Drives (empty)"
+              "Drives")
      :filter (lambda (_)
                (cl-loop for drive in (sort (hash-table-values 
hyperdrive-hyperdrives)
                                            (lambda (a b)