47 lines
1.6 KiB
EmacsLisp
47 lines
1.6 KiB
EmacsLisp
|
;;;; Macros ;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
(defmacro λ (&rest body)
|
||
|
|
`(lambda () (interactive) ,@body))
|
||
|
|
|
||
|
|
;; vimmish keymapping shortcuts
|
||
|
|
(defmacro nmap (map &rest body)
|
||
|
|
(macroexpand `(evil-define-key 'normal ,map ,@body)))
|
||
|
|
(defmacro vmap (map &rest body)
|
||
|
|
(macroexpand `(evil-define-key 'visual ,map ,@body)))
|
||
|
|
(defmacro imap (map &rest body)
|
||
|
|
(macroexpand `(evil-define-key 'insert ,map ,@body)))
|
||
|
|
(defmacro emap (map &rest body)
|
||
|
|
(macroexpand `(evil-define-key 'emacs ,map ,@body)))
|
||
|
|
(defmacro nvmap (map &rest body)
|
||
|
|
(macroexpand-all
|
||
|
|
`(progn (nmap ,map ,@body)
|
||
|
|
(vmap ,map ,@body))))
|
||
|
|
|
||
|
|
;; insert-mode key-chord mapping
|
||
|
|
(defmacro ichmap (key command)
|
||
|
|
`(key-chord-define evil-insert-state-map ,key ,command))
|
||
|
|
|
||
|
|
(defmacro associate-mode (match mode &optional minor-mode-p)
|
||
|
|
(let ((mode-alist (if minor-mode-p 'auto-minor-mode-alist 'auto-mode-alist)))
|
||
|
|
`(add-to-list ',mode-alist '(,match . ,mode))))
|
||
|
|
|
||
|
|
|
||
|
|
;;;; Defuns ;;;;;;;;;;;;;;;;;;;;;;;;
|
||
|
|
(defun run-code-with (interpreter mode-map)
|
||
|
|
"Set up ,r (and s-r on macs) to run code using a specified
|
||
|
|
interpreter and print the output in the echo area"
|
||
|
|
(nmap mode-map (kbd ",r")
|
||
|
|
`(lambda()
|
||
|
|
(interactive)
|
||
|
|
(if (and (not (buffer-modified-p))
|
||
|
|
(file-exists-p (buffer-file-name)))
|
||
|
|
(shell-command (concat ,interpreter " " (buffer-file-name)))
|
||
|
|
(shell-command-on-region (point-min) (point-max) ,interpreter))))
|
||
|
|
(vmap mode-map (kbd ",r")
|
||
|
|
`(lambda()
|
||
|
|
(interactive)
|
||
|
|
(shell-command-on-region (region-beginning) (region-end) ,interpreter)))
|
||
|
|
|
||
|
|
(when is-mac
|
||
|
|
(nmap mode-map (kbd "s-r") ",r")
|
||
|
|
(vmap mode-map (kbd "s-r") ",r")))
|