glyphs: eng: improve

1 files changed, 26 insertions, 13 deletions

diff --git a/glyphs/en.scm b/glyphs/en.scm
index 255bf2e..83ac0d5 100644
--- a/glyphs/en.scm
+++ b/glyphs/en.scm
@@ -6,24 +6,37 @@
 (define symbols       (string->list "+-*\\|@#~$%&^`´\"'"))
 (define punct         (string->list ",."))
 
-(define key-symbols   (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 fn-keys       (string->list ""))
+(define fn         '("Fn"))
+(define media       (string->list ""))
 
 ;(define extra-symbols  (string->list "☠⌨☭☮☢☣☥⚓"))
-(define extra-symbols  (string->list "☠⌨⌨☮☢☣☥"))
+(define extra-symbols  (string->list "☠⎘⎘"))
+
+(define font "B612")
 
 (define glyphs
   (concatenate
     (list
-      (map (lambda (l) (glyph l "6" "white"      "none"))     letters)
-      (map (lambda (l) (glyph l "6" "lightgreen" "none"))     symbols)
-      (map (lambda (l) (glyph l "6" "white"      "none"))     key-symbols)
-      (map (lambda (l) (glyph l "6" "white"      "none"))     numbers)
-      (map (lambda (l) (glyph l "3" "white"      "italic"))   modifiers)
-      (map (lambda (l) (glyph l "6" "red"        "none"))     brackets)
-      (map (lambda (l) (glyph l "6" "steelblue"  "none"))     fn-keys)
-      (map (lambda (l) (glyph l "6" "white"      "none"))     extra-symbols)
-      (map (lambda (l) (glyph l "6" "white"      "none"))     punct))))
+      (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))))