don't flip 1-pin horizontally

[linux-gpio-pinout] / gpio.pl

diff --git a/gpio.pl b/gpio.pl
index 6df9d1f..9c59299 100755 (executable)
--- 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"};