diff options
| author |  Tom Willemse | 2016-06-17 01:34:29 +0200 |
|---|---|---|
| committer | Tom Willemse | 2016-06-17 01:34:29 +0200 |
| commit | aedb8632ba0aca98c64d3a7bae93e5575b136451 (patch) | |
| tree | d9ee87a6e6f5f71d3769afb2cd3751267f310577 | |
| parent | 4419b93f8046509ca35bc9edf017adee8ed109fc (diff) | |
| download | dotfiles-aedb8632ba0aca98c64d3a7bae93e5575b136451.tar.gz dotfiles-aedb8632ba0aca98c64d3a7bae93e5575b136451.zip | |
Fix some widgets’ padding
| -rw-r--r-- | mowedline/.config/mowedline/init.scm | 9 |
1 files changed, 7 insertions, 2 deletions
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)) |