From a687bf48be1f3b0447dedb0fb7861b9e51644b2a Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Wed, 9 Oct 2024 16:47:48 +0200
Subject: Simplify config as `load`

---
 confs/en.scm | 53 ++++++++++++++++-------------------------------------
 1 file changed, 16 insertions(+), 37 deletions(-)

(limited to 'confs/en.scm')

diff --git a/confs/en.scm b/confs/en.scm
index bcabb28..fabda6d 100644
--- a/confs/en.scm
+++ b/confs/en.scm
@@ -1,31 +1,3 @@
-;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 sticker-radius 3.82); mm
 (define page-size a7-size)
@@ -33,12 +5,19 @@
 (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))))
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     en-chars)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     numbers)
+      (map (lambda (l) (make-glyph l font "6" "red"        "none"))     brackets)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     punct)
+      (map (lambda (l) (make-glyph l font "6" "lightgreen" "none"))     symbols)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     math)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     tab)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     backspace)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     arrows)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     upcase)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     enter)
+      (map (lambda (l) (make-glyph l font "3" "white"      "italic"))   modifiers)
+      (map (lambda (l) (make-glyph l font "6" "white"      "none"))     pagers)
+      (map (lambda (l) (make-glyph l font "6" "steelblue"  "none"))     media))))
+
+(make-config page-size sticker-radius glyphs)
-- 
cgit v1.2.3