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 --- glyphs/en.scm | 42 ------------------------------------------ 1 file changed, 42 deletions(-) delete mode 100644 glyphs/en.scm (limited to 'glyphs/en.scm') diff --git a/glyphs/en.scm b/glyphs/en.scm deleted file mode 100644 index 83ac0d5..0000000 --- a/glyphs/en.scm +++ /dev/null @@ -1,42 +0,0 @@ -;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