diff options
| -rw-r--r-- | stickers.scm | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/stickers.scm b/stickers.scm index ca81224..eb20bee 100644 --- a/stickers.scm +++ b/stickers.scm @@ -23,9 +23,14 @@ (size path-size path-set-size!) (color path-color path-set-color!)) -; Load here the glyphs you need, the only ones that are more or less defined -; are the English ones -(load "glyphs/ru.scm") + + +(define args (cdr (command-line))) + +(define INFILE (first args)) +(define OUTFILE (second args)) + +(load INFILE) (define a4-size '(297 . 210)) (define a5-size '(210 . 148)) @@ -181,10 +186,4 @@ text { outport)) - - -(define args (cdr (command-line))) - -(if (< 0 (length args)) - (call-with-output-file (car args) dump) - (dump (current-output-port))) +(call-with-output-file OUTFILE dump) |