!7

module SimpleSnippetSearch {
  InputChooser inputChooser = new(this).setDelay(1000);
  
  bool fullTextSearch; // look at snippet texts too
  bool searchInBackground;
  // search when window is hidden
  
  transient int maxInputLength = 120;
  transient int maxResults = 1000;
  transient S query;
  transient L<SS> result;
  transient L<Snippet> snippetResults;
  transient WaitForStableValue<S> waitForStableValue = new(1.0);
  transient volatile bool calculating;
  transient JTable table;
  transient ReliableSingleThread rst;
  transient SimpleLiveValue<S> lvQuery = stringLiveValue();
  transient SimpleLiveValue<S> lvResultsTitle = stringLiveValue();

  visualize {
    SimpleLiveValue<Bool> lvFullTextSearch = dm_fieldLiveValue('fullTextSearch);
    lvFullTextSearch.onChange(r forceNewSearch);
    table = sexyTable();
    tablePopupMenuItemsThreaded_top(table,
      "Edit", voidfunc(int i) enter {
        Snippet s = _get(snippetResults, i);
        dm_openSnippetInEditor(s.id);
      },
      "Show in browser", voidfunc(int i) enter {
        Snippet s = _get(snippetResults, i);
        openURLInBrowser("http://tinybrain.de/" + psI(s.id));
      }, "Load Module", voidfunc(int i) enter {
        Snippet s = _get(snippetResults, i);
        dm_addDynamicModuleDialog2(s);
      });
    ret northAndCenter(wrap(inputChooser),
      withRightAlignedButtons(
      jLiveValueSection(lvResultsTitle,
        dataToTable_uneditable(result, table)),
      jLiveValueCheckBox("Full Text Search", lvFullTextSearch)));
  }

  S switchableFields() { ret 'searchInBackground; }
  
  void forceNewSearch { setField(query := null); }
  
  start {
    lvQuery.set(query);
    doEvery(500, rstUpdate());
  }
  
  void update {
    inputChooser.update();
    calc(inputChooser.input());
  }
  
  void calc(S q) {
    if (!allowedToSearch() || eq(query, q) || empty(q)) ret;
    query = q; result = null;
    lvQuery.set(q);
    tempSetField(this, calculating := true);
    tbSearch_v2_quick.set(!fullTextSearch);
    tbSearch_v2_html.set("want"); // We want the HTML too
    L<Snippet> l = tbSearch_v2(maxResults, q);
    S html = tbSearch_v2_html!;
    S desc = regexpExtractIC("Found (\\d+\\+?) snippets?", html);
    lvResultsTitle.set(or(desc, "No snippet results") + " for " + quote(q) + (fullTextSearch ? " (full text search)" : ""));
    snippetResults = l;
    result = map(l, func(Snippet s) -> SS {
      litorderedmap("ID + Title" := snippetWithTitle(s)
        /*, "Type" := s.type*/
    )});
    JTable t = table;
    if (t != null) dataToTable_uneditable(result, t);
  }
  
  bool allowedToSearch() enter { ret searchInBackground || dm_isVisible(); }
}