diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm index 1a9e2fe..c5c0fcf 100644 --- a/mowedline/.config/mowedline/init.scm +++ b/mowedline/.config/mowedline/init.scm @@ -8,6 +8,11 @@ text (L " " text " "))) +(define (text-maybe-pad-right text) + (if (not-text? text) + text + (L text " "))) + (define (add-fa-icon icon) (lambda (text) (if (not-text? text) @@ -46,7 +51,7 @@ 'margin-right 15 'background 'transparent (widget:text 'name "taglist" 'format tag-list-formatter) - (widget:active-window-title 'format text-maybe-pad-left) + (widget:active-window-title 'format text-maybe-pad-right) (widget:spacer 'flex 1) (widget:text 'name "mpd" 'format (add-fa-icon "")) @@ -62,4 +67,4 @@ 'font "FontAwesome-10" 'flags '(("Unlocked" color "#65a854" "") ("Locked" color "#a85454" ""))) - (widget:clock)) + (widget:clock 'format text-maybe-pad-left))