diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-12 09:29:45 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-12 09:29:45 (EDT) |
| commit | f8ad857f3386264e752ef586959b65a7219538b1 (patch) | |
| tree | c9ef9f22cef567faa5625edb9bd737a4064a9006 /scripts/MarkdownBook/Document/Txt.pm | |
| parent | 787758b938b5f0f1cd657b6eef43b0ca8ba6df2c (diff) | |
Comment and clean up code.
Diffstat (limited to 'scripts/MarkdownBook/Document/Txt.pm')
| -rw-r--r-- | scripts/MarkdownBook/Document/Txt.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/scripts/MarkdownBook/Document/Txt.pm b/scripts/MarkdownBook/Document/Txt.pm index e03a1bb..6c7f038 100644 --- a/scripts/MarkdownBook/Document/Txt.pm +++ b/scripts/MarkdownBook/Document/Txt.pm @@ -30,9 +30,11 @@ sub output open($out_fh, '>', $self->{'book'}->dir() . '/' . $self->{'file'} . '.txt'); + # Print document title. print($out_fh $self->{'title'} . "\n" . '*' x length($self->{'title'}) . "\n\n\n"); + # Print document text with macro substitutions. print($out_fh $self->{'book'}->subst_macros($self->{'source_text'})); close($out_fh); |