branch: externals/ergoemacs-mode
commit d97731c5f11975695c99d845c0e6e6c8bc55ef49
Author: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Commit: Matthew Fidler <514778+mattfid...@users.noreply.github.com>
Add tab indent region when active again
---
ergoemacs-mode.el | 42 +++++++++++++++---------------------------
1 file changed, 15 insertions(+), 27 deletions(-)
diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el
index 68fd90a..fa72fe1 100644
--- a/ergoemacs-mode.el
+++ b/ergoemacs-mode.el
@@ -174,28 +174,6 @@ The TEXT will be what the mode-line is set to be."
-(defcustom ergoemacs-hooks-that-always-override-ergoemacs-mode '()
- "List of hooks that when defining keys override `ergoemacs-mode' keys."
- :type '(repeat
- (symbol :tag "Hook"))
- :group 'ergoemacs-mode)
-
-(defcustom ergoemacs-functions-that-always-override-ergoemacs-mode '(lambda)
- "List of overriding functions run from a hook.
-
-When defining keys these functions override
-`ergoemacs-mode'. `lambda' is a special undefined function"
- :type '(repeat
- (symbol :tag "Function"))
- :group 'ergoemacs-mode)
-
-(defcustom ergoemacs-directories-where-keys-from-hook-are-deferred '()
- "Directories where `ergoemacs-mode' defers hooks that gerenate key changes."
- :type '(repeat
- (directory :tag "Deferred Directory: "))
- :group 'ergoemacs-mode)
-
-
(defvar ergoemacs-mode-startup-hook nil
"Hook for starting `ergoemacs-mode'.")
@@ -397,19 +375,29 @@ transpose words instead of running completion, call
after initializing ergoemacs-mode.
")
+(defvar ergoemacs-mark-active-keymap (let ((map (make-sparse-keymap)))
+ (define-key map (kbd "TAB")
'indent-region))
+ "The keybinding that is active when the mark is active.")
+
(defvar ergoemacs-override-alist nil
"ErgoEmacs override keymaps.")
+(defvar ergoemacs-minor-alist nil
+ "ErgoEmacs minor mode keymap.")
+
(defun ergoemacs-setup-override-keymap ()
- "Setup `ergoemacs-mode' overriding keymap `ergoemacs-override-keymap'."
+ "Setup `ergoemacs-mode' keymaps."
(setq ergoemacs-override-alist `((ergoemacs-mode . ,ergoemacs-user-keymap)
(ergoemacs-mode .
,ergoemacs-override-keymap)
- (ergoemacs-mode . ,ergoemacs-keymap)))
- (add-hook 'emulation-mode-map-alists ergoemacs-override-alist))
+ (ergoemacs-mode . ,ergoemacs-keymap))
+ ergoemacs-minor-alist `((mark-active . ,ergoemacs-mark-active-keymap)))
+ (add-hook 'emulation-mode-map-alists ergoemacs-override-alist)
+ (add-hook 'minor-mode-map-alist ergoemacs-minor-alist))
(defun ergoemacs-remove-override-keymap ()
- "Remove `ergoemacs-mode' overriding keymap `ergoemacs-override-keymap'."
- (remove-hook 'emulation-mode-map-alists 'ergoemacs-override-alist))
+ "Remove `ergoemacs-mode' keymaps."
+ (remove-hook 'emulation-mode-map-alists 'ergoemacs-override-alist)
+ (remove-hook 'minor-mode-map-alist ergoemacs-minor-alist))
;;; Frequently used commands as aliases
