element.
if ($options{pre}) {
string2html($_, \%options);
s|^||;
s|$||;
}
# LINES: preserve line breaks from original text.
elsif ($options{lines}) {
string2html($_, \%options);
s/\n/
\n/gm;
# SPACES: preserve spaces from original text.
s/ / /g if $options{spaces};
}
# PARAS: treat text as sequence of paragraphs.
elsif ($options{paras}) {
my @paras;
# Remove initial and final blank lines.
s/^(?:\s*?\n)+//;
s/(?:\n\s*?)+$//;
# Split on a different regexp depending on what kinds of paragraphs
# will be recognised later. The idea is that bulleted lists like
# this:
#
# * item 1
# * item 2
#
# will be recognised as multiple paragraphs if the 'bullets' option
# is supplied, but as a single paragraph otherwise. (Similarly for
# numbered lists).
if ($options{bullets} and $options{numbers}) {
@paras = split
/(?:\s*\n)+ # (0 or more blank lines, followed by LF)
(?:\s*\n # Either 1 or more blank lines, or
|(?=\s*[*-]\s+ # bulleted item follows, or
|\s*(?:\d+)[.\)\]]?\s+)) # numbered item follows
/x;
} elsif ($options{bullets}) {
@paras = split
/(?:\s*\n)+ # (0 or more blank lines, followed by LF)
(?:\s*\n # Either 1 or more blank lines, or
|(?=\s*[*-]\s+)) # bulleted item follows.
/x;
} elsif ($options{numbers}) {
@paras = split
/(?:\s*\n)+ # (0 or more blank lines, followed by LF)
(?:\s*\n # Either 1 or more blank lines, or
|(?=\s*(?:\d+)[.\)\]]?\s+)) # numbered item follows.
/x;
} else {
@paras = split
/\s*\n(?:\s*\n)+ # 1 or more blank lines.
/x;
}
my $last = ''; # List type (OL/UL) of last paragraph
my $this; # List type (OL/UL) of this paragraph
my $first = 1; # True if this is first paragraph
foreach (@paras) {
my (@rows,@starts,@ends);
$this = '';
# TITLE: mark up first paragraph as level-1 heading.
if ($options{title} and $first) {
string2html($_,\%options);
s|^||;
s|$|
|;
}
# HEADINGS: mark up paragraphs with numbers at the start of the
# first line as headings.
elsif ($options{headings} and /^(\d+(\.\d+)*)\.?\s/) {
my $number = $1;
my $level = 1 + ($number =~ tr/././);
$level = 6 if $level > 6;
string2html($_,\%options);
s|^||;
s|$| |;
}
# BULLETS: mark up paragraphs starting with bullets as items in an
# unnumbered list.
elsif ($options{bullets} and /^\s*[*-]\s+/) {
string2html($_,\%options);
s/^\s*[*-]\s+//; s|$|
|; $this = 'UL'; } # NUMBERS: mark up paragraphs starting with numbers as items in a # numbered list. elsif ($options{numbers} and /^\s*(\d+)[.\)\]]?\s+/) { string2html($_,\%options); s/^\s*(\d+)[.\)\]]?\s+//; s|$|
|; $this = 'OL'; } # TABLES: spot and mark up tables. We combine the lines of the # paragraph using the string bitwise or (|) operator, the result # being in $spaces. A character in $spaces is a space only if # there was a space at that position in every line of the # paragraph. $space can be used to search for contiguous spaces # that occur on all lines of the paragraph. If this results in at # least two columns, the paragraph is identified as a table. # # Note that this option appears before the various 'blockquotes' # options because a table may well have whitespace to the left, in # which case it must not be incorrectly recognised as a # blockquote. elsif ($options{tables} and do { @rows = split /\n/, $_; my $spaces; my $max = 0; my $min = length; foreach my $row (@rows) { ($spaces |= $row) =~ tr/ /\xff/c; $min = length $row if length $row < $min; $max = length $row if $max < length $row; } $spaces = substr $spaces, 0, $min; push(@starts, 0) unless $spaces =~ /^ /; while ($spaces =~ /((?:^| ) +)(?=[^ ])/g) { push @ends, pos($spaces) - length $1; push @starts, pos($spaces); } shift(@ends) if $spaces =~ /^ /; push(@ends, $max); # Two or more rows and two or more columns indicate a table. 2 <= @rows and 2 <= @starts }) { # For each column, guess whether it should be left, centre or # right aligned by examining all cells in that column for space # to the left or the right. A simple majority among those cells # that actually have space to one side or another decides (if no # alignment gets a majority, left alignment wins by default). my @align; foreach my $col (0 .. $#starts) { my @count = (0, 0, 0, 0); foreach my $row (@rows) { my $width = $ends[$col] - $starts[$col]; my $cell = substr $row, $starts[$col], $width; ++ $count[($cell =~ /^ / ? 2 : 0) + ($cell =~ / $/ || length($cell) < $width ? 1 : 0)]; } $align[$col] = 0; my $population = $count[1] + $count[2] + $count[3]; foreach (1 .. 3) { if ($count[$_] * 2 > $population) { $align[$col] = $_; last; } } } foreach my $row (@rows) { $row = join '', '|; s|$|
|; } # BLOCKCODE, BLOCKQUOTES: preserve line breaks. else { s/\n/|; s|$||; } # Didn't match any of the above, so just an ordinary paragraph. else { string2html($_,\%options); s|^|
|; s|$|
|; } # Insert