2 # vim:ts=4:sw=4:expandtab
9 $Pod::Simple::HTML::Tagmap{'Verbatim'} = '<pre><tt>';
10 $Pod::Simple::HTML::Tagmap{'VerbatimFormatted'} = '<pre><tt>';
11 $Pod::Simple::HTML::Tagmap{'/Verbatim'} = '</tt></pre>';
12 $Pod::Simple::HTML::Tagmap{'/VerbatimFormatted'} = '</tt></pre>';
15 say STDERR "Syntax: i3-pod2html <pod-input-path> <html-output-path>";
19 open(my $in, '<', $ARGV[0]) or die "Couldn’t open $ARGV[0] for reading: $!\n";
20 open(my $out, '>', $ARGV[1]) or die "Couldn’t open $ARGV[1] for writing: $!\n";
22 my $parser = Pod::Simple::HTML->new();
25 $parser->html_header_before_title(
30 <link rel="icon" type="image/png" href="/favicon.png">
31 <meta charset="utf-8">
32 <meta name="generator" content="Pod::Simple::HTML">
33 <meta name="description" content="i3 Perl documentation (testsuite)">
34 <link rel="stylesheet" href="http://i3wm.org/css/style.css" type="text/css" />
35 <style type="text/css">
38 border: 1px solid #555;
39 border-left: 5px solid #555;
48 list-style-type: none;
51 margin-bottom: 0 !important;
55 font-family: 'Droid Sans Mono', sans-serif;
59 .pod h1 a, .pod h2 a, .pod h3 a, .pod h4 a {
60 text-decoration: none;
67 $parser->html_header_after_title(
74 <a href="/"><h1 id="title">i3 - improved tiling WM</h1></a>
76 <li><a style="border-bottom: 2px solid #fff" href="/docs">Docs</a></li>
77 <li><a href="/screenshots">Screens</a></li>
78 <li><a href="http://faq.i3wm.org/">FAQ</a></li>
79 <li><a href="/contact">Contact</a></li>
80 <li><a href="http://bugs.i3wm.org/">Bugs</a></li>
82 <br style="clear: both">
83 <div id="content" class="pod">
84 <h1>i3 Perl documentation (testsuite)</h1>
89 $parser->output_fh($out);
90 $parser->parse_file($in);