(* Alphabetical list  *)

maintainIndexa := (
Print["Running maintainIndexa ..."];
filesample = ToFileName[{dirwork, "templates"}, "indexa.htm"];
checkfile[filesample];
text = Import[filesample, "Text"];
spanRead[text];
tochar = " \[RightArrow] ";
spanNew["topline"] = toplinefix[spanOld["topline"]];
(* Latin *)
listlat = Table[
   synonyms = nameSynonyms[name];
   Append[
    Table[{syn, name}, {syn, synonyms}], {name, "000"}], {name, accNamesList}];
listlat = Sort[Join @@ listlat];
listlaten = Table[
   {syn, name} = pair;
   ref = If[name === "000", syn, name];
   ref = 
    "en/" <> StringReplace[ToLowerCase[ref], " " -> "_"] <> ".htm";
   syn = If[MemberQ[synonymsUsed[name], syn] || name === "000", "<B>" <> syn <> "</B>", syn];
   item = If[name === "000",
    "<li><A HREF=\"" <> ref <> "\">" <> syn <> "</A></li>",
    "<li>" <> syn <> tochar <> "<A HREF=\"" <> ref <> "\">" <> name <>
      "</A></li>"
    ];
    item = StringReplace[item, " " -> "&nbsp;"];
    item = StringReplace[item, "<A&nbsp;" -> "<A "];
    item, {pair, listlat}];
spanNew["listlat"] = StringJoin[listlaten];
epilog = StringReplace[epilog0, {"SCRIPTNAME" -> "indexa",
      RegularExpression["(?i)\\s*<LI>.*?\"indexa.htm\".*"] -> ""}];
spanNew["epilog"] = epilog;
text = spanReplace[text];
file = ToFileName[dir0, "indexa.htm"];
Export[file, text, "Text"];
);