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/es.scm | |
| parent | ffdcc34a9e7680aad1f46ab0bfb9472aa2d2e36b (diff) | |
Diffstat (limited to 'confs/es.scm')
| -rw-r--r-- | confs/es.scm | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/confs/es.scm b/confs/es.scm index 5879908..a3e7fd9 100644 --- a/confs/es.scm +++ b/confs/es.scm @@ -1,2 +1,23 @@ -(define letters (string->list "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ")) -(define numbers (string->list "1234567890")) +(define font "B612") +(define sticker-radius 3.82); mm +(define page-size a7-size) + +(define glyphs + (concatenate + (list + (map (lambda (l) (make-glyph l font "6" "white" "none")) es-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 "3" "white" "italic")) pagers) + (map (lambda (l) (make-glyph l font "6" "steelblue" "none")) media)))) + +(make-config page-size sticker-radius glyphs) |