diff options
| -rw-r--r-- | confs/en.scm | 2 | ||||
| -rw-r--r-- | confs/ru.scm | 2 | ||||
| -rw-r--r-- | confs/uk.scm | 2 | ||||
| -rw-r--r-- | 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) |