hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 17:41:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleanup: avoid casing on a custom variable if eval works too

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2018-09-23 20:45:14 +02:00
parent 7862890b07
commit f73eafafa7
1 changed files with 8 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
boon-core.el
View file

@ -178,15 +178,11 @@ optional list of changes as its last argument."
(memq major-mode boon-special-mode-list))) (memq major-mode boon-special-mode-list)))
(defcustom boon-insert-by-default nil (defcustom boon-insert-by-default nil
"For non-special buffers, if value is 't, `boon-local-mode' "Should boon start in insert state?
starts in insert state. If a new buffer is not deemed special, `boon-insert-by-default'
is evaluated. If the result is non nil, boon starts in insert
If the value is a function symbol, call that function in the state, otherwise in command state."
current buffer. The function returns non-nil for insert state. :group 'boon :type 'sexp)
Otherwise, starts in command state.
"
:group 'boon)
;;; Initialisation and activation ;;; Initialisation and activation
@ -198,15 +194,9 @@ Otherwise, starts in command state.
(when boon-local-mode (when boon-local-mode
(unless (memq 'boon/after-change-hook after-change-functions) (unless (memq 'boon/after-change-hook after-change-functions)
(push 'boon/after-change-hook after-change-functions)) (push 'boon/after-change-hook after-change-functions))
(if (boon-special-mode-p) (cond ((boon-special-mode-p) (boon-set-state 'boon-special-state))
(boon-set-state 'boon-special-state) ((eval boon-insert-by-default) (boon-set-insert-state))
(pcase boon-insert-by-default (t (boon-set-command-state)))))
('t (boon-set-insert-state))
((and func (pred symbolp) (pred functionp))
(if (funcall func)
(boon-set-insert-state)
(boon-set-command-state)))
(_ (boon-set-command-state))))))
(add-hook 'minibuffer-setup-hook 'boon-minibuf-hook) (add-hook 'minibuffer-setup-hook 'boon-minibuf-hook)