From 920d0432a3057b8f6ae63f0bf887870f69899211 Mon Sep 17 00:00:00 2001 From: Yordan Miladinov Date: Thu, 13 Apr 2023 12:40:51 +0300 Subject: [PATCH] Add eldoc-box-lighter 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. --- eldoc-box.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/eldoc-box.el b/eldoc-box.el index 09fdbf9..25c42f7 100644 --- a/eldoc-box.el +++ b/eldoc-box.el @@ -84,6 +84,12 @@ (defface eldoc-box-body '((t . nil)) "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 "If non-nil, only use childframe when there are more than one line." :type 'boolean) @@ -576,7 +582,7 @@ display the docs in echo area depending on (define-minor-mode eldoc-box-hover-mode "Displays hover documentations in a childframe. The default position of childframe is upper corner." - :lighter " ELDOC-BOX" + :lighter eldoc-box-lighter (if eldoc-box-hover-mode (progn (when eldoc-box-hover-at-point-mode (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 "A convenient minor mode to display doc at point. You can use \[keyboard-quit] to hide the doc." - :lighter " ELDOC-BOX" + :lighter eldoc-box-lighter (if eldoc-box-hover-at-point-mode (progn (when eldoc-box-hover-mode (eldoc-box-hover-mode -1))