Move sticker-radius and page-size to confs

1 files changed, 4 insertions, 5 deletions

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)