1e81a35461
This is in preparation for general.el integration coming in 2.1.1. It is very likely that map! will change (and even more, be split into several macros). Not much, but change none-the-less. Specifically, the state keywords (e.g. :nvi, :n, :i) will be removed in favor of a :state property that takes a list, e.g. (normal visual insert). In any case, both map! and general are also relatively expensive compared to define-key and evil-define-key* (and the new define-key! macro), so use that when we can. This also means changes to either API won't affect Doom's modules in the long term.
48 lines
1.9 KiB
EmacsLisp
48 lines
1.9 KiB
EmacsLisp
;; config/default/autoload/evil.el -*- lexical-binding: t; -*-
|
|
;;;###if (featurep! :feature evil)
|
|
|
|
;;;###autoload (autoload '+default:multi-next-line "config/default/autoload/evil" nil t)
|
|
(evil-define-motion +default:multi-next-line (count)
|
|
"Move down 6 lines."
|
|
:type line
|
|
(let ((line-move-visual (or visual-line-mode (derived-mode-p 'text-mode 'magit-mode))))
|
|
(evil-line-move (* 6 (or count 1)))))
|
|
|
|
;;;###autoload (autoload '+default:multi-previous-line "config/default/autoload/evil" nil t)
|
|
(evil-define-motion +default:multi-previous-line (count)
|
|
"Move up 6 lines."
|
|
:type line
|
|
(let ((line-move-visual (or visual-line-mode (derived-mode-p 'text-mode 'magit-mode))))
|
|
(evil-line-move (- (* 6 (or count 1))))))
|
|
|
|
;;;###autoload (autoload '+default:cd "config/default/autoload/evil" nil t)
|
|
(evil-define-command +default:cd ()
|
|
"Change `default-directory' with `cd'."
|
|
(interactive "<f>")
|
|
(cd input))
|
|
|
|
;;;###autoload (autoload '+default:kill-all-buffers "config/default/autoload/evil" nil t)
|
|
(evil-define-command +default:kill-all-buffers (&optional bang)
|
|
"Kill all buffers. If BANG, kill current session too."
|
|
(interactive "<!>")
|
|
(if bang
|
|
(+workspace/kill-session)
|
|
(doom/kill-all-buffers)))
|
|
|
|
;;;###autoload (autoload '+default:kill-matching-buffers "config/default/autoload/evil" nil t)
|
|
(evil-define-command +default:kill-matching-buffers (&optional bang pattern)
|
|
"Kill all buffers matching PATTERN regexp. If BANG, only match project
|
|
buffers."
|
|
(interactive "<a>")
|
|
(doom/kill-matching-buffers pattern bang))
|
|
|
|
;;;###autoload
|
|
(defun +default/easymotion ()
|
|
"Invoke and lazy-load `evil-easymotion' without compromising which-key
|
|
integration."
|
|
(interactive)
|
|
(let ((prefix (this-command-keys)))
|
|
(evil-define-key* 'motion 'global prefix nil)
|
|
(evilem-default-keybindings prefix)
|
|
(set-transient-map evilem-map)
|
|
(which-key-reload-key-sequence prefix)))
|