[nongnu] elpa/hyperdrive e46c5d7805 095/123: Change: (hyperdrive-menu) Reorder version section

[ELPA Syncer]

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

    Change: (hyperdrive-menu) Reorder version section
---
 hyperdrive-menu.el | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index d8cb6d8d4f..d1fd2f8560 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -81,7 +81,21 @@
                                                         "latest"))
                                             'face 'transient-value))
                       "Version"))
-     ("V h" "History" hyperdrive-history)
+     ("V p" "Previous" hyperdrive-previous-version
+      :inapt-if-not (lambda ()
+                      (hyperdrive-entry-previous (oref transient--prefix 
scope) :cache-only t))
+      ;; :transient t
+      :description (lambda ()
+                     (if-let ((entry (oref transient--prefix scope))
+                              (hyperdrive (hyperdrive-entry-hyperdrive entry)))
+                         (concat "Previous"
+                                 (pcase-exhaustive (hyperdrive-entry-previous 
entry :cache-only t)
+                                   ('unknown (concat ": " (propertize "?" 
'face 'transient-value)))
+                                   ('nil nil)
+                                   ((cl-struct hyperdrive-entry version)
+                                    (concat ": " (propertize (number-to-string 
version)
+                                                             'face 
'transient-value)))))
+                       "Previous")))
      ("V n" "Next" hyperdrive-next-version
       :inapt-if-not (lambda  ()
                       (let ((entry (oref transient--prefix scope)))
@@ -99,21 +113,7 @@
                                                               
(number-to-string next-version)
                                                             "latest")))
                                (concat ": " (propertize display-version 'face 
'transient-value))))))
-     ("V p" "Previous" hyperdrive-previous-version
-      :inapt-if-not (lambda ()
-                      (hyperdrive-entry-previous (oref transient--prefix 
scope) :cache-only t))
-      ;; :transient t
-      :description (lambda ()
-                     (if-let ((entry (oref transient--prefix scope))
-                              (hyperdrive (hyperdrive-entry-hyperdrive entry)))
-                         (concat "Previous"
-                                 (pcase-exhaustive (hyperdrive-entry-previous 
entry :cache-only t)
-                                   ('unknown (concat ": " (propertize "?" 
'face 'transient-value)))
-                                   ('nil nil)
-                                   ((cl-struct hyperdrive-entry version)
-                                    (concat ": " (propertize (number-to-string 
version)
-                                                             'face 
'transient-value)))))
-                       "Previous")))]
+     ("V h" "History" hyperdrive-history)]
     [ ;; Current
      :description
      (lambda ()