[nongnu] elpa/hyperdrive 91e40facbd 26/33: Change: (-global-easy-menu) Sort "Drives" submenu

[ELPA Syncer]

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

    Change: (-global-easy-menu) Sort "Drives" submenu
---
 hyperdrive.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 2b48fccf63..e57dc2e3db 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -817,7 +817,10 @@ The return value of this function is the retrieval buffer."
      :help "Create a new hyperdrive"]
     ("Drives"
      :filter (lambda (_)
-               (cl-loop for drive in (hash-table-values hyperdrive-hyperdrives)
+               (cl-loop for drive in (sort (hash-table-values 
hyperdrive-hyperdrives)
+                                           (lambda (a b)
+                                             (string< (hyperdrive--format-host 
a :with-label t)
+                                                      (hyperdrive--format-host 
b :with-label t))))
                         for entry = (hyperdrive-entry-create :hyperdrive drive)
                         collect (list (hyperdrive--format-host drive 
:with-label t)
                                       (vector "Describe"