[nongnu] elpa/hyperdrive 0c6c613333 15/21: Change: (-menu-bar-menu) Add "Mirror" submenu in "Drives"

[ELPA Syncer]

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

    Change: (-menu-bar-menu) Add "Mirror" submenu in "Drives"
---
 hyperdrive.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/hyperdrive.el b/hyperdrive.el
index 51a598755e..7355d1680b 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -885,6 +885,12 @@ The return value of this function is the retrieval buffer."
                                                                             
:target-directory target-dir)))
                                               :active `(hyperdrive-writablep 
,drive)
                                               :help "Upload files to 
hyperdrive")
+                                      (vector "Mirror" #'hyperdrive-mirror
+                                              ;; TODO: `hyperdrive-mirror''s 
interactive form will also prompt
+                                              ;; for a drive. After changing 
`hyperdrive-mirror' to use
+                                              ;; Transient.el, we should pass 
in the default drive argument.
+                                              :active `(hyperdrive-writablep 
,drive)
+                                              :help "Mirror a directory to 
hyperdrive")
                                       "---"
                                       (vector "Petname"
                                               ;; HACK: We have to unquote the 
value of the entry because it seems that the filter
@@ -971,6 +977,9 @@ The return value of this function is the retrieval buffer."
                                     :target-directory target-dir)))
        :active (hyperdrive-writablep (hyperdrive-entry-hyperdrive 
hyperdrive-current-entry))
        :help "Upload files to hyperdrive"]
+      ["Mirror" hyperdrive-mirror
+       :active (hyperdrive-writablep (hyperdrive-entry-hyperdrive 
hyperdrive-current-entry))
+       :help "Mirror a directory to hyperdrive"]
       "---"
       ["Petname"
        ;; TODO: Remove this and following workarounds for [INSERT-BUG-HERE] 
when fixed.