40 lines
1.2 KiB
EmacsLisp
40 lines
1.2 KiB
EmacsLisp
(setq evil-mode-line-format 'before)
|
|
|
|
(setq evil-emacs-state-cursor '("red" box))
|
|
(setq evil-normal-state-cursor '("orange" box))
|
|
(setq evil-visual-state-cursor '("black" box))
|
|
(setq evil-insert-state-cursor '("green3" box))
|
|
(setq evil-motion-state-cursor '("purple" box))
|
|
|
|
;; inspired from:
|
|
;; https://github.com/roman/emacs.d/blob/master/zoo/zoo-evil.el
|
|
(evil-define-command fd-trigger (callback)
|
|
"Allows to execute the passed function using 'fd'."
|
|
:repeat change
|
|
(let ((modified (buffer-modified-p)))
|
|
(insert "f")
|
|
(let ((evt (read-event
|
|
(format "Insert %c to exit insert state" ?d)
|
|
nil 0.2)))
|
|
(cond
|
|
((null evt)
|
|
(message ""))
|
|
((and (integerp evt)
|
|
(char-equal evt ?d))
|
|
;; remove the f character
|
|
(delete-char -1)
|
|
(set-buffer-modified-p modified)
|
|
(funcall callback))
|
|
(t ; otherwise
|
|
(setq unread-command-events (append unread-command-events
|
|
(list evt))))))))
|
|
|
|
(evil-mode 1)
|
|
|
|
;; This is an endless debate and is just a matter of convention
|
|
;; I prefer to stay on the original character when leaving insert mode
|
|
;; (initiated with 'i').
|
|
(setq evil-move-cursor-back nil)
|
|
|
|
|