;;; siren-cape.el --- jimeh's Emacs Siren: cape configuration.

;;; Commentary:

;; Basic configuration for cape. Auto completion on steroids.

;;; Code:

(require 'siren-company)

(use-package cape
  :after company
  :hook
  (lsp-completion-mode . siren-cape-capf-lsp-mode-setup)

  :preface
  (defalias 'siren-yasnippet-capf
    (cape-company-to-capf 'company-yasnippet))

  (defun siren-cape-capf-lsp-mode-setup ()
    (siren-cape-capf-add-hooks t))

  (defun siren-cape-capf-add-hooks (&optional local)
    (add-hook 'completion-at-point-functions 'siren-yasnippet-capf -65 local)
    (add-hook 'completion-at-point-functions 'cape-file -10 local))

  (defun siren-cape-capf-remove-hooks (&optional local)
    (remove-hook 'completion-at-point-functions 'siren-yasnippet-capf local)
    (remove-hook 'completion-at-point-functions 'cape-file local))

  :init
  (siren-cape-capf-add-hooks))

(provide 'siren-cape)
;;; siren-cape.el ends here