From 9160e39372a1c96619f45d92a8c2d7aa2769d429 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Sun, 13 Sep 2015 23:27:10 +0200 Subject: [PATCH] Remove some unnecessary code --- mowedline/.config/mowedline/init.scm | 13 ++----------- 1 file 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 "")))