ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove some unnecessary code

Browse source
This commit is contained in:
Tom Willemse 2015-09-13 23:27:10 +02:00
parent b491df4af6
commit 9160e39372
1 changed files with 2 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
mowedline/.config/mowedline/init.scm
View file

@ -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 "")))