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

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

@ -44,38 +44,30 @@
(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) (widget:text
;; (make <flags> 'name "title"
;; 'name "wmflags" 'color '(.4 .4 .4 1)
;; 'color '(.53 .53 .53 1) 'flex 1
;; 'flags '(("tabbed" . (color "paleturquoise3" "T")) 'text "drd")
;; ("float" . (color "firebrick3" "f")) ;; (make <text-widget>
;; ("inverse" . (color "cornflowerblue" "v")) ;; 'name "rss-icon"
;; ("magnifier" . (color "forestgreen" "m")))) ;; 'font "FontAwesome-10"
(make <text-widget> ;; 'text " ")
'name "title" ;; (make <text-widget> 'name "rss")
'color '(.4 .4 .4 1) (widget:flags
'flex 1 'name "keychain"
'text "drd") 'font "FontAwesome-10"
;; (make <text-widget> 'flags '(("Unlocked" . "")
;; 'name "rss-icon" ("Locked" . ""))
;; 'font "FontAwesome-10" 'format identity)
;; 'text " ") (widget:text
;; (make <text-widget> 'name "rss") 'name "email"
(make <flags> 'format (lambda (text)
'name "keychain" (list '(font "FontAwesome-10" "  ") text)))
'font "FontAwesome-10" (widget:clock))
'flags '(("Unlocked" . "")
("Locked" . ""))
'format identity)
(make <text-widget>
'name "email"
'format (lambda (text)
(list '(font "FontAwesome-10" "  ") text)))
(make <clock>)))