move glyphs to confs

1 files changed, 0 insertions, 42 deletions

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