#!/usr/bin/env perl # vim:ts=4:sw=4:expandtab use strict; use warnings; use Pod::Simple::HTML; use v5.10; $Pod::Simple::HTML::Tagmap{'Verbatim'} = '

';
$Pod::Simple::HTML::Tagmap{'VerbatimFormatted'} = '';
$Pod::Simple::HTML::Tagmap{'/Verbatim'} = '';
$Pod::Simple::HTML::Tagmap{'/VerbatimFormatted'} = '

'; if (@ARGV < 2) { say STDERR "Syntax: i3-pod2html

"; exit 1; } open(my $in, '<', $ARGV[0]) or die "Couldn’t open $ARGV[0] for reading: $!\n"; open(my $out, '>', $ARGV[1]) or die "Couldn’t open $ARGV[1] for writing: $!\n"; my $parser = Pod::Simple::HTML->new(); $parser->index(1); $parser->html_header_before_title( <<'EOF' EOF ); $parser->html_header_after_title( <<'EOF'

i3 - improved tiling WM

Docs
Screens
FAQ
Contact
Bugs

i3 Perl documentation (testsuite)

EOF ); $parser->output_fh($out); $parser->parse_file($in);