From 64bc54a6fed0d8de05df260f83cd7bb177fd93b3 Mon Sep 17 00:00:00 2001 From: P. J. McDermott Date: Sun, 12 Aug 2012 07:25:52 -0400 Subject: Support "txt"-format document output. --- (limited to 'scripts/MarkdownBook') diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index b7216f3..f758aa3 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -16,6 +16,7 @@ use strict; use warnings; +use MarkdownBook::Document::Txt; use MarkdownBook::Document::HTML; package MarkdownBook::Book; diff --git a/scripts/MarkdownBook/Document/Txt.pm b/scripts/MarkdownBook/Document/Txt.pm new file mode 100644 index 0000000..4f30d43 --- /dev/null +++ b/scripts/MarkdownBook/Document/Txt.pm @@ -0,0 +1,41 @@ +# 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::Txt; + +our @ISA = qw(MarkdownBook::Document); + +sub output +{ + my ($self) = @_; + my $out_fh; + + open($out_fh, '>', + $self->{'book'}->dir() . '/' . $self->{'file'} . '.txt'); + + print($out_fh $self->{'title'} . "\n" . + '*' x length($self->{'title'}) . "\n\n\n"); + + print($out_fh $self->{'source_text'}); + + close($out_fh); +} + +1; -- cgit v0.9.1