[elpa] externals/ssh-deploy 088ed22 132/173: Added separators to menu and changed order of items

[Stefan Monnier]

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

    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)