blob: 308b2cb1bce41b52a2e89a7073c2ef43cd99435c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(define (string-maybe-pad-left text)
(if (string-null? text)
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)
(widget-background-color "#1f2c3f")
(window
'position 'bottom
'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 text-maybe-pad-left)
(widget:text 'name "email" 'format (add-fa-icon ""))
(widget:clock)
(widget:spacer 'width 5))
|