branch: externals/ssh-deploy
commit 088ed2214bbfacb574f4d1f823ece7fadfd369e7
Author: Christian Johansson <christ...@cvj.se>
Commit: Christian Johansson <christ...@cvj.se>
Added separators to menu and changed order of items
---
ssh-deploy.el | 79 +++++++++++++++++++++++++++++++++++++++++------------------
1 file changed, 55 insertions(+), 24 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index d31687f..07f0045 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -1106,62 +1106,93 @@
[menu-bar sshdeploy]
(cons "Deployment" (make-sparse-keymap "Menu for SSH Deploy"))
'tools)
+
(define-key
global-map
- [menu-bar sshdeploy ul]
- '("Upload" . ssh-deploy-upload-handler))
+ [menu-bar sshdeploy pq]
+ '("PostgreSQL" . ssh-deploy-remote-sql-postgres-handler))
(define-key
global-map
- [menu-bar sshdeploy dl]
- '("Download" . ssh-deploy-download-handler))
+ [menu-bar sshdeploy mq]
+ '("MySQL" . ssh-deploy-remote-sql-mysql-handler))
(define-key
global-map
- [menu-bar sshdeploy df]
- '("Difference" . ssh-deploy-diff-handler))
+ [menu-bar sshdeploy sep1]
+ '("--"))
+
(define-key
global-map
- [menu-bar sshdeploy rn]
- '("Rename" . ssh-deploy-rename-handler))
+ [menu-bar sshdeploy sb]
+ '("Shell Base" . ssh-deploy-remote-terminal-shell-base-handler))
(define-key
global-map
- [menu-bar sshdeploy rc]
- '("Detect Remote Changes" . ssh-deploy-remote-changes-handler))
+ [menu-bar sshdeploy ss]
+ '("Shell" . ssh-deploy-remote-terminal-shell-handler))
(define-key
global-map
- [menu-bar sshdeploy br]
- '("Browse" . ssh-deploy-browse-remote-handler))
+ [menu-bar sshdeploy sep2]
+ '("--"))
+
(define-key
global-map
- [menu-bar sshdeploy bb]
- '("Browse Base" . ssh-deploy-browse-remote-base-handler))
+ [menu-bar sshdeploy eb]
+ '("Eshell Base" . ssh-deploy-remote-terminal-eshell-base-handler))
(define-key
global-map
[menu-bar sshdeploy es]
'("Eshell" . ssh-deploy-remote-terminal-eshell-handler))
(define-key
global-map
- [menu-bar sshdeploy eb]
- '("Eshell Base" . ssh-deploy-remote-terminal-eshell-base-handler))
+ [menu-bar sshdeploy sep3]
+ '("--"))
+
(define-key
global-map
- [menu-bar sshdeploy ss]
- '("Shell" . ssh-deploy-remote-terminal-shell-handler))
+ [menu-bar sshdeploy bb]
+ '("Browse Base" . ssh-deploy-browse-remote-base-handler))
(define-key
global-map
- [menu-bar sshdeploy sb]
- '("Shell Base" . ssh-deploy-remote-terminal-shell-base-handler))
+ [menu-bar sshdeploy br]
+ '("Browse" . ssh-deploy-browse-remote-handler))
(define-key
global-map
- [menu-bar sshdeploy mq]
- '("MySQL" . ssh-deploy-remote-sql-mysql-handler))
+ [menu-bar sshdeploy sep4]
+ '("--"))
+
(define-key
global-map
- [menu-bar sshdeploy pq]
- '("PostgreSQL" . ssh-deploy-remote-sql-postgres-handler))
+ [menu-bar sshdeploy df]
+ '("Difference" . ssh-deploy-diff-handler))
+(define-key
+ global-map
+ [menu-bar sshdeploy rc]
+ '("Detect Remote Changes" . ssh-deploy-remote-changes-handler))
+(define-key
+ global-map
+ [menu-bar sshdeploy sep5]
+ '("--"))
+
+(define-key
+ global-map
+ [menu-bar sshdeploy rn]
+ '("Rename" . ssh-deploy-rename-handler))
(define-key
global-map
[menu-bar sshdeploy op]
'("Open" . ssh-deploy-open-remote-file-handler))
+(define-key
+ global-map
+ [menu-bar sshdeploy sep6]
+ '("--"))
+
+(define-key
+ global-map
+ [menu-bar sshdeploy ul]
+ '("Upload" . ssh-deploy-upload-handler))
+(define-key
+ global-map
+ [menu-bar sshdeploy dl]
+ '("Download" . ssh-deploy-download-handler))
(provide 'ssh-deploy)
