hpet_dog/eldoc-frame
hpet_dog/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Add eldoc-box-lighter

Browse Source 
The mode-line lighter is now customizable using the newly introduced
eldoc-box-lighter. It can also be hidden away by setting it to nil.

* eldoc-box.el (eldoc-box-lighter): New custom option.
(eldoc-box-hover-mode)
(eldoc-box-hover-at-point-mode): Use the new variable.
This commit is contained in:
Yordan Miladinov 2023-04-13 12:40:51 +03:00 committed by Yuan Fu
parent 30901d08bc
commit 920d0432a3
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
eldoc-box.el
View File

@ -84,6 +84,12 @@
(defface eldoc-box-body '((t . nil)) (defface eldoc-box-body '((t . nil))
"Body face used in documentation childframe.") "Body face used in documentation childframe.")
(defcustom eldoc-box-lighter " ELDOC-BOX"
"Mod-line lighter for all eldoc-box modes.
If the value is nil, no lighter is displayed."
:type '(choice string
(const :tag "None" nil)))
(defcustom eldoc-box-only-multi-line nil (defcustom eldoc-box-only-multi-line nil
"If non-nil, only use childframe when there are more than one line." "If non-nil, only use childframe when there are more than one line."
:type 'boolean) :type 'boolean)
@ -576,7 +582,7 @@ display the docs in echo area depending on
(define-minor-mode eldoc-box-hover-mode (define-minor-mode eldoc-box-hover-mode
"Displays hover documentations in a childframe. "Displays hover documentations in a childframe.
The default position of childframe is upper corner." The default position of childframe is upper corner."
:lighter " ELDOC-BOX" :lighter eldoc-box-lighter
(if eldoc-box-hover-mode (if eldoc-box-hover-mode
(progn (when eldoc-box-hover-at-point-mode (progn (when eldoc-box-hover-at-point-mode
(eldoc-box-hover-at-point-mode -1)) (eldoc-box-hover-at-point-mode -1))
@ -587,7 +593,7 @@ The default position of childframe is upper corner."
(define-minor-mode eldoc-box-hover-at-point-mode (define-minor-mode eldoc-box-hover-at-point-mode
"A convenient minor mode to display doc at point. "A convenient minor mode to display doc at point.
You can use \[keyboard-quit] to hide the doc." You can use \[keyboard-quit] to hide the doc."
:lighter " ELDOC-BOX" :lighter eldoc-box-lighter
(if eldoc-box-hover-at-point-mode (if eldoc-box-hover-at-point-mode
(progn (when eldoc-box-hover-mode (progn (when eldoc-box-hover-mode
(eldoc-box-hover-mode -1)) (eldoc-box-hover-mode -1))