Emacs lisp tips
InnehÄll
1. Elisp snake case with evil mode
Move easily over snake- and kebab-case
(advice-add 'evil-forward-word-begin :after
(defun skip-dash-forward (&rest _)
(let ((c (char-after (point))))
(when (or (eq c ?-)
(eq c ?_))
(forward-char)))))
(advice-add 'evil-forward-word-end :before
(defun skip-dash-forward-end (&rest _)
(let ((c (char-after (+ 1 (point)))))
(when (or (eq c ?-)
(eq c ?_))
(forward-char)))))
(advice-add 'evil-backward-word-begin :before
(defun skip-dash-backward (&rest _)
(let ((c (char-before (point))))
(when (or (eq c ?-)
(eq c ?_))
(backward-char)))))