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