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

Update mowedline contents

Browse source
This commit is contained in:
Tom Willemse 2015-06-17 11:00:28 +02:00
parent 04f867ce39
commit 353fe31aad
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -3,6 +3,14 @@
text text
(string-append " " text))) (string-append " " text)))
(define (add-fa-icon icon)
(lambda (text)
(if (string-null? text)
text
(list (list 'font "FontAwesome-10"
(string-append " " icon " "))
text))))
(text-widget-font "Fantasque Sans Mono-13:bold") (text-widget-font "Fantasque Sans Mono-13:bold")
(text-widget-color "#ededed") (text-widget-color "#ededed")
(text-widget-format string-maybe-pad-left) (text-widget-format string-maybe-pad-left)
@ -10,28 +18,20 @@
(window (window
'position 'bottom 'position 'bottom
'width 1920 'width 1890
;; (make <text-widget> 'margin-bottom 15
;; 'name "workspaces" 'margin-left 15
;; 'format buttonize-workspaces) 'margin-right 15
(widget:text (widget:spacer 'width 5)
'name "title" (widget:text 'name "title" 'text "drd")
'color '(.4 .4 .4 1) (widget:spacer 'width 10)
'flex 1 (widget:text 'name "mpd" 'format (add-fa-icon "") 'flex 1)
'text "drd")
;; (make <text-widget>
;; 'name "rss-icon"
;; 'font "FontAwesome-10"
;; 'text " ")
;; (make <text-widget> 'name "rss")
(widget:flags (widget:flags
'name "keychain" 'name "keychain"
'font "FontAwesome-10" 'font "FontAwesome-10"
'flags '(("Unlocked" . "") 'flags '(("Unlocked" . "")
("Locked" . "")) ("Locked" . ""))
'format identity) 'format text-maybe-pad-left)
(widget:text (widget:text 'name "email" 'format (add-fa-icon ""))
'name "email" (widget:clock)
'format (lambda (text) (widget:spacer 'width 5))
(list '(font "FontAwesome-10" "  ") text)))
(widget:clock))