move glyphs to confs

1 files changed, 42 insertions, 0 deletions

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))))