static L<Dialog> loadDialogs(S themeOrID) {
  L<Snippet> snippets;
  if (isSnippetID(themeOrID)) {
    new Snippet s;
    s.id = themeOrID;
    s.title = getSnippetTitle(s.id);
    snippets = litlist(s);
  } else
    snippets = sortSnippetsByID(findDialogsNamed(themeOrID));
  //psl(snippets);
  new L<Dialog> dialogs;
  for (Snippet s : snippets) {
    new Dialog d;
    d.snippet = s;
    d.good = !cic(javaTok(s.title), "bad");
    d.poem = parsePoem(s.id);
    dialogs.add(d);
  }
  //psl(dialogs);
  ret dialogs;
}

Began life as a copy of #1003326