contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[keyswap] ensure order of code

This commit is contained in:
contrapunctus 2021-02-22 04:14:09 +05:30
parent 3de833ab8c
commit 8c443fc44d
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
init.org
View File

@ -1939,11 +1939,7 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
#+BEGIN_SRC emacs-lisp
(use-package keyswap
:hook ((prog-mode . contrapunctus-keyswap-mode)
(text-mode . contrapunctus-keyswap-mode)
(minibuffer-setup-hook . contrapunctus-keyswap-mode) ;; probably unnecessary
(minibuffer-setup-hook . contrapunctus-swap-brackets-parens) ;; probably unnecessary
(eval-expression-minibuffer-setup-hook . contrapunctus-keyswap-mode)
:hook ((minibuffer-setup-hook . contrapunctus-swap-brackets-parens) ;; probably unnecessary
(eval-expression-minibuffer-setup-hook . contrapunctus-swap-brackets-parens)
(prog-mode . contrapunctus-swap-brackets-parens)
(text-mode . contrapunctus-swap-brackets-parens)
@ -1951,11 +1947,12 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
(lisp-mode . keyswap-colon-semicolon)
(scheme-mode . keyswap-colon-semicolon))
:config
(defun contrapunctus-keyswap-mode ()
(defun contrapunctus-keyswap-common ()
(setq-local keyswap-pairs nil) ;; dont swap numbers and symbols
(keyswap-mode))
(defun contrapunctus-swap-brackets-parens ()
;; (message "keyswap-pairs is %s" keyswap-pairs)
(contrapunctus-keyswap-common)
(keyswap-add-pairs ?\[ ?\()
(keyswap-add-pairs ?\] ?\))
(keyswap-update-keys)))