X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=gpio.pl;h=9c59299037cc3d735282c97de5d50d018f77ba26;hb=c2ecb40e8fb92bd115ef1e4cee15198b1b76a821;hp=6df9d1f1092d0bcd0522f56548def5f0f05c478a;hpb=dd8b8c28adbc8937cd92f1d37d59c7027d18f5e0;p=linux-gpio-pinout diff --git a/gpio.pl b/gpio.pl index 6df9d1f..9c59299 100755 --- a/gpio.pl +++ b/gpio.pl @@ -138,7 +138,7 @@ foreach my $line (@lines) { $line =~ s/\[(\w+) (\w+) \1(\d+)\]/[$1$3 $2]/g; my @v = split(/\s*\t+\s*/,$line,4); - @v = ( $v[2], $v[3], $v[0], $v[1] ) if $opt_horizontal; + @v = ( $v[2], $v[3], $v[0], $v[1] ) if $opt_horizontal && $v[2]; push @line_parts, [ @v ]; foreach my $i ( 0 .. 3 ) { @@ -241,6 +241,7 @@ sub svg_style { } elsif ( $name =~ m/\[(\w+)/ ) { # kernel my $dev = $1; my ($fg,$bg) = @{ $cols->{txt} }; + $dev = 'serial' if $dev =~ m/^tty/; ($fg,$bg) = @{ $cols->{$dev} } if exists $cols->{$dev}; rect $x,$y,$col,$bg; return qq{ style="fill:$fg"};