From 562739d75878cb1818c9e07d57e27991085b7e22 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sun, 12 May 2013 16:34:55 +0200 Subject: Duplicate styling drop and document headers drop from htm2html-default to html2html-1. --- mkhtm2html-1 | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'mkhtm2html-1') diff --git a/mkhtm2html-1 b/mkhtm2html-1 index 2d9e00d..307a584 100755 --- a/mkhtm2html-1 +++ b/mkhtm2html-1 @@ -30,6 +30,10 @@ foreach my $class ( map /(?<=\.)(ft\d+)(?={font-size:6px;)/mg, $_ ) { s{]*>\(

\s*]*\sclass="$class">\d+

\s*]*>\) [^<]*

\s*}{}mg; }; +# drop document headers +s{.*?\s*}{}msg; +s{\n\n.*?]*>\s*}{}msg; + # unwrap similarly styled bolded paragraphs s{]*class="([^"]+)"[^>]*>[^<]+\K

\s*]*class="\1"[^>]*>}{ }mg; @@ -46,6 +50,9 @@ s{]*>\(([ivx]+)\)

}{
$1
}mg; s{(?<=\S)-(
|

\s*]*>)(?=[[:lower:]])}{}mg; s{\s*
\s*}{ }mg; +# drop styling +s{]*>}{

}mg; + write_file( $stem . '.html', $_ ); print "DONE: $0 stem $stem\n"; -- cgit v1.2.3