diff options
| author |  Tom Willemse | 2015-06-01 21:20:54 +0200 |
|---|---|---|
| committer | Tom Willemse | 2015-06-01 21:20:54 +0200 |
| commit | ec922b7be4d92c5d01f82a91aab8110a67722a59 (patch) | |
| tree | efcc03a510394b86d4e21b2327e2e51953c7d5e3 /mowedline | |
| parent | aabcb90780ed014c600c9482b5f274b4d1abffbc (diff) | |
| download | dotfiles-ec922b7be4d92c5d01f82a91aab8110a67722a59.tar.gz dotfiles-ec922b7be4d92c5d01f82a91aab8110a67722a59.zip | |
Use the brand-new mowedline config syntax
Diffstat (limited to 'mowedline')
| -rw-r--r-- | mowedline/.config/mowedline/init.scm | 62 |
1 files changed, 27 insertions, 35 deletions
diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm index 946114d..524f667 100644 --- a/mowedline/.config/mowedline/init.scm +++ b/mowedline/.config/mowedline/init.scm @@ -44,38 +44,30 @@ (text-widget-format string-maybe-pad-left) (widget-background-color "#111111") -(make <window> - 'position 'bottom - 'width 1920 - 'widgets - (L ;; (make <text-widget> - ;; 'name "workspaces" - ;; 'format buttonize-workspaces) - ;; (make <flags> - ;; '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" - 'color '(.4 .4 .4 1) - 'flex 1 - 'text "drd") - ;; (make <text-widget> - ;; 'name "rss-icon" - ;; 'font "FontAwesome-10" - ;; 'text " ") - ;; (make <text-widget> 'name "rss") - (make <flags> - 'name "keychain" - 'font "FontAwesome-10" - 'flags '(("Unlocked" . "") - ("Locked" . "")) - 'format identity) - (make <text-widget> - 'name "email" - 'format (lambda (text) - (list '(font "FontAwesome-10" " ") text))) - (make <clock>))) +(window + 'position 'bottom + 'width 1920 + ;; (make <text-widget> + ;; 'name "workspaces" + ;; 'format buttonize-workspaces) + (widget:text + 'name "title" + 'color '(.4 .4 .4 1) + 'flex 1 + 'text "drd") + ;; (make <text-widget> + ;; 'name "rss-icon" + ;; 'font "FontAwesome-10" + ;; 'text " ") + ;; (make <text-widget> 'name "rss") + (widget:flags + 'name "keychain" + 'font "FontAwesome-10" + 'flags '(("Unlocked" . "") + ("Locked" . "")) + 'format identity) + (widget:text + 'name "email" + 'format (lambda (text) + (list '(font "FontAwesome-10" " ") text))) + (widget:clock)) |