#!/usr/bin/perl

use 5.010;
use strict;

use Getopt::Long 0 qw(:config permute bundling no_auto_abbrev);
use HTML::HTML5::Parser 0.107 qw();
use HTML::HTML5::Sanity 0.101 qw(fix_document);
use XML::LibXML::PrettyPrint 0.001 qw();
use HTML::HTML5::Writer 0.104 qw();

# Read command-line options
my %options;
Getopt::Long::GetOptions(\%options,
	'markup|m=s',
	'polyglot=i',
	'doctype=s',
	'charset=s',
	'quote_attributes=s',
	'voids=s',
	'start_tags=s',
	'end_tags=s',
	'refs=s',
	'indent_string=s',
	);
my $input  = shift // '-';
my $output = shift // '-';

# Create a parser object and parse input HTML
my $parser = HTML::HTML5::Parser->new;
my $dom = ($input eq '-')
	? $parser->parse_string(do { local $/ = <STDIN> }) # Read from STDIN
	: $parser->parse_file($input);                     # Read from file/URL

# Use HTML::HTML5::Sanity to fix up HTML quirks
$HTML::HTML5::Sanity::FIX_LANG_ATTRIBUTES = 2;
my $fixed_dom = fix_document($dom);

# Pretty indentation
XML::LibXML::PrettyPrint
	->new_for_html(indent_string => (delete $options{indent_string} // "\t"))
	->pretty_print($fixed_dom);

# Create a writer object
my $writer = HTML::HTML5::Writer
	->new(%options);

if ($output eq '-')
{
	# Output to STDOUT
	say $writer->document($fixed_dom);
}
else
{
	# Output to FILE
	open my($fh), '>:encoding(UTF-8)', $output;
	say $fh $writer->document($fixed_dom);
	close $fh;
}