package
Khonsu::Text::H1;
sub
BUILD {
my
(
$self
,
%params
) =
@_
;
$self
->font->size(
$params
{font_size} || 50);
$self
->font->line_height(
$params
{line_height} || 30);
}
sub
add {
my
(
$self
,
$file
,
%attributes
) =
@_
;
$attributes
{h} ||=
$self
->font->size;
$file
->toc->outline(
$file
,
'h1'
,
%attributes
)
if
$attributes
{toc};
return
$self
->SUPER::add(
$file
,
%attributes
);
}
1;