93 lines
3.1 KiB
EmacsLisp
93 lines
3.1 KiB
EmacsLisp
;;;; Macros ;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(defmacro λ (&rest body)
|
|
`(lambda () (interactive) ,@body))
|
|
|
|
(defmacro associate-mode (match mode)
|
|
`(add-to-list 'auto-mode-alist '(,match . ,mode)))
|
|
|
|
(defmacro associate-minor-mode (match minor-mode)
|
|
`(add-to-list 'auto-minor-mode-alist '(,match . ,minor-mode)))
|
|
|
|
(defmacro add-hook! (hook &rest body)
|
|
`(add-hook ,hook (lambda() ,@body)))
|
|
|
|
;; Backwards compatibility
|
|
(unless (fboundp 'with-eval-after-load)
|
|
(defmacro with-eval-after-load (file &rest body)
|
|
`(eval-after-load ,file
|
|
`(funcall (function ,(lambda () ,@body))))))
|
|
|
|
(defmacro after (feature &rest forms)
|
|
`(,(if (or (not (boundp 'byte-compile-current-file))
|
|
(not byte-compile-current-file)
|
|
(if (symbolp feature)
|
|
(require feature nil :no-error)
|
|
(load feature :no-message :no-error)))
|
|
'progn
|
|
(message "after: cannot find %s" feature)
|
|
'with-no-warnings)
|
|
(with-eval-after-load ',feature ,@forms)))
|
|
|
|
;; vimmish keymapping shortcuts
|
|
(defalias 'exmap 'evil-ex-define-cmd)
|
|
(defmacro ichmap (key command)
|
|
`(key-chord-define evil-insert-state-map ,key ,command))
|
|
(defmacro defmap (map &rest body)
|
|
`(evil-define-key nil ,map ,@body))
|
|
|
|
(defmacro nmap (map &rest body)
|
|
`(evil-define-key 'normal ,map ,@body))
|
|
(defmacro vmap (map &rest body)
|
|
`(evil-define-key 'visual ,map ,@body))
|
|
(defmacro imap (map &rest body)
|
|
`(evil-define-key 'insert ,map ,@body))
|
|
(defmacro emap (map &rest body)
|
|
`(evil-define-key 'emacs ,map ,@body))
|
|
(defmacro gmap (map &rest body)
|
|
`(evil-define-key 'god ,map ,@body))
|
|
(defmacro mmap (&rest body)
|
|
`(evil-define-key 'motion ,map ,@body))
|
|
(defmacro omap (&rest body)
|
|
`(evil-define-key 'operator ,map ,@body))
|
|
(defmacro nvmap (map &rest body)
|
|
(macroexpand
|
|
`(progn (nmap ,map ,@body)
|
|
(vmap ,map ,@body))))
|
|
|
|
(defmacro nmap! (&rest body)
|
|
`(evil-define-key 'normal my-mode-map ,@body))
|
|
(defmacro vmap! (&rest body)
|
|
`(evil-define-key 'visual my-mode-map ,@body))
|
|
(defmacro imap! (&rest body)
|
|
`(evil-define-key 'insert my-mode-map ,@body))
|
|
(defmacro emap! (&rest body)
|
|
`(evil-define-key 'emacs my-mode-map ,@body))
|
|
(defmacro gmap! (&rest body)
|
|
`(evil-define-key 'god my-mode-map ,@body))
|
|
(defmacro mmap! (&rest body)
|
|
`(evil-define-key 'motion my-mode-map ,@body))
|
|
(defmacro omap! (&rest body)
|
|
`(evil-define-key 'operator my-mode-map ,@body))
|
|
(defmacro nvmap! (&rest body)
|
|
(macroexpand
|
|
`(progn (nmap! ,@body)
|
|
(vmap! ,@body))))
|
|
|
|
(defmacro -nmap (&rest body)
|
|
`(evil-define-key nil evil-normal-state-map ,@body))
|
|
(defmacro -vmap (&rest body)
|
|
`(evil-define-key nil evil-visual-state-map ,@body))
|
|
(defmacro -imap (&rest body)
|
|
`(evil-define-key nil evil-insert-state-map ,@body))
|
|
(defmacro -emap (&rest body)
|
|
`(evil-define-key nil evil-emacs-state-map ,@body))
|
|
(defmacro -gmap (&rest body)
|
|
`(evil-define-key nil evil-god-state-map ,@body))
|
|
(defmacro -mmap (&rest body)
|
|
`(evil-define-key nil evil-motion-state-map ,@body))
|
|
(defmacro -omap (&rest body)
|
|
`(evil-define-key nil evil-operator-state-map ,@body))
|
|
(defmacro -nvmap (&rest body)
|
|
(macroexpand
|
|
`(progn (-nmap ,@body)
|
|
(-vmap ,@body))))
|