bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support observation time and weather icon.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-08-25 17:25:47 -04:00
parent 71550de7a1
commit 4d1da1c69b
1 changed files with 17 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
conky-mythtv-weather-build.plx
View file

@ -85,23 +85,33 @@ foreach my $ii (qw/0 1 2 3 4 5/) {
my $f = $FONT_SIZE + 5;
print '${voffset ', $VOFFSET_TEXT , '} ${font :size=', $f, '}${alignc}Weather:${font}', " $data{current}{'cclocation'}\n\n";
my($temp, $feelsLike, $humidity, $windSpeed, $windGust) = ($data{current}{temp},
$data{current}{heat_index}, $data{current}{relative_humidity},
$data{current}{wind_speed}, $data{current}{wind_gust});
my($temp, $feelsLike, $humidity, $windSpeed, $windGust, $icon, $datetime) =
($data{current}{temp}, $data{current}{heat_index},
$data{current}{relative_humidity}, $data{current}{wind_speed},
$data{current}{wind_gust}, $data{current}{weather_icon},
$data{current}{observation_time_rfc822});
my $ago = Delta_Format(DateCalc($datetime, $now), 0, "%mt min");
$ago = Delta_Format(DateCalc($datetime, $now), 0, "%st sec")
if ($ago =~ /0 minutes/);
$feelsLike = $data{current}{windchill}
if (not defined $feelsLike) or $feelsLike =~ /^\s*N[\s\/]*A\s*$/i;
undef $feelsLike if $feelsLike =~ /^\s*N[\s\/]*A\s*$/i;
undef $windGust if defined $windGust and $windGust =~ /^\s*N[\s\/]*A\s*$/i;
my($xpos, $vpos) = (350, $VOFFSET_IMAGE + 40);
print "\${font :size=${FONT_SIZE}px} Current: $temp $degree";
print " (feels like: $feelsLike $degree)" if defined $feelsLike;
print "\n\${goto 82}Humidity: $humidity\% Wind: $windSpeed kph";
print "\${image $mythIconPath/$icon -p $xpos,$vpos -s 50x37}"
unless $icon =~ /unknown/i;
print "\n\${goto 82}Humidity: $humidity\% Wind: $windSpeed kph";
print " ($windGust kph)" if defined $windGust;
print "\n\n";
print "\n" . ( (defined $ago) ? "\${alignr}(as of $ago ago)" : "" ) . "\n";
my($xpos, $vpos) = ($FONT_SIZE * (5 + length($data{forecast}{"time-0"})),
$VOFFSET_IMAGE + 98);
($xpos, $vpos) = ($FONT_SIZE * (5 + length($data{forecast}{"time-0"})),
$VOFFSET_IMAGE + 98);
foreach my $ii (qw/0 1 2 3 4 5/) {
my($time, $temp, $pop, $icon) =