blob: 67d635942dce70ebbcbc137c391bd0acf91e1e93 (
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)))
(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 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))
|