diff options
Diffstat (limited to 'glyphs')
| -rw-r--r-- | glyphs/en.scm | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/glyphs/en.scm b/glyphs/en.scm index c84dc2c..255bf2e 100644 --- a/glyphs/en.scm +++ b/glyphs/en.scm @@ -12,5 +12,18 @@ ;(define fn '("Fn")) (define fn-keys (string->list "")) -;(define extra-sybols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-sybols (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)))) |