(provide 'init-snippets)

(use-package yasnippet
  :mode (("emacs\\.d/.+/snippets/" . snippet-mode))
  :pre-load
  (progn
    ;; Fix yasnippet keymaps so they only work in insert mode (why they
    ;; had to make this so complicated I don't know); must be defined
    ;; BEFORE we include yasnippet.
    (defvar yas-minor-mode-map
      (let ((map (make-sparse-keymap)))
        (bind 'insert map [(tab)] 'yas-expand)
        (bind 'insert map (kbd "TAB") 'yas-expand)
        (bind 'visual map (kbd "<backtab>") 'yas-insert-snippet)
        map)))
  :config
  (progn
    (defadvice evil-force-normal-state (before evil-esc-quit-yasnippet activate)
      (shut-up (yas-exit-all-snippets)))

    ;; Only load personal snippets
    (setq yas-snippet-dirs `(,*snippets-dir))
    (setq yas-prompt-functions '(yas-ido-prompt yas-no-prompt))
    (setq yas-also-auto-indent-first-line t)

    (after auto-complete
           ;; (add-hook! 'yas-before-expand-snippet-hook (auto-complete-mode -1))
           ;; (add-hook! 'yas-after-exit-snippet-hook (auto-complete-mode t))
           (defadvice ac-expand (before advice-for-ac-expand activate)
             (when (yas-expand) (ac-stop))))

    (bind yas-keymap (kbd "DEL") 'my/yas-clear-field)

    (yas-reload-all))
  :init
  (progn
    (add-hook 'snippet-mode-hook 'disable-final-newline)
    (add-hook 'text-mode-hook 'yas-minor-mode)
    (add-hook 'prog-mode-hook 'yas-minor-mode)
    (add-hook 'snippet-mode-hook 'yas-minor-mode)
    ;; (add-hook 'markdown-mode-hook 'yas-minor-mode)
    (add-hook 'org-mode-hook 'yas-minor-mode)))

;; Prevents Yas from stepping on my toes when I use backspace
(defun my/yas-clear-field (&optional field)
  (interactive)
  (let ((field (or field
                   (and yas--active-field-overlay
                        (overlay-buffer yas--active-field-overlay)
                        (overlay-get yas--active-field-overlay 'yas--field)))))
    (cond ((and field
                (not (yas--field-modified-p field))
                (eq (point) (marker-position (yas--field-start field))))
           (yas--skip-and-clear field))
          (t (delete-char -1)))))

;; yas snippet helpers
(defvaralias '% 'yas-selected-text)
(defun %! () (if % (s-trim-right %)))
(defun !% () (if % (s-trim-left %)))
(defun !%! () (if % (s-trim %)))
(defun --newline-maybe () (if % "\n"))