TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

auto-completion: add :call-hooks and rename :hooks to :append-hooks

Browse source 
Add these keywords to macro spacemacs|add-company-backends

:append-hooks controls wether we add the hooks to major mode hook variable
:call-hooks conrols wether we execute the created hooks function right away

Basically for multiple backends setup we want to pass :append-hooks to nil and
:call-hooks to t.
This commit is contained in:
syl20bnr 2018-05-12 02:26:37 -04:00
parent 40f28c7d12
commit 40f41769bd
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
layers/+completion/auto-completion/funcs.el
View file

@ -59,17 +59,22 @@ Available PROPS:
`:variables' property is used in several calls to this macro for the same
MODES.
`:hook BOOLEAN'
`:apppend-hook BOOLEAN'
Advanced property to control whether hooks functions are hooked or not,
if non-nil hook functions are appended to modes hooks passed as `:modes'."
if non-nil hook functions are appended to modes hooks passed as `:modes'.
`:call-hooks BOOLEAN'
if non-nil then hooked functions are called right away."
(declare (indent 0))
(let* ((backends (spacemacs/mplist-get props :backends))
(modes (spacemacs/mplist-get props :modes))
(variables (spacemacs/mplist-get props :variables))
(from (plist-get props :from))
(hooks (if (memq :hooks props)
(plist-get props :hooks)
(hooks (if (memq :append-hooks props)
(plist-get props :append-hooks)
t))
(call-hooks (when (memq :call-hooks props)
(plist-get props :call-hooks)))
(result '(progn)))
(dolist (mode modes)
(let ((backends-var-name (intern (format "company-backends-%S" mode)))
@ -100,6 +105,8 @@ Available PROPS:
'company)
(set (make-variable-buffer-local 'company-backends)
,backends-var-name)) result)
(when call-hooks
(push `(,init-func-name) result))
(when hooks
(push `(add-hook ',mode-hook-name ',init-func-name t) result))
;; define variables hook function
@ -117,6 +124,8 @@ Available PROPS:
,(eval (pop variables-copy))))))
(when forms (push forms vars))))
(push (append vars-func vars) result))
(when call-hooks
(push `(,vars-func-name) result))
(when hooks
(push `(add-hook ',mode-hook-name ',vars-func-name t) result)))
(when hooks