X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=bin%2Fbin%2Ftexinavfix.pl;fp=bin%2Fbin%2Ftexinavfix.pl;h=b82a85e7e34ddd09313b3951dc1c6a605ffa6644;hb=d2e5cc8ecae8174df5a584931c0e839577c4efbd;hp=0000000000000000000000000000000000000000;hpb=a5e85a783b53736f297c87d1e8537a8ddeba6840;p=dotfiles.git

diff --git a/bin/bin/texinavfix.pl b/bin/bin/texinavfix.pl
new file mode 100755
index 0000000..b82a85e
--- /dev/null
+++ b/bin/bin/texinavfix.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my %rels;
+my $header = 0;
+my $printed = 0;
+
+while(<STDIN>){
+    ($rels{$2} = $1) if /^<link href="([^#]*)[^"]*" rel="([^"]*)" title/;
+    if(/^<div class="header">$/){
+        print "$_<center><p>";
+        if(defined $rels{"prev"}){
+            print "<a href=\"$rels{'prev'}\">[&lt;&lt;&lt;]</a>";
+        };
+        if(defined $rels{"up"}){
+            print "<a href=\"$rels{'up'}\">[^^^]</a>";
+        };
+        if(defined $rels{"next"}){
+            print "<a href=\"$rels{'next'}\">[&gt;&gt;&gt;]</a>";
+        };
+        $header++;
+    };
+    if($header && /^<.div>$/){
+        print "</p></center>$_";
+        $header--;
+    };
+    next if $header;
+    print;
+};