diff options
| -rw-r--r-- | glyphs/ru.scm | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/glyphs/ru.scm b/glyphs/ru.scm new file mode 100644 index 0000000..46d9ff8 --- /dev/null +++ b/glyphs/ru.scm @@ -0,0 +1,41 @@ +(define letters (string->list "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" )) + +(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)))) |