[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy 20ce7f2 026/133: Created a pred-fined prefix
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy 20ce7f2 026/133: Created a pred-fined prefix map and hydra map |
Date: |
Sat, 27 Mar 2021 14:48:37 -0400 (EDT) |
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
- [elpa] externals/ssh-deploy 71796c3 006/133: Optimization for menu-code completed, (continued)
- [elpa] externals/ssh-deploy 71796c3 006/133: Optimization for menu-code completed, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 6fbc09f 010/133: Various changes relating to changing optional boolean argument to, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy b93b944 009/133: Updated README for optional threading and mode-line, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d934ef8 017/133: More work on optional booleans to integers, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy edee8df 019/133: Improved documentation, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 4073f79 014/133: Updated documentation to suggest ~/.authinfo.gpg usage, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 2048399 021/133: Passing async-with-threads to directory diff, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 54ec0d2 023/133: Updated mode-line logic for deletions, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy fbc6e85 025/133: Created predefined hydra, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 947a3c7 024/133: Improved usability with pre-defined hooks, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 20ce7f2 026/133: Created a pred-fined prefix map and hydra map,
Stefan Monnier <=
- [elpa] externals/ssh-deploy a12e59f 027/133: Updated comments, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy c1f8837 029/133: Updated documentation with pre-defined hydra and pre-fix map, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d548011 036/133: Fixed bug with constant definition, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d853e2f 040/133: Fixed issue with passing local variables to diff-mode, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 98c00bb 042/133: Fixed bug with synchronous forced uploads, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 103588b 050/133: Running custom script asynchronously loads ssh-deploy library, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 2b3a531 012/133: Updated date, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy d7a42fe 015/133: Replaced (concat) with (expand-file-name), Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 80cd448 011/133: Merge branch 'master' of https://github.com/cjohansson/emacs-ssh-deploy, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 861f1c7 013/133: Updated documentation, Stefan Monnier, 2021/03/27