Pensieve header: Making transcripts for dbnvp videos. Continues pensieve://2019-04/SpeechRecognize.nb.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\dbnvp"]

Options[MakeTranscript]={SegmentLength->60, SaveTo->None};
MakeTranscript[v_String]:=MakeTranscript[Source->"C:/drorbn/dbnvp/orig/"<>v, SaveTo->v<>".txt"];
MakeTranscript[opts__Rule]:=Module[
{
src=Source /. {opts},
txt=SaveTo /. {opts} /. Options[MakeTranscript],
d = SegmentLength /. {opts} /. Options[MakeTranscript],
audio,len, transcript
},
audio=Import[src, "Audio"];
len=QuantityMagnitude[Duration[audio],"Second"];
Echo[len/60];
transcript=Table[Echo@{t,SpeechRecognize[audio,Masking->{t-1,t+d+1}]},{t,0.,len-1,d}];
transcript
]

transcript=MakeTranscript["Toronto-1811.mp4"]

WordCloud@DeleteStopwords[Join@@(StringSplit/@transcript[[All,2]])]