From c0edd7e3b41aa0dcf511718079893a20bcd34127 Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Fri, 10 Aug 2012 03:09:38 -0400 Subject: Add post-processing script and modules. --- (limited to 'scripts/MarkdownBook/Document') diff --git a/scripts/MarkdownBook/Document/Appendix.pm b/scripts/MarkdownBook/Document/Appendix.pm new file mode 100644 index 0000000..37d3cf8 --- /dev/null +++ b/scripts/MarkdownBook/Document/Appendix.pm @@ -0,0 +1,32 @@ +# 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 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 new file mode 100644 index 0000000..90a5f5c --- /dev/null +++ b/scripts/MarkdownBook/Document/Chapter.pm @@ -0,0 +1,32 @@ +# 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 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/Index.pm b/scripts/MarkdownBook/Document/Index.pm new file mode 100644 index 0000000..e005396 --- /dev/null +++ b/scripts/MarkdownBook/Document/Index.pm @@ -0,0 +1,47 @@ +# 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 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; -- cgit v0.9.1