easy-help: Add 'List:'

2008-12-25 07:55:04 -06:00 · 2008-12-25 07:55:04 -06:00 · 321919d210
parent 2f51b5e4f0
commit 321919d210
1 changed files with 13 additions and 0 deletions
--- a/extra/easy-help/easy-help.factor
+++ b/extra/easy-help/easy-help.factor
@ -96,3 +96,16 @@ IN: easy-help

 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

+: List:
+
+  { $list }
+
+  ".." parse-multiline-string
+  string-lines
+  1 tail
+  [ dup "    " head? [ 4 tail ] [ ] if ] map
+  [ expand-markup ] map
+
+  append parsed
+
+  ; parsing