!7

cmodule ELECurrentInput {
  S input;
  
  visual fontSizePlus(20, dm_centeredTextField input());
  
  start {
    dm_registerAs eleCurrentInput();
    dm_onUserUtterance/*WithoutMine*/(s -> {
      if (!setField(input := s))
        vmBus_send eleSameInputAgain(s);
    });
    dm_watchField input(r { vmBus_send eleNewInput(input) });
  }
  
  // API
  
  S currentInput() { ret input; }
}