!7

!include once #1020738 // Loadable Utils

srecord Definition(S word, S definition) {}

module DefinitionsByVoice > DynObjectTable<Definition> {
  bool voiceMode;
  
  visualize {
    ret withRightAlignedButtons(super.visualize(),
      dm_fieldCheckBox('voiceMode));
  }
  
  start {
    dm_useLocalMechListCopies();
    dontPersist();
    fieldsInOrder = true;
    dm_onTopInput(voidfunc(fS s) { reactTo(s) });
    reactTo(dm_getTopInput());
  }
  
  void _search(fS s) {
    bool wasEmpty = count() == 0;
    L<Definition> l = map(func(S def) -> Definition { Definition(s, def) }, dm_getDefinitions(s));
    if (empty(l)) ret;
    addAll(l);
    vmBus_send(wasEmpty ? 'firstResults : 'moreResults, this);
    if (voiceMode && wasEmpty)
      dm_say(first(l).definition);
  }

  // API
  
  void reactTo(fS s) enter {
    switch to q();
    clear();
    _search(s);
    new Matches m;
    for (S x : matchX_any_allRests(mL("Query Definition Patterns"), s))
      _search(x);
    if (nempty(data)) dm_showModule_noFocus();
  }
}