diff options
| -rw-r--r-- | scripts/MarkdownBook/HTMLTree.pm | 28 | ||||
| -rw-r--r-- | scripts/MarkdownBook/Section/HTML.pm | 66 |
2 files changed, 0 insertions, 94 deletions
diff --git a/scripts/MarkdownBook/HTMLTree.pm b/scripts/MarkdownBook/HTMLTree.pm index 419eb53..e01bab0 100644 --- a/scripts/MarkdownBook/HTMLTree.pm +++ b/scripts/MarkdownBook/HTMLTree.pm @@ -41,32 +41,4 @@ sub find_elements_by_tag_names return @retlist; } -sub each_text -{ - my ($elem) = @_; - - my $child = $elem; - my $root = $elem; - - return _each_text_recursive($child, $root); -} - -sub _each_text_recursive -{ - my ($elem, $root) = @_; - - my $child; - my @retlist = (); - - foreach $child ($elem->content_list()) { - if (ref($_) eq 'HTML::Element') { - push(@retlist, _each_text_recursive($child, $root)); - } else { - push(@retlist, $child); - } - } - - return @retlist; -} - 1; diff --git a/scripts/MarkdownBook/Section/HTML.pm b/scripts/MarkdownBook/Section/HTML.pm deleted file mode 100644 index 8208d9e..0000000 --- a/scripts/MarkdownBook/Section/HTML.pm +++ /dev/null @@ -1,66 +0,0 @@ -# Copyright (C) 2012 Patrick "P. J." McDermott -# -# This program is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation, either version 3 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. - -use strict; -use warnings; - -use HTML::Element; - -package MarkdownBook::Section::HTML; - -our @ISA = qw(MarkdownBook::Section); - -sub new -{ - my ($class, $doc, $num, $elem) = @_; - my $self; - my $child; - my $i = -1; - my $secid; - my $sectitle; - - $class = ref($class) || $class; - $self = {}; - bless($self, $class); - - $self->{'document'} = $doc; - $self->{'number'} = $num; - $self->{'element'} = $elem; - - foreach $child (MarkdownBook::HTMLTree::each_text($elem)) { - - ++$i; - - # Set "id" attribute. - if ($child =~ m/^[^\[\]]*\[([^\]]+)\][^\[\]]*$/) { - $secid = $child; - $secid =~ s/^[^\[\]]*\[([^\]]+)\][^\[\]]*$/$1/; - $elem->attr('id', $secid); - } - - # Prefix section title with section number. - $child =~ s/^([^\[]+)[ ]*\[[^\]]+\]$/$1/; - $child =~ s/[ ]*$//; - - # Set section title. - $sectitle .= $child; - $elem->splice_content($i, 1, $num . ' ' . $child); - - } - - return $self; -} - -1; |