From 6171b1939f72480ced7ef4b9175c6977228a91e3 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 23 Dec 2008 21:57:34 -0600 Subject: [PATCH] easy-help: 'Values:' accepts multi-line input --- extra/easy-help/easy-help.factor | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/extra/easy-help/easy-help.factor b/extra/easy-help/easy-help.factor index b99f2e248c..1849c7330b 100644 --- a/extra/easy-help/easy-help.factor +++ b/extra/easy-help/easy-help.factor @@ -1,5 +1,6 @@ -USING: kernel multiline parser sequences splitting grouping help.markup ; +USING: kernel multiline parser arrays + sequences splitting grouping help.markup ; IN: easy-help @@ -52,10 +53,14 @@ IN: easy-help : Values: ".." parse-multiline-string - " \n" split - [ "" = not ] filter - 2 group + string-lines + 1 tail + [ dup " " head? [ 4 tail ] [ ] if ] map + [ " " split1 [ " " first = ] trim-left 2array ] map \ $values prefix parsed - ; parsing \ No newline at end of file + ; parsing + + + -- 2.34.1