!7

concept Entry {
  S text;
  int index;
}

cmodule ELEListOfEverything > DynCRUD<Entry> {
  L<Entry> concepts() enter { ret asList(conceptsSortedByField(Entry, 'index)); }
  
  start {
    indexConceptFieldCI(Entry, 'text);
    dm_registerAs eleLOE();
  }
  
  // API
  
  void addToLOE(S s) q {
    S s2 = trim(s);
    if (nempty(s2))
      uniqCI Entry(text := s2);
  }
}