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

More consistent default state selection

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2018-09-23 21:51:16 +02:00
parent f73eafafa7
commit 0c25219ab9
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
boon-core.el
View file

@ -168,7 +168,11 @@ optional list of changes as its last argument."
(defcustom boon-special-conditions
'((bound-and-true-p magit-blame-mode))
"A list of sufficient conditions to trigger special state."
:group 'boon)
:group 'boon :type '(list sexp))
(defcustom boon-insert-conditions '((eq major-mode 'message-mode))
"A list of sufficient conditions to start in insert state."
:group 'boon :type '(list sexp))
(defun boon-special-mode-p ()
"Should the mode use `boon-special-state'?"
@ -177,13 +181,6 @@ optional list of changes as its last argument."
(-some 'eval boon-special-conditions)
(memq major-mode boon-special-mode-list)))
(defcustom boon-insert-by-default nil
"Should boon start 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
state, otherwise in command state."
:group 'boon :type 'sexp)
;;; Initialisation and activation
(define-minor-mode boon-local-mode
@ -195,7 +192,7 @@ state, otherwise in command state."
(unless (memq 'boon/after-change-hook after-change-functions)
(push 'boon/after-change-hook after-change-functions))
(cond ((boon-special-mode-p) (boon-set-state 'boon-special-state))
((eval boon-insert-by-default) (boon-set-insert-state))
((-some 'eval boon-insert-conditions) (boon-set-insert-state))
(t (boon-set-command-state)))))
(add-hook 'minibuffer-setup-hook 'boon-minibuf-hook)