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

[keyswap] disable swapping of numbers and symbols everywhere

This commit is contained in:
contrapunctus 2021-02-19 02:58:20 +05:30
parent 2ef56ee0d1
commit 71482262f9
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.org
View File

@ -1604,15 +1604,17 @@ pjb suggested a different approach [[http://paste.lisp.org/display/10157][here]]
1. [ ] =keyswap-mode= swaps numeric keys with symbols by default. We want to swap just () with [] (to begin with), but the code below doesn't work, for some reason.
#+BEGIN_SRC emacs-lisp
(use-package keyswap
:hook ((prog-mode . keyswap-mode)
(text-mode . keyswap-mode)
:hook ((prog-mode . contrapunctus-keyswap-mode)
(text-mode . contrapunctus-keyswap-mode)
(emacs-lisp-mode . contrapunctus-swap-brackets-parens)
(emacs-lisp-mode . keyswap-colon-semicolon)
(lisp-mode . keyswap-colon-semicolon)
(scheme-mode . keyswap-colon-semicolon))
:config
(defun contrapunctus-keyswap-mode ()
(setq-local keyswap-pairs nil) ;; dont swap numbers symbols
(keyswap-mode))
(defun contrapunctus-swap-brackets-parens ()
(setq-local keyswap-pairs nil)
;; (message "keyswap-pairs is %s" keyswap-pairs)
(keyswap-add-pairs ?\[ ?\()
(keyswap-add-pairs ?\] ?\))