[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ergoemacs-mode 9ded0d2 126/325: Move more keys into pla
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ergoemacs-mode 9ded0d2 126/325: Move more keys into plain functions |
Date: |
Sat, 23 Oct 2021 18:48:36 -0400 (EDT) |
branch: externals/ergoemacs-mode
commit 9ded0d2ff3de84df9a742a859eb848148afdd008
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>
Move more keys into plain functions
---
ergoemacs-themes.el | 46 +++++++++++++++++++++++++++++++++++-----------
1 file changed, 35 insertions(+), 11 deletions(-)
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index dae65be..ea8b35c 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -28,6 +28,24 @@
(require 'advice)
(require 'ibuffer)
+(defun ergoemacs-global-set-key (key command)
+ "Translates KEY from a 'us' layout to the current layout and
+set it as a global binding as COMMAND.
+
+For example, if your layout is 'us', the command
+
+ (ergoemaces-global-set-key (kbd \"M-k\") 'next-line)
+
+will bind 'Meta-k' to next-line. If your layout is 'colemak', it will bind
+'Meta-e' to next-line.
+"
+ (global-set-key (ergoemacs-translate--event-layout
+ (vconcat (listify-key-sequence key))
+ )
+ command
+ )
+ )
+
(defun ergoemacs-set-standard-vars ()
"Enabled/changed variables/modes"
(setq org-CUA-compatible t
@@ -327,11 +345,17 @@
"Help changes for ergoemacs-mode"
(global-set-key (kbd "C-h '") 'ergoemacs-describe-current-theme))
+(defun ergoemacs-set-move-char ()
+ "Movement by Characters & Set Mark"
+ (global-set-key (kbd "C-b") nil)
+ (ergoemacs-global-set-key (kbd "M-j") 'backward-char)
+ )
+
;;; Variable Components
(ergoemacs-component move-char ()
"Movement by Characters & Set Mark"
- (global-set-key (kbd "C-b") nil)
- (global-set-key (kbd "M-j") 'backward-char)
+ ;; (global-set-key (kbd "C-b") nil)
+ ;; (global-set-key (kbd "M-j") 'backward-char)
(define-key global-map (kbd "M-l") 'forward-char)
@@ -446,18 +470,16 @@
(define-key term-raw-map (kbd "M-K") 'scroll-up)
)
-(ergoemacs-component move-buffer ()
- "Move Beginning/End of buffer"
+(defun ergoemacs-set-move-buffer ()
(global-unset-key (kbd "M->"))
(global-unset-key (kbd "M-<"))
- (global-set-key (kbd "M-n") 'ergoemacs-beginning-or-end-of-buffer)
- (global-set-key (kbd "M-N") 'ergoemacs-end-or-beginning-of-buffer)
- :version 5.7.5
- (global-reset-key (kbd "M->"))
- (global-reset-key (kbd "M-<"))
- (global-unset-key (kbd "M-n"))
- (global-unset-key (kbd "M-N"))
+ (ergoemacs-global-set-key (kbd "M-n") 'ergoemacs-beginning-or-end-of-buffer)
+ (ergoemacs-global-set-key (kbd "M-N") 'ergoemacs-end-or-beginning-of-buffer)
+ (define-key isearch-mode-map (kbd "M-n") nil)
+)
+(ergoemacs-component move-buffer ()
+ "Move Beginning/End of buffer"
;; Mode specific movement
(define-key term-raw-map (kbd "M-n") 'ergoemacs-beginning-or-end-of-buffer)
(define-key term-raw-map (kbd "M-N") 'ergoemacs-end-or-beginning-of-buffer)
@@ -1251,6 +1273,8 @@
(ergoemacs-set-standard-vars)
(ergoemacs-set-standard-fixed)
(ergoemacs-set-help)
+ (ergoemacs-set-move-char)
+ (ergoemacs-set-move-buffer)
)
(add-hook 'ergoemacs-mode-startup-hook #'ergoemacs-install-standard-theme)
- [elpa] externals/ergoemacs-mode c53e573 056/325: Cleanup, (continued)
- [elpa] externals/ergoemacs-mode c53e573 056/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5b285ea 057/325: Run everything immediately, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode b16e51c 068/325: Remove unused diminish functions, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e7a914b 094/325: Remove ctl-to-alt, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 4e5dfc6 089/325: Turn off caching in ergoemacs-map--composed-list, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5122817 097/325: cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 138245e 096/325: Remove unused separators, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode e3d4071 108/325: Remove standard-var component, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 8764713 113/325: Fix more warnings, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode cc8c354 106/325: Simplify ergoemacs-mode and remove ergoemacs-mode--update-theme-description, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 9ded0d2 126/325: Move more keys into plain functions,
Stefan Monnier <=
- [elpa] externals/ergoemacs-mode 8dc60d8 013/325: Move ergoemacs-test-layout to ergoemacs-test, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode a876297 027/325: Add a comment, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 9e8d701 010/325: Remove unused require 'strings and assorted cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode f0c4e91 142/325: Unset keys in ibuffer, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 1c2f61e 018/325: Remove tabbar-toddle since its only purpose is to download tabber, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 8b47756 021/325: Revert "Remove cttl-x-c 'both' option", Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 5e0c000 050/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode c59bedc 047/325: Remove more modal, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 65ad125 054/325: Cleanup, Stefan Monnier, 2021/10/23
- [elpa] externals/ergoemacs-mode 7c8eea5 069/325: Remove command loop timer, Stefan Monnier, 2021/10/23