(define (string-maybe-pad-left text)
  (if (string-null? text)
      text
      (string-append " " text)))

;; (define (buttonize-workspaces text)
;;   (cons
;;    (if (string-prefix? "[" text) "" " ")
;;    (fold
;;     (lambda (token markup)
;;       (cons
;;        " "
;;        (cons
;;         (cond
;;          ((string-prefix? "#" token) ;; current owrkspace
;;           token)
;;          ((string-prefix? "!" token) ;; urgency notification
;;           (let ((ws (string-drop token 1)))
;;             `(button (lambda () (switch-to-desktop ,ws))
;;                      (color (1 0 0 1) ,ws))))
;;          (else
;;           `(button (lambda () (switch-to-desktop ,token))
;;                    ,token)))
;;         markup)))
;;     '()
;;     (reverse (string-tokenize text)))))

;; (define (colorize-clock text)
;;   (list
;;    " "
;;    (let ((m (string-match
;;              '(: (submatch (* any))
;;                  (submatch numeric numeric ":" numeric numeric)
;;                  (submatch (* any)))
;;              text)))
;;      (cond
;;       (m (set! (third m) `(color (.73 .73 .81 1) ,(third m)))
;;          (cdr m))
;;       (else text)))
;;    " "))

(text-widget-font "Fantasque Sans Mono-10:bold")
(text-widget-color "#bfbfbf")
(text-widget-format string-maybe-pad-left)
(widget-background-color "#111111")

(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))