branch: externals/dape
commit 5a5ddac4853a6d767f8522a2cee4764fe18ceb8c
Author: danischn <[email protected]>
Commit: GitHub <[email protected]>
Add custom faces for mode line (#285)
Copyright-paperwork-exempt: yes
---
dape.el | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index c9495dfc72..d3cc7eb794 100644
--- a/dape.el
+++ b/dape.el
@@ -818,6 +818,14 @@ Debug logging has an noticeable effect on performance."
:extend t))
"Face used in REPL for non 0 exit codes.")
+(defface dape-header-line-active-face '((t :inherit mode-line))
+ "Face for active Dape header tabs.")
+
+(defface dape-header-line-inactive-face '((t :inherit mode-line-inactive))
+ "Face for inactive Dape header tabs.")
+
+(defface dape-header-line-hover-face '((t :inherit mode-line-highlight))
+ "Face for hovered Dape header tabs.")
;;; Forward declarations
(defvar hl-line-mode)
@@ -3828,10 +3836,10 @@ buffers get displayed and how they are grouped."
(cl-loop for (mode index name) in dape--info-buffer-related
append
`(,(if (dape--info-buffer-p mode index)
- (dape--info-header name mode index nil nil 'mode-line)
+ (dape--info-header name mode index nil nil
'dape-header-line-active-face)
(dape--info-header name mode index "mouse-1: select"
- 'mode-line-highlight
- 'mode-line-inactive))
+ 'dape-header-line-hover-face
+ 'dape-header-line-inactive-face))
" "))))))
