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

Use the brand-new mowedline config syntax

Browse source
This commit is contained in:
Tom Willemse 2015-06-01 21:20:54 +02:00
parent aabcb90780
commit ec922b7be4
1 changed files with 27 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -44,21 +44,13 @@
(text-widget-format string-maybe-pad-left) (text-widget-format string-maybe-pad-left)
(widget-background-color "#111111") (widget-background-color "#111111")
(make <window> (window
'position 'bottom 'position 'bottom
'width 1920 'width 1920
'widgets ;; (make <text-widget>
(L ;; (make <text-widget>
;; 'name "workspaces" ;; 'name "workspaces"
;; 'format buttonize-workspaces) ;; 'format buttonize-workspaces)
;; (make <flags> (widget:text
;; 'name "wmflags"
;; 'color '(.53 .53 .53 1)
;; 'flags '(("tabbed" . (color "paleturquoise3" "T"))
;; ("float" . (color "firebrick3" "f"))
;; ("inverse" . (color "cornflowerblue" "v"))
;; ("magnifier" . (color "forestgreen" "m"))))
(make <text-widget>
'name "title" 'name "title"
'color '(.4 .4 .4 1) 'color '(.4 .4 .4 1)
'flex 1 'flex 1
@ -68,14 +60,14 @@
;; 'font "FontAwesome-10" ;; 'font "FontAwesome-10"
;; 'text " ") ;; 'text " ")
;; (make <text-widget> 'name "rss") ;; (make <text-widget> 'name "rss")
(make <flags> (widget:flags
'name "keychain" 'name "keychain"
'font "FontAwesome-10" 'font "FontAwesome-10"
'flags '(("Unlocked" . "") 'flags '(("Unlocked" . "")
("Locked" . "")) ("Locked" . ""))
'format identity) 'format identity)
(make <text-widget> (widget:text
'name "email" 'name "email"
'format (lambda (text) 'format (lambda (text)
(list '(font "FontAwesome-10" "  ") text))) (list '(font "FontAwesome-10" "  ") text)))
(make <clock>))) (widget:clock))