[elpa] externals/ssh-deploy d1d68b9 128/173: Started with new menu in menu-bar

[Stefan Monnier]

branch: externals/ssh-deploy
commit d1d68b90861a20241c4485a46f7398ab1a3ac14e
Author: Christian Johansson <address@hidden>
Commit: Christian Johansson <address@hidden>

    Started with new menu in menu-bar
---
 ssh-deploy.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/ssh-deploy.el b/ssh-deploy.el
index a1bce06..48761b9 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -1098,6 +1098,24 @@
         (ssh-deploy-browse-remote root-local root-local ssh-deploy-root-remote 
ssh-deploy-exclude-list))))
 
 
+;;; Menu-bar logic
+
+;; Creating a new menu pane in the menu bar to the right of “Tools” menu
+(define-key-after
+  global-map
+  [menu-bar sshdeploy]
+  (cons "Deployment" (make-sparse-keymap "Menu for SSH Deploy"))
+  'tools)
+(define-key
+  global-map
+  [menu-bar sshdeploy nl]
+  '("Upload" . ssh-deploy-upload-handler))
+(define-key
+  global-map
+  [menu-bar sshdeploy pl]
+  '("Download" . ssh-deploy-download-handler))
+
+
 (provide 'ssh-deploy)
 ;;; ssh-deploy.el ends here