easy-help: 'Values:' accepts multi-line input

db4
Eduardo Cavazos 2008-12-23 21:57:34 -06:00
parent 79128ecd5c
commit 6171b1939f
1 changed files with 10 additions and 5 deletions

View File

@ -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
; parsing