!7

set flag DynModule.

sclass Recording {
  File file, clippedFile;
  double length, clippedLength;
  S text, guess;
  
  *() {}
  *(File *file) {
    text = wordFromAudioFileName(file.getName());
    guess = getFileInfoField(file, 'Guess);
  }
  
  bool updateClip() {
    bool change = false;
    clippedFile = fileIfExists(fileInSubDir(file, "clipped"));
    if (length == 0) try {
      double l = lengthOfWAVInSeconds(file);
      if (l != 0) { length = l; set change; }
    } catch print e { length = -1; }
    if (clippedLength == 0) try {
      double l = lengthOfWAVInSeconds(clippedFile);
      if (l != 0) { clippedLength = l; set change; }
    } catch print e { clippedLength = -1; }
    ret change;
  }
}

sclass AudioRecordings extends DynObjectTable<Recording> {
  transient ReliableSingleThread scan = dm_rst(this, r _scan);
  
  start {
    itemToMap = func(Recording r) -> Map {
      litorderedmap(
        Name := fileName(r.file),
        "Length" := formatDouble(r.length, 1) + " s",
        "Clipped length" := r.clippedLength == 0 ? "" : formatDouble(r.clippedLength, 1) + " s",
        Word := r.text,
        Guess := r.guess)
    };
    ownResource(vmBus_onMessage('newRecording, scan));
    scan.trigger();
  }
  
  void _scan {
    temp enter();
    setData(map(latestFilesFirst(allRecordings()), func(File f) -> Recording {
      Recording(f)
    }));
    
    thread "Get Clip Lengths" {
      bool change = false;
      for (Recording r : data)
        if (r.updateClip()) set change;
      if (change) updateTable();
    }
  }
  
  visualize {
    JComponent c = super.visualize();
    ret withCenteredButtons(c,
      tableDependentButton(table, "Clip", rThread {
        File f = selected().file;
        //autoClipRecording(f);
        clipWAVFromMarkers(f, fileInSubDir(f, "clipped"));
        selected().updateClip();
        updateTable();
      }),
      tableDependentButton(table, "Copy path", rThread { copyTextToClipboard(f2s(selected().file)) }),
      tableDependentButton(table, "Play full", rThread { dm_playWAV(selected().file) }),
      tableDependentButton(table, "Show & set markers", rThread { showAudioFileWithEditableMarkers(selected().file) }),
      tableDependentButton(table, "Play clipped", rThread { dm_playWAV(selected().clippedFile) }),
      tableDependentButton(table, "Show clipped", rThread { showFrequencyImage(selected().clippedFile) }),
      tableDependentButton(table, "Set word...", rThread {
        final Recording r = selected();
        inputText("Word spoken in " + r.file.getName(), voidfunc(S word) {
          File newFile = makeFileNameUnique_space(recordingsDir(word + ".wav"));
          renameRecordingAndClipAndGuess(r.file, newFile.getName());
          Recording r2 = new(newFile);
          r2.updateClip();
          syncReplace(data, r, r2);
          updateTable();
        });
      }),
    );
  }
}

Began life as a copy of #1018469