added evil twiddle case
This commit is contained in:
parent
86b931bb50
commit
06e144d47b
16
conf.org
16
conf.org
|
@ -3012,6 +3012,22 @@ delightfully ripped off from vim plugins
|
||||||
:config
|
:config
|
||||||
(evil-replace-with-register-install))
|
(evil-replace-with-register-install))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
**** twiddle case
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
(defun nd/evil-twiddle-case (beg end)
|
||||||
|
(interactive "r")
|
||||||
|
(when (use-region-p)
|
||||||
|
(let ((string (buffer-substring-no-properties beg end))
|
||||||
|
(deactivate-mark))
|
||||||
|
(funcall (cond
|
||||||
|
((string-equal string (upcase string)) #'downcase-region)
|
||||||
|
((string-equal string (downcase string)) #'capitalize-region)
|
||||||
|
(t #'upcase-region))
|
||||||
|
beg end))))
|
||||||
|
|
||||||
|
|
||||||
|
(define-key evil-visual-state-map "~" #'nd/evil-twiddle-case)
|
||||||
|
#+END_SRC
|
||||||
*** unbind emacs keys
|
*** unbind emacs keys
|
||||||
Some of these commands just get in the way of being evil (which really means that I keep pressing them on accident). Rather than nullifying them completely, tuck them away in the emacs state map in case I actually want them.
|
Some of these commands just get in the way of being evil (which really means that I keep pressing them on accident). Rather than nullifying them completely, tuck them away in the emacs state map in case I actually want them.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
Loading…
Reference in New Issue