From ffdcc34a9e7680aad1f46ab0bfb9472aa2d2e36b Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 7 Oct 2024 19:30:10 +0200 Subject: Move sticker-radius and page-size to confs --- confs/en.scm | 2 ++ confs/ru.scm | 2 ++ confs/uk.scm | 2 ++ stickers.scm | 9 ++++----- 4 files changed, 10 insertions(+), 5 deletions(-) diff --git a/confs/en.scm b/confs/en.scm index 7480e55..bcabb28 100644 --- a/confs/en.scm +++ b/confs/en.scm @@ -27,6 +27,8 @@ (define extra-symbols (string->list "☠⎘⎘")) (define font "B612") +(define sticker-radius 3.82); mm +(define page-size a7-size) (define glyphs (concatenate diff --git a/confs/ru.scm b/confs/ru.scm index 46d9ff8..09a3744 100644 --- a/confs/ru.scm +++ b/confs/ru.scm @@ -26,6 +26,8 @@ (define extra-symbols (string->list "☠⎘⎘")) (define font "B612") +(define sticker-radius 3.82); mm +(define page-size a7-size) (define glyphs (concatenate diff --git a/confs/uk.scm b/confs/uk.scm index 6267aa5..5e9d0ca 100644 --- a/confs/uk.scm +++ b/confs/uk.scm @@ -27,6 +27,8 @@ (define extra-symbols (string->list "☠⎘⎘🌻⌨")) (define font "B612") +(define sticker-radius 3.82); mm +(define page-size a7-size) ; https://upload.wikimedia.org/wikipedia/commons/2/2f/Flag_of_Ukraine_with_the_Trident_of_Ukraine.svg ; Has to be centered diff --git a/stickers.scm b/stickers.scm index eb20bee..31c63af 100644 --- a/stickers.scm +++ b/stickers.scm @@ -30,16 +30,15 @@ (define INFILE (first args)) (define OUTFILE (second args)) -(load INFILE) - (define a4-size '(297 . 210)) (define a5-size '(210 . 148)) (define a6-size '(148 . 105)) (define a7-size '(105 . 74)) -; Move this to a configuration file or something -(define sticker-radius 3.82); mm -(define page-size a7-size) ;; 96 Stickers at this size +;; INFILE HAS TO DEFINE THESE TWO VALUES +;; (define sticker-radius 3.82); mm +;; (define page-size a7-size) ;; 96 Stickers at this size +(load INFILE) (define x car) (define y cdr) -- cgit v1.2.3