From 651532708f3e63a8aa8112f0aa31069c421d342d Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 2 Oct 2024 21:30:50 +0200
Subject: glyphs: eng: improve

---
 glyphs/en.scm | 39 ++++++++++++++++++++++++++-------------
 1 file changed, 26 insertions(+), 13 deletions(-)

(limited to 'glyphs/en.scm')

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))))
-- 
cgit v1.2.3