[elpa] externals/ssh-deploy 20ce7f2 026/133: Created a pred-fined prefix map and hydra map

[Stefan Monnier]

branch: externals/ssh-deploy
commit 20ce7f261e7a32eb96557e598fd7794c3f3734e9
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>

    Created a pred-fined prefix map and hydra map
---
 README.md     | 17 +----------------
 ssh-deploy.el | 39 ++++++++++++++++++++++-----------------
 2 files changed, 23 insertions(+), 33 deletions(-)

diff --git a/README.md b/README.md
index b1efdb7..4e0923b 100644
--- a/README.md
+++ b/README.md
@@ -157,22 +157,7 @@ By combining a `~/.authinfo.gpg` setup and a `public-key` 
setup you should be ab
 (ssh-deploy-line-mode) ;; If you want mode-line feature
 (ssh-deploy-add-after-save-hook) ;; If you want automatic upload support
 (ssh-deploy-add-find-file-hook) ;; If you want detecting remote changes support
-
-(global-set-key (kbd "C-c C-z f") 'ssh-deploy-upload-handler-forced)
-(global-set-key (kbd "C-c C-z u") 'ssh-deploy-upload-handler)
-(global-set-key (kbd "C-c C-z D") 'ssh-deploy-delete-handler)
-(global-set-key (kbd "C-c C-z d") 'ssh-deploy-download-handler)
-(global-set-key (kbd "C-c C-z x") 'ssh-deploy-diff-handler)
-(global-set-key (kbd "C-c C-z t") 
'ssh-deploy-remote-terminal-eshell-base-handler)
-(global-set-key (kbd "C-c C-z T") 'ssh-deploy-remote-terminal-eshell-handler)
-(global-set-key (kbd "C-c C-z h") 
'ssh-deploy-remote-terminal-shell-base-handler)
-(global-set-key (kbd "C-c C-z H") 'ssh-deploy-remote-terminal-shell-handler)
-(global-set-key (kbd "C-c C-z R") 'ssh-deploy-rename-handler)
-(global-set-key (kbd "C-c C-z e") 'ssh-deploy-remote-changes-handler)
-(global-set-key (kbd "C-c C-z b") 'ssh-deploy-browse-remote-base-handler)
-(global-set-key (kbd "C-c C-z o") 'ssh-deploy-open-remote-file-handler)
-(global-set-key (kbd "C-c C-z m") 'ssh-deploy-remote-sql-mysql-handler)
-(global-set-key (kbd "C-c C-z s") 'ssh-deploy-run-deploy-script-handler)
+(global-set-key (kbd "C-c C-z") 'ssh-deploy-prefix-map)
 ```
 
 * Or use the `use-package` and `hydra-script` I'm using:
diff --git a/ssh-deploy.el b/ssh-deploy.el
index a8a8518..352d0f2 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -61,23 +61,8 @@
 ;; - To enable mode line to this:
 ;;    (ssh-deploy-line-mode)
 ;;
-;; - To set key-bindings do something like this:
-;;     (global-set-key (kbd "C-c C-z f") 'ssh-deploy-upload-handler-forced)
-;;     (global-set-key (kbd "C-c C-z u") 'ssh-deploy-upload-handler)
-;;     (global-set-key (kbd "C-c C-z D") 'ssh-deploy-delete-handler)
-;;     (global-set-key (kbd "C-c C-z d") 'ssh-deploy-download-handler)
-;;     (global-set-key (kbd "C-c C-z x") 'ssh-deploy-diff-handler)
-;;     (global-set-key (kbd "C-c C-z t") 
'ssh-deploy-remote-terminal-eshell-base-handler)
-;;     (global-set-key (kbd "C-c C-z T") 
'ssh-deploy-remote-terminal-eshell-handler)
-;;     (global-set-key (kbd "C-c C-z h") 
'ssh-deploy-remote-terminal-shell-base-handler)
-;;     (global-set-key (kbd "C-c C-z H") 
'ssh-deploy-remote-terminal-shell-handler)
-;;     (global-set-key (kbd "C-c C-z R") 'ssh-deploy-rename-handler)
-;;     (global-set-key (kbd "C-c C-z e") 'ssh-deploy-remote-changes-handler)
-;;     (global-set-key (kbd "C-c C-z b") 
'ssh-deploy-browse-remote-base-handler)
-;;     (global-set-key (kbd "C-c C-z B") 'ssh-deploy-browse-remote-handler)
-;;     (global-set-key (kbd "C-c C-z o") 'ssh-deploy-open-remote-file-handler)
-;;     (global-set-key (kbd "C-c C-z m") 'ssh-deploy-remote-sql-mysql-handler)
-;;     (global-set-key (kbd "C-c C-z s") 'ssh-deploy-run-deploy-script-handler)
+;; - To set global key-bindings do something like this:
+;;     (global-set-key (kbd "C-c C-a") 'ssh-deploy-prefix-map)
 ;;
 ;; - To install and set-up using use-package and hydra do this:
 ;;   (use-package ssh-deploy
@@ -1416,6 +1401,26 @@
     ("m" ssh-deploy-remote-sql-mysql-handler)
     ("s" ssh-deploy-run-deploy-script-handler)))
 
+(defvar ssh-deploy-prefix-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "f" 'ssh-deploy-upload-handler-force)
+    (define-key map "u" 'ssh-deploy-upload-handle)
+    (define-key map "D" 'ssh-deploy-delete-handler)
+    (define-key map "d" 'ssh-deploy-download-handler)
+    (define-key map "x" 'ssh-deploy-diff-handler)
+    (define-key map "t" 'ssh-deploy-remote-terminal-eshell-base-handler)
+    (define-key map "T" 'ssh-deploy-remote-terminal-eshell-handler)
+    (define-key map "h" 'ssh-deploy-remote-terminal-shell-base-handler)
+    (define-key map "H" 'ssh-deploy-remote-terminal-shell-handler)
+    (define-key map "R" 'ssh-deploy-rename-handler)
+    (define-key map "e" 'ssh-deploy-remote-changes-handler)
+    (define-key map "b" 'ssh-deploy-browse-remote-base-handler)
+    (define-key map "B" 'ssh-deploy-browse-remote-handler)
+    (define-key map "o" 'ssh-deploy-open-remote-file-handler)
+    (define-key map "m" 'ssh-deploy-remote-sql-mysql-handler)
+    (define-key map "s" 'ssh-deploy-run-deploy-script-handler)))
+(fset 'ssh-deploy-prefix-map ssh-deploy-prefix-map)
+
 
 (provide 'ssh-deploy)
 ;;; ssh-deploy.el ends here