From 745cf51a97eed3bff05286af38a2b0019d11a1fe Mon Sep 17 00:00:00 2001 From: zhangou Date: Sun, 7 Apr 2024 15:29:54 +0800 Subject: [PATCH] perf: improve check segment --- doom-modeline-segments.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/doom-modeline-segments.el b/doom-modeline-segments.el index cc4b01a2..70659df0 100644 --- a/doom-modeline-segments.el +++ b/doom-modeline-segments.el @@ -1009,12 +1009,18 @@ level." (concat (doom-modeline-spc) (let ((str)) - (dolist (s (split-string seg "")) + (dolist (s (split-string seg " ")) (setq str - (concat str (if (string-match-p "^[0-9]+$" s) - (doom-modeline-display-text s) - (doom-modeline-display-icon s))))) - str) + (concat str + (if (string-match-p "^[0-9]+$" s) + (concat (doom-modeline-vspc) + (doom-modeline-display-text s) + (doom-modeline-vspc)) + (doom-modeline-display-icon s))))) + (propertize str + 'help-echo (get-text-property 1 'help-echo seg) + 'mouse-face (get-text-property 1 'mouse-face seg) + 'local-map (get-text-property 1 'local-map seg))) (doom-modeline-spc))))