Weather conditions for world country capitals
In[]:=
caplist=DeleteMissing[Sort[CountryData["Countries","CapitalCity"]]];
In[]:=
Manipulate[Framed[Grid[{{Style[Text[CommonName[capital]],Orange,Large],SpanFromLeft},{Style[Text[DateString[LocalTime[capital]]],Gray,Medium],SpanFromLeft},{IconData["AirTemperature",WeatherData[capital,"Temperature"]],IconData["RelativeHumidity",WeatherData[capital,"Humidity"]]},{IconData["WindSpeed",WeatherData[capital,"WindSpeed"]],IconData["WindDirection",WeatherData[capital,"WindDirection"]]}},Dividers->{None,3->Gray}],RoundingRadius->10,FrameMargins->20,FrameStyle->{Thick,Gray}],{capital,caplist},FrameLabel->"World Capitals Weather Condition",ControlPlacement->Top,SaveDefinitionsTrue]
Out[]=
