branch: externals/ergoemacs-mode
commit 331a35925932bc4e4a7c5781c17a3dabd2c469c4
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Directly bind a bunch of shift keys
---
ergoemacs-themes.el | 18 +++++++++++++++---
1 file changed, 15 insertions(+), 3 deletions(-)
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 0763a2a..0a86d1b 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -299,14 +299,17 @@
(global-set-key (kbd "<S-down-mouse-1>") 'mouse-save-then-kill)
(global-set-key (kbd "<S-mouse-1>") 'ignore)
(global-set-key (kbd "C-+") 'text-scale-increase)
+ (global-set-key (kbd "C-=") 'text-scale-increase)
(global-set-key (kbd "C--") 'text-scale-decrease)
+ (global-set-key (kbd "C-_") 'text-scale-decrease)
(global-set-key (kbd "C-.") 'keyboard-quit)
+ (global-set-key (kbd "C->") 'keyboard-quit)
(global-set-key (kbd "C-/") 'info)
(global-set-key (kbd "C-0") 'ergoemacs-text-scale-normal-size)
+ (global-set-key (kbd "C-)") 'ergoemacs-text-scale-normal-size)
(global-set-key (kbd "C-<next>") 'ergoemacs-next-user-buffer)
(global-set-key (kbd "C-<pause>") 'kill-compilation) ; stop
compilation/find/grep
(global-set-key (kbd "C-<prior>") 'ergoemacs-previous-user-buffer)
- (global-set-key (kbd "C-=") 'text-scale-increase)
(global-set-key (kbd "C-?") 'info)
(global-set-key (kbd "C-S-<next>") 'ergoemacs-next-emacs-buffer)
(global-set-key (kbd "C-S-<prior>") 'ergoemacs-previous-emacs-buffer)
@@ -319,6 +322,7 @@
(global-set-key (kbd "C-S-w") 'delete-frame)
(global-set-key (kbd "C-`") 'other-frame)
+ (global-set-key (kbd "C-~") 'other-frame)
(global-set-key (kbd "C-a") 'mark-whole-buffer)
(global-set-key (kbd "C-f") 'isearch-forward)
(global-set-key (kbd "C-l") 'goto-line)
@@ -773,9 +777,11 @@
(global-unset-key (kbd "C-x 1"))
(global-set-key (kbd "M-3") 'delete-other-windows)
+ (global-set-key (kbd "M-#") 'delete-other-windows)
(global-unset-key (kbd "C-x 0"))
(global-set-key (kbd "M-2") 'delete-window)
+ (global-set-key (kbd "M-@") 'delete-window)
(global-unset-key (kbd "C-x 3"))
(global-set-key (kbd "M-4") '(split-window-below split-window-horizontally))
@@ -783,7 +789,9 @@
(global-unset-key (kbd "C-x 2"))
(global-set-key (kbd "M-$") '(split-window-right split-window-vertically))
:version 5.7.5
- (global-set-key (kbd "M-0") 'delete-window))
+ (global-set-key (kbd "M-0") 'delete-window)
+ (global-set-key (kbd "M-)") 'delete-window)
+ )
(ergoemacs-component execute ()
"Execute Commands"
@@ -808,6 +816,7 @@
"Text Transformation"
(global-unset-key (kbd "M-;"))
(global-set-key (kbd "M-'") '("M-;" :emacs))
+ (global-set-key (kbd "M-\"") '("M-;" :emacs))
(global-set-key (kbd "M-w") 'ergoemacs-shrink-whitespaces)
@@ -835,7 +844,10 @@
(global-set-key (kbd "M-8") '(er/expand-region ergoemacs-extend-selection))
(global-set-key (kbd "M-*") '(er/mark-inside-quotes
ergoemacs-select-text-in-quote))
(global-set-key (kbd "M-6") 'ergoemacs-select-current-block)
- (global-set-key (kbd "M-7") 'ergoemacs-select-current-line))
+ (global-set-key (kbd "M-^") 'ergoemacs-select-current-block)
+ (global-set-key (kbd "M-7") 'ergoemacs-select-current-line)
+ (global-set-key (kbd "M-&") 'ergoemacs-select-current-line)
+ )
(ergoemacs-component quit ()
"Escape exits"
