github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix: incorrect height of eldoc bar.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-22 14:23:43 +08:00
parent 3f5feb3c7f
commit 22b9943438
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
doom-modeline.el
View file

@ -289,7 +289,7 @@ It returns a file name which can be used directly as argument of
(defface doom-modeline-bar '((t (:inherit highlight))) (defface doom-modeline-bar '((t (:inherit highlight)))
"The face used for the left-most bar on the mode-line of an active window.") "The face used for the left-most bar on the mode-line of an active window.")
(defface doom-modeline-eldoc-bar '((t (:inherit shadow))) (defface doom-modeline-eldoc-bar '((t (:inherit highlight)))
"The face used for the left-most bar on the mode-line when eldoc-eval is "The face used for the left-most bar on the mode-line when eldoc-eval is
active.") active.")
@ -439,10 +439,10 @@ If DEFAULT is non-nil, set the default mode-line for all buffers."
(defun doom-modeline-eldoc (text) (defun doom-modeline-eldoc (text)
"Get eldoc TEXT for mode-line." "Get eldoc TEXT for mode-line."
(concat (when (display-graphic-p) (concat (doom-modeline--make-xpm 'doom-modeline-eldoc-bar
(doom-modeline--make-xpm 'doom-modeline-eldoc-bar doom-modeline-bar-width
doom-modeline-height doom-modeline-height)
doom-modeline-bar-width)) " "
text)) text))
;; Show eldoc in the mode-line with `eval-expression' ;; Show eldoc in the mode-line with `eval-expression'

4
test/test-helper.el
View file

@ -30,11 +30,11 @@
;; ;;
;;; Code: ;;; Code:
(require 'doom-modeline (expand-file-name "doom-modeline.el"))
(defun strip-text-properties(txt) (defun strip-text-properties(txt)
"Strip text properties of TXT." "Strip text properties of TXT."
(set-text-properties 0 (length txt) nil txt) (set-text-properties 0 (length txt) nil txt)
txt) txt)
(require 'doom-modeline (expand-file-name "doom-modeline.el"))
;;; test-helper.el ends here ;;; test-helper.el ends here