From a687bf48be1f3b0447dedb0fb7861b9e51644b2a Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Wed, 9 Oct 2024 16:47:48 +0200 Subject: Simplify config as `load` --- confs/es.scm | 25 +++++++++++++++++++++++-- 1 file changed, 23 insertions(+), 2 deletions(-) (limited to 'confs/es.scm') 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) -- cgit v1.2.3