From 821667e706978ca4731f096a07632a6f1b59574c Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 7 Oct 2024 18:57:23 +0200 Subject: move glyphs to confs --- confs/en.scm | 42 ++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 confs/en.scm (limited to 'confs/en.scm') diff --git a/confs/en.scm b/confs/en.scm new file mode 100644 index 0000000..7480e55 --- /dev/null +++ b/confs/en.scm @@ -0,0 +1,42 @@ +;https://unicode-table.com/en/2B7E/ + +(define letters (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) +(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)))) -- cgit v1.2.3