Use the brand-new mowedline config syntax

mowedline/.config/mowedline/init.scm

@@ -44,21 +44,13 @@
 (text-widget-format string-maybe-pad-left)
 (widget-background-color "#111111")
 
-(make <window>
+(window
  'position 'bottom
  'width 1920
-  'widgets
-  (L ;; (make <text-widget>
+ ;; (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>
+ (widget:text
   'name "title"
   'color '(.4 .4 .4 1)
   'flex 1
@@ -68,14 +60,14 @@
  ;;   'font "FontAwesome-10"
  ;;   'text " ")
  ;; (make <text-widget> 'name "rss")
-     (make <flags>
+ (widget:flags
   'name "keychain"
   'font "FontAwesome-10"
   'flags '(("Unlocked" . "")
            ("Locked" . ""))
   'format identity)
-     (make <text-widget>
+ (widget:text
   'name "email"
   'format (lambda (text)
             (list '(font "FontAwesome-10" "  ") text)))
-     (make <clock>)))
+ (widget:clock))