diff options
Diffstat (limited to 'module/main.scm')
-rwxr-xr-x | module/main.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/main.scm b/module/main.scm index 423daeb9..242883ea 100755 --- a/module/main.scm +++ b/module/main.scm @@ -19,7 +19,6 @@ exec guile -e main -s $0 "$@" (output html) (output terminal) - (output none) (output text) (output import) (output info) @@ -63,6 +62,7 @@ exec guile -e main -s $0 "$@" (file (value #t) (single-char #\f)) (output (value #t) (single-char #\o)) (format (value #f)) + (width (value #t) (single-char #\w)) (statprof (value optional)))) (define (ornull a b) @@ -82,14 +82,14 @@ exec guile -e main -s $0 "$@" (for-each (lambda (l) (display l) (newline)) (flow-text (with-input-from-port (open-input-port (option-ref opts 'file "-")) - (@ (ice-9 rdelim) read-string)))) + (@ (ice-9 rdelim) read-string)) + #:width (or (string->number (option-ref opts 'width "")) 70))) (init (lambda (c e) (let ((ropt (ornull (option-ref opts '() '()) '("term")))) ((case (string->symbol (car ropt)) - ((none) none-main) ((html) html-main) ((term) terminal-main) ((import) import-main) |