1 files changed, 48 insertions, 25 deletions
diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm
index c5c0fcf..fac1fd2 100644
--- a/mowedline/.config/mowedline/init.scm
+++ b/mowedline/.config/mowedline/init.scm
@@ -43,28 +43,51 @@
 (text-widget-color "#ededed")
 (text-widget-format text-maybe-pad-both)
 
-(window
- 'position 'bottom
- 'width 1843
- 'margin-bottom 15
- 'margin-left 46
- 'margin-right 15
- 'background 'transparent
- (widget:text 'name "taglist" 'format tag-list-formatter)
- (widget:active-window-title 'format text-maybe-pad-right)
- (widget:spacer 'flex 1)
- (widget:text 'name "mpd"
-              'format (add-fa-icon ""))
- (widget:text 'name "irclist" 'format identity)
- (widget:text 'name "email"
-              'format (compose text-maybe-pad-both (add-fa-icon "")))
- (widget:flags 'name "cam-status"
-               'font "FontAwesome-10"
-               'flags '(("suspended" color "#a88654" "")
-                        ("active" color "#65a854" "")
-                        ("unplugged" color "#a85454" "")))
- (widget:flags 'name "keychain"
-               'font "FontAwesome-10"
-               'flags '(("Unlocked" color "#65a854" "")
-                        ("Locked" color "#a85454" "")))
- (widget:clock 'format text-maybe-pad-left))
+(define tag-list-widget
+  (widget:text 'name "taglist" 'format tag-list-formatter))
+
+(define window-title-widget
+  (widget:active-window-title 'format text-maybe-pad-right))
+
+(define mpd-widget
+  (widget:text 'name "mpd" 'format (add-fa-icon "")))
+
+(define irc-list-widget
+  (widget:text 'name "irclist" 'format identity))
+
+(define email-widget
+  (widget:text 'name "email"
+               'format (compose text-maybe-pad-both (add-fa-icon ""))))
+
+(define cam-status-widget
+  (widget:flags 'name "cam-status"
+                'font "FontAwesome-10"
+                'flags '(("suspended" color "#a88654" "")
+                         ("active" color "#65a854" "")
+                         ("unplugged" color "#a85454" ""))))
+
+(define key-chain-widget
+  (widget:flags 'name "keychain"
+                'font "FontAwesome-10"
+                'flags '(("Unlocked" color "#65a854" "")
+                         ("Locked" color "#a85454" ""))))
+
+(define clock-widget
+  (widget:clock 'format text-maybe-pad-left))
+
+(window 'position 'bottom
+        'width 1843
+        'margin-bottom 15
+        'margin-left 46
+        'margin-right 15
+        'background 'transparent
+
+        tag-list-widget
+        window-title-widget
+        (widget:spacer 'flex 1)
+        mpd-widget
+        irc-list-widget
+        email-widget
+        cam-status-widget
+        key-chain-widget
+        clock-widget)