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

Update mowedline init

Browse source
This commit is contained in:
Tom Willemse 2015-11-21 23:39:24 +01:00
parent 5f82d1e5dc
commit 2dbacd8ff5
1 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -40,19 +40,16 @@
(window (window
'position 'bottom 'position 'bottom
'width 1890 'width 1859
'margin-bottom 15 'margin-bottom 15
'margin-left 15 'margin-left 46
'margin-right 15 'margin-right 15
'background 'transparent 'background 'transparent
(widget:text 'name "taglist" (widget:text 'name "taglist" 'format tag-list-formatter)
'format (compose text-maybe-pad-left tag-list-formatter)) (widget:active-window-title 'format text-maybe-pad-left)
(widget:spacer 'width 5)
(widget:active-window-title)
(widget:spacer 'flex 1) (widget:spacer 'flex 1)
(widget:text 'name "mpd" (widget:text 'name "mpd"
'format (add-fa-icon "") 'format (add-fa-icon ""))
'background-color "#111111")
(widget:spacer 'width 5) (widget:spacer 'width 5)
(widget:text 'name "irclist" 'format identity) (widget:text 'name "irclist" 'format identity)
(widget:spacer 'width 5) (widget:spacer 'width 5)