diff options
| author |  Tom Willemse | 2015-09-13 23:27:10 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-09-13 23:27:10 +0200 |
| commit | 9160e39372a1c96619f45d92a8c2d7aa2769d429 (patch) | |
| tree | 1359885184a29a1a318e0972794bcdf844bd14b5 /mowedline | |
| parent | b491df4af614d04b08eaae383e187d651dddf798 (diff) | |
| download | dotfiles-9160e39372a1c96619f45d92a8c2d7aa2769d429.tar.gz dotfiles-9160e39372a1c96619f45d92a8c2d7aa2769d429.zip | |
Remove some unnecessary code
Diffstat (limited to 'mowedline')
| -rw-r--r-- | mowedline/.config/mowedline/init.scm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm index d4f48ff..6d124e5 100644 --- a/mowedline/.config/mowedline/init.scm +++ b/mowedline/.config/mowedline/init.scm @@ -3,11 +3,6 @@ (define (not-text? text) (or (null? text) (and (not (pair? text)) (string-null? text)))) -(define (string-maybe-pad-left text) - (if (not-text? text) - text - (L " " text))) - (define (text-maybe-pad-both text) (if (not-text? text) text @@ -21,9 +16,6 @@ (string-append " " icon " ")) text)))) -(define (merge . lists) - (flatten (apply zip lists))) - (define (split-tag-list str) (map string->list (string-split str "\t"))) @@ -54,7 +46,7 @@ 'margin-right 15 'background 'transparent (widget:text 'name "taglist" - 'format (compose string-maybe-pad-left tag-list-formatter)) + 'format (compose text-maybe-pad-left tag-list-formatter)) (widget:spacer 'width 5) (widget:active-window-title) (widget:spacer 'flex 1) @@ -62,8 +54,7 @@ 'format (add-fa-icon "") 'background-color "#111111") (widget:spacer 'width 5) - (widget:text 'name "irclist" - 'background-color "#111111") + (widget:text 'name "irclist" 'format identity) (widget:spacer 'width 5) (widget:text 'name "email" 'format (compose text-maybe-pad-both (add-fa-icon ""))) |