76 lines
2.0 KiB
Perl
76 lines
2.0 KiB
Perl
#!/usr/bin/perl
|
|
|
|
print "=pod\n\n\n\n";
|
|
|
|
print "=head1 NAME\n\n\nEnlightenment - The Window Manager that dares to do what others don't\n\n\n\n";
|
|
|
|
print "=head1 WARNING\n\n\n";
|
|
|
|
print "This documentation is automatically generated for you from the\n";
|
|
print "online help documentation. It is NOT to be considered a full\n";
|
|
print "substitute for this documentation. It may be accessed by\n";
|
|
print "middle clicking on your desktop and selecting the \"Help\" item.\n";
|
|
print "If you are not currently running enlightenment, you may access\n";
|
|
print "this documentation by running the dox Help Browser\n";
|
|
print "To do this, run ENLIGHTENMENT_BIN/dox ENLIGHTENMENT_ROOT/E-docs\n";
|
|
print "(where BIN and ROOT are the locations of your e binaries and shared\n";
|
|
print "files, respectively)\n\n\n\n\n";
|
|
|
|
print "=head1 DESCRIPTION\n\n\n";
|
|
|
|
undef $/;
|
|
$_ = <>;
|
|
s/<br>/ /gi;
|
|
s/<p\b[^>]*>/\n/gi;
|
|
s/<page\b[^>]*>/\n/gi;
|
|
s/<img[^>]*>/\n/gi;
|
|
s/\b_(\w+)\(\w+\)(?:<br>\n)?/undermunge($1)/ge;
|
|
s/^ (?=\w)//gm;
|
|
|
|
s{<font face=rothwell/25 color=#ffffff>(.*?)<font face=aircut3/12 color=#ffffff>}{maketitle($1)}seg;
|
|
|
|
s{<font face=aircut3/12 color=#ccaacc>(.*?)<font.*?>}{make_lit($1)}ges;
|
|
s{<font face=aircut3/10 color=#112222>(.*?)<font.*?>}{make_lit($1)}ges;
|
|
|
|
s/\n{2,}\s*((?:[A-Z]\w+ *)+)\n{2,}/\n\n=head2 $1\n\n/g;
|
|
s/\s+\.\n/. /gm;
|
|
s/\(more on next page \.\.\.\)\n//g;
|
|
s/More on the next page.\n\n//g;
|
|
s/<font\b[^>]*>//g;
|
|
s/ +$//gm;
|
|
s/\n{3,}/\n\n/g;
|
|
s/Frequently Asked Questions: Page .\n//g;
|
|
s/\n\nGNOME Setup Part 2\n//g;
|
|
s/\nnext page\n//g;
|
|
s/\n<br align=75\%>//g;
|
|
s/\n_.*\(faq.*\)\n\n/\n/g;
|
|
s/\n_.*\(faq.*\)\n\n/\n/g;
|
|
s/\n_.*\(faq.*\)\n\n/\n/g;
|
|
s/\n_.*\(faq.*\)\n\n/\n/g;
|
|
s/Documentation Index/Welcome To Enlightenment/g;
|
|
print;
|
|
|
|
print "\n\n\n\n=head1 FOR MORE INFORMATION\n\n\n";
|
|
print "Please see our web site at http://www.enlightenment.org\n";
|
|
|
|
sub undermunge {
|
|
local $_ = shift;
|
|
s/_/ /g;
|
|
return $_;
|
|
}
|
|
|
|
sub maketitle {
|
|
local $_ = shift;
|
|
s/\n/ /g;
|
|
s/^\s+//;
|
|
s/\s+$//;
|
|
s/^/\n\n/;
|
|
return $_;
|
|
}
|
|
|
|
sub make_lit {
|
|
local $_ = shift;
|
|
s/^/ /gm;
|
|
return $_;
|
|
}
|