Update mowedline contents

mowedline/.config/mowedline/init.scm

@@ -3,6 +3,14 @@
       text
       (string-append " " text)))
 
+(define (add-fa-icon icon)
+  (lambda (text)
+    (if (string-null? text)
+        text
+        (list (list 'font "FontAwesome-10"
+                    (string-append " " icon " "))
+              text))))
+
 (text-widget-font "Fantasque Sans Mono-13:bold")
 (text-widget-color "#ededed")
 (text-widget-format string-maybe-pad-left)
@@ -10,28 +18,20 @@
 
 (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")
+ 'width 1890
+ 'margin-bottom 15
+ 'margin-left 15
+ 'margin-right 15
+ (widget:spacer 'width 5)
+ (widget:text 'name "title" 'text "drd")
+ (widget:spacer 'width 10)
+ (widget:text 'name "mpd" 'format (add-fa-icon "") 'flex 1)
  (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))
+  'format text-maybe-pad-left)
+ (widget:text 'name "email" 'format (add-fa-icon ""))
+ (widget:clock)
+ (widget:spacer 'width 5))