From ec922b7be4d92c5d01f82a91aab8110a67722a59 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 1 Jun 2015 21:20:54 +0200
Subject: Use the brand-new mowedline config syntax

---
 mowedline/.config/mowedline/init.scm | 62 ++++++++++++++++--------------------
 1 file changed, 27 insertions(+), 35 deletions(-)

(limited to 'mowedline')

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))
-- 
cgit v1.2.3-54-g00ecf