branch: externals/ssh-deploy
commit d1d68b90861a20241c4485a46f7398ab1a3ac14e
Author: Christian Johansson <[email protected]>
Commit: Christian Johansson <[email protected]>
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
