info=WolframAlpha["weather","PodInformation"];
ids=Rest[DeleteDuplicates[#[[1,1,1]]& /@ info]];
titles=Map[{{#, 0},"Title"}&,ids] /. info;
contents=Column[Cases[info,_[{{#,_},"Content"},val_]:>val]]& /@ ids;
MenuView[Thread[titles -> contents],ImageSize -> Automatic]