diff options
Diffstat (limited to 'glyphs')
| -rw-r--r-- | glyphs/en.scm | 39 |
1 files changed, 26 insertions, 13 deletions
diff --git a/glyphs/en.scm b/glyphs/en.scm index 255bf2e..83ac0d5 100644 --- a/glyphs/en.scm +++ b/glyphs/en.scm @@ -6,24 +6,37 @@ (define symbols (string->list "+-*\\|@#~$%&^`´\"'")) (define punct (string->list ",.")) -(define key-symbols (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 fn-keys (string->list "")) +(define fn '("Fn")) +(define media (string->list "")) ;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-symbols (string->list "☠⌨⌨☮☢☣☥")) +(define extra-symbols (string->list "☠⎘⎘")) + +(define font "B612") (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)))) + (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)))) |