!7

cmodule QuickAudioRecord > DynPrintLog {
  transient volatile L<short[]> recording;
  transient long recordingSince; // in sysNow time
  transient JButton btn;
  transient bool stop;
  transient JLabel trayIcon;
  //transient short[] lastChunk; // for Record On Noise

  visualize {
    btn = jImageAndTextButton(#1101400, "Record [hold button down]");
    onMouseDownUp(btn, r startRecording, r stopRecording);
    ret northAndCenterWithMargins(btn, super.visualize());
  }
  
  start {
    preloadImage(#1101417);
    componentFieldsToKeep = initHashSetAndAdd(componentFieldsToKeep, 'trayIcon);
    
    dm_addAudioListener(vf<short[]> handleChunk);
    
    if (trayIcon == null) {
      trayIcon = jimage(#1101416);
      onMouseDownUp(trayIcon, r startRecording, r stopRecording);
      setToolTip(trayIcon, "Click & hold to record audio!");
    }
    dm_addTrayIcon(trayIcon);
  }
  
  void handleChunk(short[] data) enter {
    final L<short[]> l = recording;
    if (l == null) ret;
    l.add(cloneShortArray(data));
    
    if (stop) {
      stop = false;
      recording = null;
      recordingSince = 0;
      thread "Save WAV" {
        temp enter();
        print("Recording done. Got " + l(l) + " chunks");
        File wavFile = anonymousWAVEFile();
        multiShortArraysToWAVE(l, wavFile);
        printFileInfo(wavFile);
        vmBus_send('newRecording, wavFile);
      }
    }
  }
  
  // API
  
  void startRecording() {
    startRecording(null);
  }
  
  void startRecording(short[] initialChunk) {
    if (isRecording()) ret;
    setImage(trayIcon, #1101417);
    stop = false;
    print("Recording!");
    recordingSince = sysNow();
    recording = synchroList(llNonNulls(initialChunk));
    updatePrintLog();
  }
  
  void stopRecording { setImage(trayIcon, #1101416); set stop; }
  
  bool isRecording() { ret recording != null; }
  
  long recordingSince() { ret recordingSince; }
}