diff options
| author | P. J. McDermott <pjm@nac.net> | 2012-08-12 09:51:18 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2012-08-12 09:51:18 (EDT) |
| commit | c0f12961b11ab4f8ec839c911dd5d4dff03a7092 (patch) | |
| tree | ad168042fcb28ca154183a0c403256b4cc1004e4 | |
| parent | 16676d4ba54db28e6abf38c1df9970398e877026 (diff) | |
Implement "sectlink" macro.
| -rw-r--r-- | scripts/MarkdownBook/Book.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index 09225df..a3d9eeb 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -189,10 +189,14 @@ sub subst_macros sub _do_subst_macro { my ($self, $macro, @args) = @_; + my $sec; if ($macro eq 'toc') { return $self->_do_gen_toc(); } elsif ($macro eq 'sectlink') { + die('Invalid arguments to "sectlink" macro') if @args != 1; + $sec = $self->{'sections_by_id'}->{$args[0]}; + return '[ยง ' . $sec->number() . '][' . $sec->id() . ']'; } else { die("Unrecognized macro \"$macro\""); } |