Skip to content

Commit

Permalink
refactor: update the format of workspace
Browse files Browse the repository at this point in the history
  • Loading branch information
seagle0128 committed Oct 27, 2023
1 parent 2dc5f00 commit 1df1a7e
Showing 1 changed file with 17 additions and 16 deletions.
33 changes: 17 additions & 16 deletions doom-modeline-segments.el
Original file line number Diff line number Diff line change
Expand Up @@ -1493,12 +1493,14 @@ regions, 5. The current/total for the highlight term (with `symbol-overlay'),

(doom-modeline-def-segment bar
"The bar regulates the height of the `doom-modeline' in GUI."
(if doom-modeline-hud
(doom-modeline--hud)
(doom-modeline--bar)))
(concat
(if doom-modeline-hud
(doom-modeline--hud)
(doom-modeline--bar))
(doom-modeline-spc)))

(doom-modeline-def-segment hud
"Powerline's hud segment reimplemented in the style of Doom's bar segment."
"Powerline's hud segment reimplemented in the style of bar segment."
(doom-modeline--hud))


Expand Down Expand Up @@ -1546,18 +1548,17 @@ one. The ignored buffers are excluded unless `aw-ignore-on' is nil."
((bound-and-true-p window-numbering-mode)
(window-numbering-get-number-string))
(t ""))))
(if (and (length> num 0)
(length> (cl-mapcan
(lambda (frame)
;; Exclude minibuffer and child frames
(unless (and (fboundp 'frame-parent)
(frame-parent frame))
(window-list frame 'never)))
(visible-frame-list))
1))
(propertize (format " %s " num)
'face (doom-modeline-face 'doom-modeline-buffer-major-mode))
(doom-modeline-spc))))
(when (and (length> num 0)
(length> (cl-mapcan
(lambda (frame)
;; Exclude minibuffer and child frames
(unless (and (fboundp 'frame-parent)
(frame-parent frame))
(window-list frame 'never)))
(visible-frame-list))
1))
(propertize (format " %s " num)
'face (doom-modeline-face 'doom-modeline-buffer-major-mode)))))


;;
Expand Down

0 comments on commit 1df1a7e

Please sign in to comment.