21 lines
495 B
EmacsLisp
21 lines
495 B
EmacsLisp
(require 'evil)
|
|
(require 'mermaid-mode)
|
|
|
|
(define-minor-mode evil-mermaid-mode
|
|
"Buffer local minor mode for evil-mermaid"
|
|
:init-value nil
|
|
:lighter "EvilMermaid"
|
|
:keymap (make-sparse-keymap)
|
|
:group 'evil-mermaid)
|
|
|
|
(add-hook 'mermaid-mode-hook 'evil-mermaid-mode)
|
|
|
|
(mapc #'(lambda (state)
|
|
(evil-define-key state evil-mermaid-mode-map
|
|
(kbd "M-c") 'mermaid-compile
|
|
(kbd "M-v") 'mermaid-view
|
|
))
|
|
'(normal insert))
|
|
|
|
(provide 'evil-mermaid)
|