blob: 255bf2eed9f029966cd64cc149e079c8a1cc70ff (
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
|
;https://unicode-table.com/en/2B7E/
(define letters (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ"))
(define numbers (string->list "1234567890"))
(define brackets (string->list "()[]{}<>"))
(define symbols (string->list "+-*\\|@#~$%&^`´\"'"))
(define punct (string->list ",."))
(define key-symbols (string->list "⇧⇧⇪⏎⌫←↑→↓⭾"))
(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del"))
;(define fn '("Fn"))
(define fn-keys (string->list ""))
;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓"))
(define extra-symbols (string->list "☠⌨⌨☮☢☣☥"))
(define glyphs
(concatenate
(list
(map (lambda (l) (glyph l "6" "white" "none")) letters)
(map (lambda (l) (glyph l "6" "lightgreen" "none")) symbols)
(map (lambda (l) (glyph l "6" "white" "none")) key-symbols)
(map (lambda (l) (glyph l "6" "white" "none")) numbers)
(map (lambda (l) (glyph l "3" "white" "italic")) modifiers)
(map (lambda (l) (glyph l "6" "red" "none")) brackets)
(map (lambda (l) (glyph l "6" "steelblue" "none")) fn-keys)
(map (lambda (l) (glyph l "6" "white" "none")) extra-symbols)
(map (lambda (l) (glyph l "6" "white" "none")) punct))))
|
