[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ssh-deploy df87f38 005/133: Optimized menu-bar code
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ssh-deploy df87f38 005/133: Optimized menu-bar code |
Date: |
Sat, 27 Mar 2021 14:48:32 -0400 (EDT) |
branch: externals/ssh-deploy
commit df87f38ab805467afab475c345db3652673ee75e
Author: Christian Johansson <christian@cvj.se>
Commit: Christian Johansson <christian@cvj.se>
Optimized menu-bar code
---
ssh-deploy.el | 145 +++++++++++++---------------------------------------------
1 file changed, 33 insertions(+), 112 deletions(-)
diff --git a/ssh-deploy.el b/ssh-deploy.el
index afbf72a..58fc512 100644
--- a/ssh-deploy.el
+++ b/ssh-deploy.el
@@ -55,6 +55,9 @@
;; - To setup automatic storing of base revisions and detection of remote
changes do this:
;; (add-hook 'find-file-hook (lambda() (if (and (boundp
'ssh-deploy-automatically-detect-remote-changes)
ssh-deploy-automatically-detect-remote-changes)
(ssh-deploy-remote-changes-handler)) ))
;;
+;; - 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)
@@ -81,6 +84,7 @@
;; :hook ((after-save . (lambda() (if (and (boundp
'ssh-deploy-on-explicit-save) ssh-deploy-on-explicit-save)
(ssh-deploy-upload-handler)) ))
;; (find-file . (lambda() (if (and (boundp
'ssh-deploy-automatically-detect-remote-changes)
ssh-deploy-automatically-detect-remote-changes)
(ssh-deploy-remote-changes-handler)) )))
;; :config
+;; (ssh-deploy-line-mode)
;; (defhydra hydra-ssh-deploy (:color red :hint nil)
;; "
;; _u_: Upload _f_: Force Upload
@@ -1344,120 +1348,40 @@
;; This is particularly useful when key-bindings are not working because of
some mode
;; overriding them.
-(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 pq]
- '("PostgreSQL" . ssh-deploy-remote-sql-postgres-handler))
-(define-key
- global-map
- [menu-bar sshdeploy mq]
- '("MySQL" . ssh-deploy-remote-sql-mysql-handler))
-(define-key
- global-map
- [menu-bar sshdeploy sep1]
- '("--"))
-
-(define-key
- global-map
- [menu-bar sshdeploy sb]
- '("Shell Base" . ssh-deploy-remote-terminal-shell-base-handler))
-(define-key
- global-map
- [menu-bar sshdeploy ss]
- '("Shell" . ssh-deploy-remote-terminal-shell-handler))
-(define-key
- global-map
- [menu-bar sshdeploy sep2]
- '("--"))
-
-(define-key
- global-map
- [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 sep3]
- '("--"))
-
-(define-key
- global-map
- [menu-bar sshdeploy bb]
- '("Browse Base" . ssh-deploy-browse-remote-base-handler))
-(define-key
- global-map
- [menu-bar sshdeploy br]
- '("Browse" . ssh-deploy-browse-remote-handler))
-(define-key
- global-map
- [menu-bar sshdeploy sep4]
- '("--"))
-
-(define-key
- global-map
- [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 de]
- '("Delete" . ssh-deploy-delete-handler))
-(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 sc]
- '("Run script" . ssh-deploy-run-deploy-script-handler))
-(define-key
- global-map
- [menu-bar sshdeploy sep7]
- '("--"))
-
-(define-key
- global-map
- [menu-bar sshdeploy ulf]
- '("Forced Upload" . ssh-deploy-upload-handler-forced))
-(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))
+
+(defvar ssh-deploy-menu-map
+ (let ((map (make-sparse-keymap "Menu for SSH Deploy")))
+ (define-key map [pq] '("PostgreSQL" .
ssh-deploy-remote-sql-postgres-handler))
+ (define-key map [mq] '("MySQL" . ssh-deploy-remote-sql-mysql-handler))
+ (define-key map [sep1] '("--"))
+ (define-key map [sb] '("Shell Base" .
ssh-deploy-remote-terminal-shell-base-handler))
+ (define-key map [ss] '("Shell" . ssh-deploy-remote-terminal-shell-handler))
+ (define-key map [sep2] '("--"))
+ (define-key map [eb] '("Eshell Base" .
ssh-deploy-remote-terminal-eshell-base-handler))
+ (define-key map [es] '("Eshell" .
ssh-deploy-remote-terminal-eshell-handler))
+ (define-key map [sep3] '("--"))
+ (define-key map [bb] '("Browse Base" .
ssh-deploy-browse-remote-base-handler))
+ (define-key map [br] '("Browse" . ssh-deploy-browse-remote-handler))
+ (define-key map [sep4] '("--"))
+ (define-key map [df] '("Difference" . ssh-deploy-diff-handler))
+ (define-key map [rc] '("Detect Remote Changes" .
ssh-deploy-remote-changes-handler))
+ (define-key map [sep5] '("--"))
+ (define-key map [de] '("Delete" . ssh-deploy-delete-handler))
+ (define-key map [rn] '("Rename" . ssh-deploy-rename-handler))
+ (define-key map [op] '("Open" . ssh-deploy-open-remote-file-handler))
+ (define-key map [sep6] '("--"))
+ (define-key map [sc] '("Run script" .
ssh-deploy-run-deploy-script-handler))
+ (define-key map [sep7] '("--"))
+ (define-key map [ulf] '("Forced Upload" .
ssh-deploy-upload-handler-forced))
+ (define-key map [ul] '("Upload" . ssh-deploy-upload-handler))
+ (define-key map [dl] '("Download" . ssh-deploy-download-handler))))
+(define-key-after global-map [menu-bar sshdeploy] (cons "Deployment"
ssh-deploy-menu-map) 'tools)
;;; Mode Line
+;; TODO This has stopped working
(define-minor-mode ssh-deploy-line-mode
"Show SSH Deploy status in mode line"
:global t
@@ -1465,9 +1389,6 @@
(add-to-list 'global-mode-string 'ssh-deploy--mode-line-status-text t))
(ssh-deploy--mode-line-status-refresh)
-;; Start mode line by default
-(ssh-deploy-line-mode)
-
(provide 'ssh-deploy)
;;; ssh-deploy.el ends here
- [elpa] externals/ssh-deploy updated (9efc523 -> fce4ea3), Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 364a99f 003/133: Added lexical-binding as file-local variable, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy df87f38 005/133: Optimized menu-bar code,
Stefan Monnier <=
- [elpa] externals/ssh-deploy 64e049b 001/133: Added license badge, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy b8468ec 004/133: Added flag for using threads or not, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy 2af7bec 007/133: Mode-line working again after changes, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy ad12e19 008/133: Run deployment script working again after lexical-binding, Stefan Monnier, 2021/03/27
- [elpa] externals/ssh-deploy cb792e8 002/133: Added ELPA to description and changed http references to https, Stefan Monnier, 2021/03/27
- [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