!7

// Note: Modules to be snooped on must have been retranspiled
// after Sep 2020 so they send "printed" VM bus messages
cmodule PrintSnooper > DynPrintLog {
  switchable bool enabled;
  switchable S filter = ""; // regular expression
  
  start {
    dm_vmBus_onMessage printed(voidfunc(O where, S text) {
      if (!enabled) ret;
      switch to q();
      if (!regexpFindIC(filter, text)) ret;
      print(localTimeWithSeconds() + " " + shorten(escapeNewLines(text), 200));
    });
  }
  
  visual centerAndSouthWithMargins(super,
    centerAndEastWithMargin(dm_fieldWithLabel filter(),
      dm_fieldCheckBox enabled()));
}