diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2021-07-09 20:00:02 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2021-07-09 20:00:02 +0200 |
| commit | 8d2e83dd652ed74f6e59ab5de237d2549c4000dc (patch) | |
| tree | 2fd53b33d513c64ea5b3ccf1c1e568acad996a4a /glyphs | |
| parent | d2b9ef7bab90bf2330a673f7d95d1bc1e9b4e931 (diff) | |
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)))) |