easy-help: 'Values:' accepts multi-line input
							parent
							
								
									79128ecd5c
								
							
						
					
					
						commit
						6171b1939f
					
				| 
						 | 
				
			
			@ -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
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue