From 4369e52443f927eef341e1adfe4b8acf291f6f0b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 May 2020 17:37:54 +0200 Subject: Add --help to text. --- module/entry-points/text.scm | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/module/entry-points/text.scm b/module/entry-points/text.scm index 69bb1691..587beda3 100644 --- a/module/entry-points/text.scm +++ b/module/entry-points/text.scm @@ -3,16 +3,24 @@ :use-module (output text) :use-module (ice-9 getopt-long) :use-module (util io) + :use-module (util options) ) (define options - '((width (value #t) (single-char #\w)) - (file (value #t) (single-char #\f)) - )) + '((width (value #t) (single-char #\w) + (description "Width of written text, defaults to 70 chars.")) + (file (value #t) (single-char #\f) + (description (*TOP* "Read from " (i "file") " instead of standard input."))) + (help (single-char #\h) + (description "Prints this help.")))) (define (main args) - (define opts (getopt-long args options)) + (define opts (getopt-long args (getopt-opt options))) + + (when (option-ref opts 'help #f) + (print-arg-help options) + (throw 'return)) (for-each (lambda (l) (display l) (newline)) (flow-text -- cgit v1.2.3