!7

module LLtoNL > DynRecordingTextArea {
  S output;
  transient S calcedInput;
  
  visualize {
    ret jvsplit(
      jSection("INPUT (LL)", super.visualize()),
      jSection("OUTPUT (NL)", dm_fieldTextArea('output)));
  }
  
  start {
    onChangeAndNow(r calc);
  }
  
  void calc enter {
    if (neq(text, calcedInput)) {
      calcedInput = text;
      new LS out;
      final new MultiMap<S, LS> definitions;
      for (S s : tlft(text)) {
        LS tok = javaTokWithAllBrackets(s);
        continue unless isSquareBracketed(second(tok)) && eq(":", get(tok, 3);
        S id = second(tok);
        tok = subList(tok, 4);
        clearToken(tok, 0);
        definitions.put(id, tok);
        //out.add(join(tok));
      }
      //out.add("Keys: " + keys(definitions));
      out.addAll(map joinIfStringList(getEmits(r { render(definitions) })));
      setField(output := lines(out));
    }
  }
  
  void render(MultiMap<S, LS> definitions) {
    LL<S> bla = definitions.get("[1]");
    if (l(bla) < 2) ret;
    LS line = concatLists(
      ll(dropSuffixICTrim("(definition)", join(first(bla))),
        " means: "), second(bla));
    emit(line);
  }
}