!7

set flag DynModule.

sclass Recording {
  File file, clippedFile;
  double clippedLength;
  S text;
}

sclass AudioRecordings extends DynObjectTable<Recording> {
  start {
    itemToMap = func(Recording r) -> Map {
      litorderedmap(
        Name := fileName(r.file),
        "Clipped length" := r.clippedLength == 0 ? "" : formatDouble(r.clippedLength, 1) + " s",
        Word := r.text)
    };
    setData(map(allRecordings(), func(File f) -> Recording {
      nu(Recording,
        file := f,
        clippedFile := fileIfExists(fileInSubDir(f, "clipped")),
        text := wordFromAudioFileName(f.getName()))
    }));
    
    thread "Get Clip Lengths" {
      bool change;
      for (Recording r : data)
        if (r.clippedLength == 0) pcall-short {
          double l = lengthOfWAVInSeconds(r.clippedFile);
          if (l != 0) { set change; r.clippedLength = l; }
        }
      if (change) updateTable();
    }
  }
}