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

Different voffset for images due to conky having two grids for each.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-08-25 16:17:38 -04:00
parent b2ae548b28
commit 34b121270d
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -27,11 +27,11 @@ use utf8;
use feature 'unicode_strings'; use feature 'unicode_strings';
use Encode qw(encode decode); use Encode qw(encode decode);
if (@ARGV != 5 and @ARGV != 6) { if (@ARGV != 6 and @ARGV != 7) {
print STDERR "usage: $0 /path/to/mythtv/git/checkout <units> <location> <voffset> <fontsize_pixels> [hour-format]\n"; print STDERR "usage: $0 /path/to/mythtv/git/checkout <units> <location> <text_voffset> <img_voffset> <fontsize_pixels> [hour-format]\n";
exit 1; exit 1;
} }
my($MYTH_PATH, $UNITS, $LOCATION, $VOFFSET, $FONT_SIZE, $HOUR_FORMAT) = @ARGV; my($MYTH_PATH, $UNITS, $LOCATION, $VOFFSET_TEXT, $VOFFSET_IMAGE, $FONT_SIZE, $HOUR_FORMAT) = @ARGV;
$HOUR_FORMAT = "%a %H:%M" unless defined $HOUR_FORMAT; $HOUR_FORMAT = "%a %H:%M" unless defined $HOUR_FORMAT;
my $degree; my $degree;
if ($UNITS eq "SI") { if ($UNITS eq "SI") {
@ -72,10 +72,10 @@ foreach my $ii (qw/0 1 2 3 4 5/) {
$forecast{"time-${ii}"} = UnixDate($time, $HOUR_FORMAT); $forecast{"time-${ii}"} = UnixDate($time, $HOUR_FORMAT);
} }
} }
my($xpos, $vpos) = ($FONT_SIZE * (2 + length($forecast{"time-0"})), my($xpos, $vpos) = ($FONT_SIZE * (3 + length($forecast{"time-0"})),
$VOFFSET + 37); $VOFFSET_IMAGE + 37);
my $f = $FONT_SIZE + 5; my $f = $FONT_SIZE + 5;
print '${voffset ', $VOFFSET , '} ${font :size=', $f, '}${alignc}Forecast:${font}', " $forecast{'18hrlocation'}\n\n"; print '${voffset ', $VOFFSET_TEXT , '} ${font :size=', $f, '}${alignc}Forecast:${font}', " $forecast{'18hrlocation'}\n\n";
foreach my $ii (qw/0 1 2 3 4 5/) { foreach my $ii (qw/0 1 2 3 4 5/) {
my($time, $temp, $pop, $icon) = my($time, $temp, $pop, $icon) =
($forecast{"time-${ii}"}, $forecast{"temp-${ii}"}, ($forecast{"time-${ii}"}, $forecast{"temp-${ii}"},