Of possible use:
Clear[CurrentTemperature];
CurrentTemperature[] := CurrentTemperature[$GeoLocation];
CurrentTemperature[{latitude_, longitude_}] := UnitConvert[
Quantity[WeatherData[{latitude, longitude}, "Temperature"],
"DegreesCelcius"], "DegreesFahrenheit"]
Usage:
CurrentTemperature[]
Result:
Quantity[32., "DegreesFahrenheit"]