diff options
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) |