diff options
author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-10-07 18:57:23 +0200 |
---|---|---|
committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-10-07 18:57:23 +0200 |
commit | 821667e706978ca4731f096a07632a6f1b59574c (patch) | |
tree | fda31306c2000d2f3c585b11f2d5e20c296201fc /glyphs/ru.scm | |
parent | 29bbb45decd4f867ef7cd8d458bfcef9a2bddb7b (diff) |
move glyphs to confs
Diffstat (limited to 'glyphs/ru.scm')
-rw-r--r-- | glyphs/ru.scm | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/glyphs/ru.scm b/glyphs/ru.scm deleted file mode 100644 index 46d9ff8..0000000 --- a/glyphs/ru.scm +++ /dev/null @@ -1,41 +0,0 @@ -(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)))) |