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 --- stickers.scm | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'stickers.scm') 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