(* List of English names *) maintainIndexEn := ( Print["Running maintainIndexEn ..."]; filesample = ToFileName[{dirwork, "templates"}, "indexen.htm"]; checkfile[filesample]; text = Import[filesample, "Text"]; spanRead[text]; tochar = " \[RightArrow] "; spanNew["topline"] = toplinefix[spanOld["topline"]]; (* Common *) listcom = Table[ ennames = commonNames[name]; Table[{cname, name}, {cname, ennames}], {name, accNamesList}]; listcom = Sort[Join @@ listcom]; listcom = Table[ {cname, name} = pair; ref = "en/" <> StringReplace[ToLowerCase[name], " " -> "_"] <> ".htm"; item = "
  • " <> capitalize[cname] <> tochar <> " ref <> "\">" <> name <> "
  • "; item = StringReplace[item, " " -> " "]; item = StringReplace[item, " " "indexen", RegularExpression["(?i)\\s*
  • .*?\"indexen.htm\".*"] -> ""}]; spanNew["epilog"] = epilog; text = spanReplace[text]; file = ToFileName[dir0, "indexen.htm"]; Export[file, text, "Text"]; );