diff options
Diffstat (limited to 'scripts/MarkdownBook/Document')
-rw-r--r-- | scripts/MarkdownBook/Document/Appendix.pm | 32 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/Chapter.pm | 32 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/HTML.pm | 3 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/HTML/Appendix.pm | 26 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/HTML/Chapter.pm | 26 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/HTML/Index.pm | 26 | ||||
-rw-r--r-- | scripts/MarkdownBook/Document/Index.pm | 48 |
7 files changed, 1 insertions, 192 deletions
diff --git a/scripts/MarkdownBook/Document/Appendix.pm b/scripts/MarkdownBook/Document/Appendix.pm deleted file mode 100644 index 37d3cf8..0000000 --- a/scripts/MarkdownBook/Document/Appendix.pm +++ /dev/null @@ -1,32 +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 MarkdownBook::Document; - -package MarkdownBook::Document::Appendix; - -our @ISA = qw(MarkdownBook::Document); - -sub full_title -{ - my ($self) = @_; - - return sprintf('Appendix %s - %s', $self->{'id'}, $self->{'title'}); -} - -1; diff --git a/scripts/MarkdownBook/Document/Chapter.pm b/scripts/MarkdownBook/Document/Chapter.pm deleted file mode 100644 index 90a5f5c..0000000 --- a/scripts/MarkdownBook/Document/Chapter.pm +++ /dev/null @@ -1,32 +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 MarkdownBook::Document; - -package MarkdownBook::Document::Chapter; - -our @ISA = qw(MarkdownBook::Document); - -sub full_title -{ - my ($self) = @_; - - return sprintf('Chapter %d - %s', $self->{'id'}, $self->{'title'}); -} - -1; diff --git a/scripts/MarkdownBook/Document/HTML.pm b/scripts/MarkdownBook/Document/HTML.pm index f2c8d1c..e775327 100644 --- a/scripts/MarkdownBook/Document/HTML.pm +++ b/scripts/MarkdownBook/Document/HTML.pm @@ -83,8 +83,7 @@ sub output $body .= $elem->as_HTML('<>&', '', \%opt_end_tags) . "\n"; } - $doc_tmpl->param(IS_INDEX => (ref($self) eq - $self->{'book'}->get_document_module('Index'))); + $doc_tmpl->param(IS_INDEX => ($self->{'type'} eq 'index')); $doc_tmpl->param(BOOK_TITLE => $self->{'book'}->title()); $doc_tmpl->param(TITLE => $self->{'title'}); diff --git a/scripts/MarkdownBook/Document/HTML/Appendix.pm b/scripts/MarkdownBook/Document/HTML/Appendix.pm deleted file mode 100644 index 506b7d2..0000000 --- a/scripts/MarkdownBook/Document/HTML/Appendix.pm +++ /dev/null @@ -1,26 +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 MarkdownBook::Document::HTML; -use MarkdownBook::Document::Appendix; - -package MarkdownBook::Document::HTML::Appendix; - -our @ISA = qw(MarkdownBook::Document::Appendix MarkdownBook::Document::HTML); - -1; diff --git a/scripts/MarkdownBook/Document/HTML/Chapter.pm b/scripts/MarkdownBook/Document/HTML/Chapter.pm deleted file mode 100644 index 49d2511..0000000 --- a/scripts/MarkdownBook/Document/HTML/Chapter.pm +++ /dev/null @@ -1,26 +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 MarkdownBook::Document::HTML; -use MarkdownBook::Document::Chapter; - -package MarkdownBook::Document::HTML::Chapter; - -our @ISA = qw(MarkdownBook::Document::Chapter MarkdownBook::Document::HTML); - -1; diff --git a/scripts/MarkdownBook/Document/HTML/Index.pm b/scripts/MarkdownBook/Document/HTML/Index.pm deleted file mode 100644 index 355f179..0000000 --- a/scripts/MarkdownBook/Document/HTML/Index.pm +++ /dev/null @@ -1,26 +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 MarkdownBook::Document::HTML; -use MarkdownBook::Document::Index; - -package MarkdownBook::Document::HTML::Index; - -our @ISA = qw(MarkdownBook::Document::Index MarkdownBook::Document::HTML); - -1; diff --git a/scripts/MarkdownBook/Document/Index.pm b/scripts/MarkdownBook/Document/Index.pm deleted file mode 100644 index df94305..0000000 --- a/scripts/MarkdownBook/Document/Index.pm +++ /dev/null @@ -1,48 +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 MarkdownBook::Document; - -package MarkdownBook::Document::Index; - -our @ISA = qw(MarkdownBook::Document); - -sub new -{ - my ($class, $book) = @_; - my $self; - - $class = ref($class) || $class; - $self = {}; - bless($self, $class); - - $self->{'book'} = $book; - $self->{'file'} = 'index'; - $self->{'title'} = $book->title(); - - return $self; -} - -sub full_title -{ - my ($self) = @_; - - return undef; -} - -1; |