blob: 7480e55e84ec6681c594cf37d22202c339648892 (
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
38
39
40
41
42
|
;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 tab "⭾")
;(define tab "↹")
;(define tab "→|")
(define tab "⇥")
;(define backspace "⌫")
(define backspace "⟵")
;(define arrows (string->list "▼▶▼▶"))
(define arrows (string->list "←↑→↓"))
(define key-symbols (concatenate (list (list backspace tab)
arrows
(string->list "⇧⇧⇪⏎"))))
(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del"))
(define fn '("Fn"))
(define media (string->list ""))
;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓"))
(define extra-symbols (string->list "☠⎘⎘"))
(define font "B612")
(define glyphs
(concatenate
(list
(map (lambda (l) (glyph l font "6" "white" "none")) letters)
(map (lambda (l) (glyph l font "6" "lightgreen" "none")) symbols)
(map (lambda (l) (glyph l font "6" "white" "none")) key-symbols)
(map (lambda (l) (glyph l font "6" "white" "none")) numbers)
(map (lambda (l) (glyph l font "3" "white" "italic")) modifiers)
(map (lambda (l) (glyph l font "6" "red" "none")) brackets)
(map (lambda (l) (glyph l font "6" "steelblue" "none")) media)
(map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols)
(map (lambda (l) (glyph l font "6" "white" "none")) punct))))
|
