diff options
author | Norbert Preining <norbert@preining.info> | 2022-11-09 03:02:50 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-11-09 03:02:50 +0000 |
commit | 5de83ec843cdc88e6adc42b1fe3f0ec48c52b7f3 (patch) | |
tree | b49f7c180396c8ef389c8fd519370b6d03f4e100 /macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init | |
parent | 118cb5bbc5236bf86ca1088b9b3bae04c7b09beb (diff) |
CTAN sync 202211090302
Diffstat (limited to 'macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init')
-rw-r--r-- | macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init b/macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init index bc944f04f8..5ccfbd4a9e 100644 --- a/macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init +++ b/macros/texinfo/texinfo/tp/t/init/mini_ker_t2h.init @@ -1,33 +1,34 @@ -set_from_init_file('shortcontents', 1); +texinfo_set_from_init_file('shortcontents', 1); sub mini_ker_element_type($$$$) { my $self = shift; - my $cmdname = shift; - my $command = shift; + my $type = shift; + my $element = shift; my $content = shift; - if ($self->element_is_top($command)) { + if ($self->element_is_tree_unit_top($element)) { my $result = ''; - $result .= &{$self->{'format_navigation_header'}}($self, - $self->get_conf('MISC_BUTTONS'), $cmdname, $command) + $result .= &{$self->formatting_function('format_navigation_header')}($self, + $self->get_conf('MISC_BUTTONS'), $type, $element) if ($self->get_conf('SPLIT') or $self->get_conf('HEADERS')); - $result .= &{$self->{'format_titlepage'}}($self); - my $overview = &{$self->{'format_contents'}}($self, 'shortcontents', undef); + $result .= &{$self->formatting_function('format_titlepage')}($self); + my $overview = &{$self->formatting_function('format_contents')}($self, + 'shortcontents'); if ($overview) { - $result .= '<h2> ' .$self->convert_tree($self->gdt('Overview:')) + $result .= '<h2> ' .$self->convert_tree($self->gdt('Overview:')) . "</h2>\n" . "<blockquote>\n"; $result .= $overview;; $result .= "</blockquote>\n"; } $result .= &{$self->default_formatting_function('format_element_footer')}($self, - $cmdname, $command, $content); + $type, $element, $content); return $result; } else { - return &{$self->default_types_conversion($cmdname)}($self, - $cmdname, $command, $content); + return &{$self->default_type_conversion($type)}($self, + $type, $element, $content); } } -texinfo_register_type_formatting('element', \&mini_ker_element_type); +texinfo_register_type_formatting('unit', \&mini_ker_element_type); |