From a82b90f57640ce2424bd8ca50c0ed0a20bb3cc69 Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Sun, 12 Aug 2012 08:44:20 -0400 Subject: Remove cruft. --- (limited to 'scripts') 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 . - -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; -- cgit v0.9.1