help: fix to make the orphan articles index page render in fuel-help

basis/help/handbook/handbook.factor

@@ -362,7 +362,7 @@ ARTICLE: "handbook-tools-reference" "Developer tools"
 
 ARTICLE: "handbook-library-reference" "Libraries"
 "This index lists articles from loaded vocabularies which are not subsections of any other article. To explore more vocabularies, see " { $link "vocab-index" } "."
-{ $index [ orphan-articles { "help.home" "handbook" } diff ] } ;
+{ $index [ orphan-articles ] } ;
 
 ARTICLE: "handbook" "Factor handbook"
 { $heading "Getting started" }
@@ -388,7 +388,6 @@ ARTICLE: "handbook" "Factor handbook"
   "primitive-index"
   "error-index"
   "class-index"
-}
-;
+} ;
 
 ABOUT: "handbook"

basis/help/help-docs.factor

@@ -525,3 +525,7 @@ HELP: ABOUT:
 HELP: vocab-help
 { $values { "vocab-spec" "a vocabulary specifier" } { "help" "a help article" } }
 { $description "Outputs the main help article for a vocabulary. The main help article can be set with " { $link POSTPONE: ABOUT: } "." } ;
+
+HELP: orphan-articles
+{ $values { "seq" "vocab names" } }
+{ $description "Retrieves all vocabs without parents, except for 'help.home' and 'handbook' which are special." } ;

basis/help/help.factor

@@ -41,8 +41,8 @@ M: class word-help* drop f ;
     all-words [ word-help ] filter append ;
 
 : orphan-articles ( -- seq )
-    articles get keys
-    [ article-parent ] reject ;
+    articles get keys [ article-parent ] reject
+    { "help.home" "handbook" } diff ;
 
 : xref-help ( -- )
     all-articles [ xref-article ] each ;

misc/fuel/fuel-markup.el

@@ -337,10 +337,11 @@
 (defun fuel-markup--index (e)
   (let* ((q (fuel-markup--index-quotation (cadr e)))
          (cmd `(:fuel* ((,q fuel-index)) "fuel"
-                       ("builtins" "help" "help.topics" "classes"
-                        "classes.builtin" "classes.tuple"
-                        "classes.singleton" "classes.union"
-                        "classes.intersection" "classes.predicate")))
+                       ("assocs" "builtins" "classes" "classes.builtin"
+                        "classes.intersection" "classes.predicate"
+                        "classes.singleton"  "classes.tuple" "classes.union"
+                        "help" "help.topics" "namespaces" "sequences"
+                        "vocabs" "words")))
          (subs (fuel-eval--retort-result (fuel-eval--send/wait cmd 200))))
     (when subs
       (let ((start (point))