extra/easy-help/easy-help.factor

   1
   2 USING: kernel multiline parser sequences splitting grouping help.markup ;
   3
   4 IN: easy-help
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : Description:
   9
  10   ".." parse-multiline-string
  11   string-lines
  12   1 tail
  13   [ dup "   " head? [ 4 tail     ] [ ] if ] map
  14   [ dup ""    =     [ drop { $nl } ] [ ] if ] map
  15   \ $description prefix
  16   parsed
  17
  18   ; parsing
  19
  20 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  21
  22 : Example:
  23
  24   { $heading "Example" } parsed
  25
  26   ".." parse-multiline-string
  27   string-lines
  28   [ dup "   " head? [ 4 tail ] [ ] if ] map
  29   [ "" = not ] filter
  30   ! \ $example prefix
  31   \ $code prefix
  32   parsed
  33
  34   ; parsing
  35
  36 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  37
  38 : Summary:
  39
  40   ".." parse-multiline-string
  41   string-lines
  42   1 tail
  43   [ dup "   " head? [ 4 tail     ] [ ] if ] map
  44   [ dup ""    =     [ drop { $nl } ] [ ] if ] map
  45   { $heading "Summary" } prefix
  46   parsed
  47
  48   ; parsing
  49
  50 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  51
  52 : Values:
  53
  54   ".." parse-multiline-string
  55   " \n" split
  56   [ "" = not ] filter
  57   2 group
  58   \ $values prefix
  59   parsed
  60
  61   ; parsing