From 9160e39372a1c96619f45d92a8c2d7aa2769d429 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 13 Sep 2015 23:27:10 +0200
Subject: Remove some unnecessary code

---
 mowedline/.config/mowedline/init.scm | 13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'mowedline/.config')

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 "")))
-- 
cgit v1.2.3-54-g00ecf