steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/easy-help/easy-help.factor
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 IN: easy-help
@ -52,10 +53,14 @@ IN: easy-help
: Values: : Values:
".." parse-multiline-string ".." parse-multiline-string
" \n" split string-lines
[ "" = not ] filter 1 tail
2 group [ dup " " head? [ 4 tail ] [ ] if ] map
[ " " split1 [ " " first = ] trim-left 2array ] map
\ $values prefix \ $values prefix
parsed parsed
; parsing ; parsing