diff options
| author | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-10-09 16:47:48 +0200 |
|---|---|---|
| committer | Ekaitz Zarraga <ekaitz@elenq.tech> | 2024-10-09 16:47:48 +0200 |
| commit | a687bf48be1f3b0447dedb0fb7861b9e51644b2a (patch) | |
| tree | f7dc21b30ff2eb9cb1cefc9d4ac738bf2c0e4795 /confs/en.scm | |
| parent | ffdcc34a9e7680aad1f46ab0bfb9472aa2d2e36b (diff) | |
Diffstat (limited to 'confs/en.scm')
| -rw-r--r-- | confs/en.scm | 53 |
1 files changed, 16 insertions, 37 deletions
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) |