75 lines
2.6 KiB
EmacsLisp
75 lines
2.6 KiB
EmacsLisp
|
;;; core-yasnippet.el --- For the lazy typist
|
||
|
|
;; see lib/yasnippet-defuns.el
|
||
|
|
;; see lib/yasnippet-macros.el
|
||
|
|
|
||
|
|
(use-package yasnippet
|
||
|
|
:mode (("emacs\\.d/snippets/.+$" . snippet-mode))
|
||
|
|
:diminish (yas-minor-mode . "Y")
|
||
|
|
:commands (yas-minor-mode
|
||
|
|
yas-minor-mode-on
|
||
|
|
yas-expand
|
||
|
|
yas-insert-snippet
|
||
|
|
yas-new-snippet
|
||
|
|
yas-visit-snippet-file)
|
||
|
|
:init
|
||
|
|
(add-hook! (prog-mode snippet-mode markdown-mode org-mode) 'yas-minor-mode-on)
|
||
|
|
(add-hook! snippet-mode 'narf|disable-final-newline)
|
||
|
|
|
||
|
|
(setq yas-verbosity 0
|
||
|
|
yas-indent-line 'auto
|
||
|
|
yas-also-auto-indent-first-line t
|
||
|
|
yas-wrap-around-region nil
|
||
|
|
;; Only load personal snippets
|
||
|
|
yas-snippet-dirs `(,@narf-snippet-dirs)
|
||
|
|
yas-prompt-functions '(yas-ido-prompt yas-no-prompt))
|
||
|
|
|
||
|
|
(bind! :i [(tab)] 'yas-expand
|
||
|
|
:v "<backtab>" 'narf/yas-insert-snippet)
|
||
|
|
|
||
|
|
(defvar yas-minor-mode-map
|
||
|
|
(let ((map (make-sparse-keymap)))
|
||
|
|
(evil-define-key 'insert map [(tab)] 'yas-expand)
|
||
|
|
(evil-define-key 'visual map (kbd "<backtab>") 'narf/yas-insert-snippet)
|
||
|
|
map))
|
||
|
|
:config
|
||
|
|
(after! helm (add-to-list 'yas-dont-activate 'helm-alive-p))
|
||
|
|
|
||
|
|
(yas-reload-all)
|
||
|
|
|
||
|
|
;; Simpler `yas-selected-text' alias for templates
|
||
|
|
(defvaralias '% 'yas-selected-text)
|
||
|
|
;; Undo global maps
|
||
|
|
(bind! :i [(tab)] nil
|
||
|
|
:v "<backtab>" nil)
|
||
|
|
|
||
|
|
;; keybinds
|
||
|
|
(bind! :map yas-keymap
|
||
|
|
"C-e" 'narf/yas-goto-end-of-field
|
||
|
|
"C-a" 'narf/yas-goto-start-of-field
|
||
|
|
"<M-right>" 'narf/yas-goto-end-of-field
|
||
|
|
"<M-left>" 'narf/yas-goto-start-of-field
|
||
|
|
"<S-tab>" 'yas-prev-field
|
||
|
|
"<M-backspace>" 'narf/yas-clear-to-sof
|
||
|
|
|
||
|
|
[backspace] 'narf/yas-backspace
|
||
|
|
"<delete>" 'narf/yas-delete)
|
||
|
|
|
||
|
|
;; Once you're in normal mode, you're out
|
||
|
|
(add-hook! evil-normal-state-entry 'yas-abort-snippet)
|
||
|
|
;; Strip out the shitespace before a line selection
|
||
|
|
(add-hook! yas-before-expand-snippet 'narf|yas-before-expand)
|
||
|
|
;; Previous hook causes yas-selected-text to persist between expansions.
|
||
|
|
;; This little hack gets around it.
|
||
|
|
(add-hook! yas-after-exit-snippet 'narf|yas-after-expand)
|
||
|
|
|
||
|
|
;; Exit snippets on ESC in normal mode
|
||
|
|
(advice-add 'evil-force-normal-state :before 'yas-exit-all-snippets)
|
||
|
|
;; Prevents evil's visual-line from mode gobbling up the newline on the
|
||
|
|
;; right due to an off-by-one issue.
|
||
|
|
(defadvice yas-expand-snippet (around yas-expand-snippet-visual-line activate)
|
||
|
|
(when (narf/evil-visual-line-state-p)
|
||
|
|
(ad-set-arg 2 (1- (ad-get-arg 2)))) ad-do-it))
|
||
|
|
|
||
|
|
(provide 'core-yasnippet)
|
||
|
|
;;; core-yasnippet.el ends here
|