BeamerReveal
view release on metacpan or search on metacpan
lib/BeamerReveal/Object/BeamerFrame.pm view on Meta::CPAN
my ( $i, $mediaManager, $presentation ) = @_;
my $logger = $BeamerReveal::Log::logger;
$logger->log( 2, "- extracting content to generate from slide $i" );
my $contentToGenerate = {
animations => [],
stills => [],
voiceovers => [],
};
#########################
# process all animations
foreach my $animation (@{$self->{animations}}) {
$logger->log( 4, "- extracting animation" );
# 1. Generate the animation
push @{$contentToGenerate->{animations}}, $mediaManager->animationRegisterInStore( $animation );
}
#####################
# process all stills
foreach my $still (@{$self->{stills}}) {
$logger->log( 4, "- adding still" );
# 1. Generate the animation
push @{$contentToGenerate->{stills}}, $mediaManager->stillRegisterInStore( $still );
}
#########################
# process all voiceoversg
foreach my $voiceover (@{$self->{voiceovers}}) {
$logger->log( 4, "- adding voiceover" );
# 1. Generate the animation
push @{$contentToGenerate->{voiceovers}}, $mediaManager->voiceoverRegisterInStore( $voiceover );
}
return $contentToGenerate;
}
sub makeSlide {
my $self = shift;
my ( $i, $mediaManager, $presentation, $generatedContent ) = @_;
my $logger = $BeamerReveal::Log::logger;
$logger->log( 2, "- making slide $i" );
my $templateStore = BeamerReveal::TemplateStore->new();
my $content = '';
my $slideEmbed =
exists $self->{parameters}->{embed} or exists $presentation->{parameters}->{embed};
###############################################
# process all video material / can be embedded
foreach my $video (@{$self->{videos}}) {
my %commonStamps = ( X => _topercent( $video->{x} ),
Y => _topercent( $video->{y} ),
W => _topercent( $video->{width} ),
H => _topercent( $video->{height} ),
VIDEOID => 'embedded-id-' . $embeddedID++,
VIDEOEMBEDDEDB64 => $videoContent,
MIMETYPE => $mimeType,
FIT => $video->{fit},
AUTOPLAY => exists $video->{autoplay} ? 'data-autoplay' : '',
CONTROLS => exists $video->{controls} ? 'controls' : '',
MUTED => exists $video->{muted} ? 'muted' : '',
LOOP => exists $video->{loop} ? 'loop' : '',
);
my $vStamps;
my $vTemplate;
if ( exists $video->{embed} or $slideEmbed ) {
$logger->log( 4, "- adding embedded video" );
$vTemplate = $templateStore->fetch( 'html', 'video-embedded.html' );
my ( $mimeType ) = $mediaManager->videoFromStore( $video->{file},
to_embed => 1 );
$vStamps = { %commonStamps,
VIDEOID => 'embedded-id-' . $embeddedID++,
VIDEOEMBEDDEDB64 => $videoContent,
MIMETYPE => $mimeType,
};
} else {
$logger->log( 4, "- adding video" );
$vTemplate = $templateStore->fetch( 'html', 'video.html' );
my $videoFile;
if ( $video->{file} =~ /^https?:\/\// ) {
$videoFile = $video->{file};
}
else {
( undef, $videoFile ) = $mediaManager->videoFromStore( $video->{file} );
}
$vStamps = { %commonStamps,
VIDEO => $videoFile
};
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $vTemplate, $vStamps);
}
###############################################
# process all audio material / can be embedded
my $voCounter = 0;
foreach my $audio (@{$self->{audios}}) {
my %commonStamps = ( X => _topercent( $audio->{x} ),
Y => _topercent( $audio->{y} ),
W => _topercent( $audio->{width} ),
H => _topercent( $audio->{height} ),
FIT => $audio->{fit},
AUTOPLAY => exists $audio->{autoplay} ? 'data-autoplay' : '',
CONTROLS => exists $audio->{controls} ? 'controls' : '',
MUTED => exists $audio->{muted} ? 'muted' : '',
LOOP => exists $audio->{loop} ? 'loop' : '' );
my $aStamps;
my $aTemplate;
if ( exists $audio->{embed} or $slideEmbed ) {
$logger->log( 4, "- adding embedded audio" );
$aTemplate = $templateStore->fetch( 'html', 'audio-embedded.html' );
my ( $mimeType, $audioContent );
if ( $audio->{file} =~ /^voiceover-/ ) {
( $mimeType, $audioContent ) =
$mediaManager->voiceoverFromStore( $generatedContent->{voiceovers}->[$voCounter++],
to_embed => 1 );
}
else {
( $mimeType, $audioContent ) = $mediaManager->audioFromStore( $audio->{file},
to_embed => 1 );
}
$aStamps = { %commonStamps,
AUDIOID => 'embedded-id-' . $embeddedID++,
AUDIOEMBEDDEDB64 => $audioContent,
MIMETYPE => $mimeType,
};
} else {
$logger->log( 4, "- adding audio" );
$aTemplate = $templateStore->fetch( 'html', 'audio.html' );
my $audioFile;
if ( $audio->{file} =~ /^https?:\/\// ) {
$audioFile = $audio->{file};
}
else {
if ( $audio->{file} =~ /^voiceover-/ ) {
( undef, $audioFile ) =
$mediaManager->voiceoverFromStore( $generatedContent->{voiceovers}->[$voCounter++] );
}
else {
( undef, $audioFile ) = $mediaManager->audioFromStore( $audio->{file} );
}
}
$aStamps = { %commonStamps,
AUDIO => $audioFile,
};
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $aTemplate, $aStamps );
}
###############################################
# process all image material / can be embedded
foreach my $image (@{$self->{images}}) {
my %commonStamps = ( X => _topercent( $image->{x} ),
Y => _topercent( $image->{y} ),
W => _topercent( $image->{width} ),
H => _topercent( $image->{height} ),
IMAGEID => 'embedded-id-' . $embeddedID++,
IMAGEEMBEDDEDB64 => $imageContent,
MIMETYPE => $mimeType,
FIT => $image->{fit}
);
my $iStamps;
my $iTemplate;
if ( exists $image->{embed} or $slideEmbed ) {
$logger->log( 4, "- adding embedded image" );
$iTemplate = $templateStore->fetch( 'html', 'image-embedded.html' );
my( $mimeType, $imageContent ) = $mediaManager->imageFromStore( $image->{file},
to_embed => 1 );
$iStamps = { %commonStamps,
IMAGEID => 'embedded-id-' . $embeddedID++,
IMAGEEMBEDDEDB64 => $imageContent,
MIMETYPE => $mimeType,
};
} else {
$logger->log( 4, "- adding image" );
$iTemplate = $templateStore->fetch( 'html', 'image.html' );
my $imageFile;
if ( $image->{file} =~ /^https?:\/\// ) {
$imageFile = $image->{file};
}
else {
( undef, $imageFile ) = $mediaManager->imageFromStore( $image->{file} );
}
$iStamps = { %commonStamps,
IMAGE => $imageFile };
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $iTemplate,
$iStamps );
}
################################################
# process all iframe material / can be embedded
foreach my $iframe (@{$self->{iframes}}) {
my %commonStamps = ( X => _topercent( $iframe->{x} ),
Y => _topercent( $iframe->{y} ),
W => _topercent( $iframe->{width} ),
H => _topercent( $iframe->{height} ),
FIT => $iframe->{fit}
);
my $iStamps;
my $iTemplate;
if ( exists $iframe->{embed} or exists $presentation->{parameters}->{embed} ) {
$logger->log( 4, "- adding embedded iframe" );
$iTemplate = $templateStore->fetch( 'html', 'iframe-embedded.html' );
my ( $mimeType, $iframeContent ) = $mediaManager->iframeFromStore( $iframe->{file},
to_embed => 1 );
$iStamps = { %commonStamps,
IFRAMEID => 'embedded-id-' . $embeddedID++,
IFRAMEEMBEDDEDB64 => $iframeContent,
};
} else {
$logger->log( 4, "- adding iframe" );
$iTemplate = $templateStore->fetch( 'html', 'iframe.html' );
my $iframeFile;
if ( $iframe->{file} =~ /^https?:\/\// ) {
$iframeFile = $iframe->{file};
}
else {
( undef, $iframeFile ) = $mediaManager->iframeFromStore( $iframe->{file} );
}
$iStamps = { %commonStamps,
IFRAME => $iframeFile,
};
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $iTemplate,
$iStamps );
}
###########################################
# process all animations / can be embedded
my $aCounter = 0;
foreach my $animation (@{$self->{animations}}) {
my %commonStamps = (X => _topercent( $animation->{x} ),
Y => _topercent( $animation->{y} ),
W => _topercent( $animation->{width} ),
H => _topercent( $animation->{height} ),
AUTOPLAY => exists $animation->{autoplay} ? 'data-autoplay' : '',
CONTROLS => exists $animation->{controls} ? 'controls' : '',
LOOP => exists $animation->{loop} ? 'loop' : '',
FIT => $animation->{fit},
);
my $aTemplate;
my $aStamps;
if ( exists $animation->{embed} or $slideEmbed ) {
$logger->log( 4, "- adding embedded animation" );
$aTemplate = $templateStore->fetch( 'html', 'animation-embedded.html' );
my ( $mimeType, $videoContent ) =
$mediaManager->animationFromStore( $generatedContent->{animations}->[$aCounter++],
to_embed => 1 );
$aStamps =
{
%commonStamps,
ANIMATIONID => 'embedded-id-' . $embeddedID++,
ANIMATIONEMBEDDEDB64 => $videoContent,
MIMETYPE => $mimeType,
FIT => $image->{fit}
};
}
else {
$logger->log( 4, "- adding animation: " . $generatedContent->{animations}->[$aCounter] );
$aTemplate = $templateStore->fetch( 'html', 'animation.html' );
my ( $undef, $file ) =
$mediaManager->animationFromStore( $generatedContent->{animations}->[$aCounter++] );
$aStamps =
{
%commonStamps,
ANIMATION => $file,
};
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $aTemplate,
$aStamps );
}
#######################################
# process all stills / can be embedded
my $sCounter = 0;
foreach my $still (@{$self->{stills}}) {
my %commonStamps = ( X => _topercent( $still->{x} ),
Y => _topercent( $still->{y} ),
W => _topercent( $still->{width} ),
H => _topercent( $still->{height} ),
FIT => $still->{fit},
);
my $sTemplate;
my $sStamps;
if ( exists $still->{embed} or $slideEmbed ) {
$logger->log( 4, "- adding embedded still" );
$sTemplate = $templateStore->fetch( 'html', 'still-embedded.html' );
my ( $mimeType, $videoContent ) =
$mediaManager->stillFromStore( $generatedContent->{stills}->[$sCounter++],
to_embed => 1 );
$sStamps =
{
%commonStamps,
STILLID => 'embedded-id-' . $embeddedID++,
STILLEMBEDDEDB64 => $videoContent,
MIMETYPE => $mimeType,
FIT => $image->{fit}
};
}
else {
$logger->log( 4, "- adding still: " . $generatedContent->{stills}->[$sCounter] );
$sTemplate = $templateStore->fetch( 'html', 'still.html' );
my ( undef, $file ) =
$mediaManager->stillFromStore( $generatedContent->{stills}->[$sCounter++] );
$sStamps =
{
%commonStamps,
STILL => $file,
};
}
$content .= BeamerReveal::TemplateStore::stampTemplate( $sTemplate,
$sStamps );
}
###########################
# process the frame itself
# title
my $title = _modernize( $self->{parameters}->{title} );
if ( $title =~ /\\/ ) {
$logger->fatal( "Error: the title of slide $i contains TeX-like code (observe below between <<< >>>); provide a clean version using \\frametitle[clean-version]{TeX-like code}\n" .
"<<< $self->{parameters}->{title} >>>" );
} else {
$self->{parameters}->{title} = $title;
}
;
# menu entries
my $menuTitle;
if ( exists $self->{parameters}->{toc} ) {
if ( $self->{parameters}->{toc} eq 'titlepage' ) {
$menuTitle = "<span class='menu-title'>%s</span>";
} elsif ( $self->{parameters}->{toc} eq 'section' ) {
$menuTitle = "<span class='menu-section'>• %s</span>";
} elsif ( $self->{parameters}->{toc} eq 'subsection' ) {
$menuTitle = "<span class='menu-subsection'>∘ %s</span>";
} else {
$logger->fatal( "Error: invalid toc parameter in rvl file" );
lib/BeamerReveal/Object/BeamerFrame.pm view on Meta::CPAN
NOTEEMBEDDEDB64 => $notesImage,
MIMETYPE => $mimeType,
};
$notes = BeamerReveal::TemplateStore::stampTemplate( $nTemplate, $nStamps );
}
else {
my $nTemplate = $templateStore->fetch( 'html', 'note.html' );
# remember: the hasnote entry holds the note number
my ( undef, $notesImage ) = $mediaManager->noteFromStore( $self->{hasnotes} );
my $nStamps =
{
NOTESIMAGE => $notesImage
};
$notes = BeamerReveal::TemplateStore::stampTemplate( $nTemplate, $nStamps );
}
}
# generate slide itself
if ( $slideEmbed ) {
my $fTemplate = $templateStore->fetch( 'html', 'beamerframe-embedded.html' );
my ( $mimeType, $slideImage ) = $mediaManager->slideFromStore( $self->{parameters}->{rawpage},
to_embed => 1 );
my $fStamps =
{
DATAMENUTITLE => $menuTitle,
SLIDEID => 'embedded-id-' . $embeddedID++,
SLIDEEMBEDDEDB64 => $slideImage,
MIMETYPE => $mimeType,
SLIDECONTENT => $content,
TRANSITION => $self->{parameters}->{transition} || 'fade',
AUTOSLIDE => $autoSlide,
NOTESIMAGE => $notes
};
return BeamerReveal::TemplateStore::stampTemplate( $fTemplate, $fStamps );
} else {
my $fTemplate = $templateStore->fetch( 'html', 'beamerframe.html' );
my ( undef, $slideImage ) = $mediaManager->slideFromStore( $self->{parameters}->{rawpage} );
my $fStamps =
{
DATAMENUTITLE => $menuTitle,
SLIDEIMAGE => $slideImage,
SLIDECONTENT => $content,
TRANSITION => $self->{parameters}->{transition} || 'fade',
AUTOSLIDE => $autoSlide,
NOTESIMAGE => $notes
};
return BeamerReveal::TemplateStore::stampTemplate( $fTemplate, $fStamps );
}
}
sub _topercent {
confess() unless defined $_[0];
return sprintf( "%.2f%%", $_[0] * 100 );
}
sub _modernize {
my $string = shift;
defined( $string ) or die();
my $dictionary = {
qr/\\`\{?a\}?/ => 'Ã ',
qr/\\'\{?a\}?/ => 'á',
qr/\\"\{?a\}?/ => 'ä',
qr/\\\^\{?a\}?/ => 'â',
qr/\\~\{?a\}?/ => 'ã',
qr/\\=\{?a\}?/ => 'Ä',
qr/\\\.\{?a\}?/ => 'ȧ',
qr/\\u\{?a\}?/ => 'ă',
qr/\\v\{?a\}?/ => 'ÇŽ',
qr/\\c\{?a\}?/ => 'Ä…',
qr/\\r\{?a\}?/ => 'Ã¥',
qr/\\`\{?e\}?/ => 'è',
qr/\\'\{?e\}?/ => 'é',
qr/\\"\{?e\}?/ => 'ë',
qr/\\\^\{?e\}?/ => 'ê',
qr/\\~\{?e\}?/ => 'ẽ',
qr/\\=\{?e\}?/ => 'Ä“',
qr/\\\.\{?e\}?/ => 'Ä—',
qr/\\u\{?e\}?/ => 'Ä•',
qr/\\v\{?e\}?/ => 'Ä›',
qr/\\c\{?e\}?/ => 'Ä™',
qr/\\`\{?\\?i(?:\{\})?\}?/ => 'ì',
qr/\\'\{?\\?i(?:\{\})?\}?/ => 'Ã',
qr/\\"\{?\\?i(?:\{\})?\}?/ => 'ï',
qr/\\\^\{?\\?i(?:\{\})?\}?/ => 'î',
qr/\\~\{?\\?i(?:\{\})?\}?/ => 'Ä©',
qr/\\=\{?\\?i(?:\{\})?\}?/ => 'Ä«',
qr/\\u\{?\\?i(?:\{\})?\}?/ => 'Ä',
qr/\\v\{?\\?i(?:\{\})?\}?/ => 'Ç',
qr/\\c\{?\\?i(?:\{\})?\}?/ => 'į',
qr/\\`\{?o\}?/ => 'ò',
qr/\\'\{?o\}?/ => 'ó',
qr/\\"\{?o\}?/ => 'ö',
qr/\\\^\{?o\}?/ => 'ô',
qr/\\~\{?o\}?/ => 'õ',
qr/\\=\{?o\}?/ => 'Å',
qr/\\\.\{?o\}?/ => 'ȯ',
qr/\\u\{?o\}?/ => 'Å',
qr/\\v\{?o\}?/ => 'Ç’',
qr/\\c\{?o\}?/ => 'Ç«',
qr/\\`\{?u\}?/ => 'ù',
qr/\\'\{?u\}?/ => 'ú',
qr/\\"\{?u\}?/ => 'ü',
qr/\\\^\{?u\}?/ => 'û',
qr/\\~\{?u\}?/ => 'Å©',
qr/\\=\{?u\}?/ => 'Å«',
qr/\\u\{?u\}?/ => 'Å',
qr/\\v\{?u\}?/ => 'Ç”',
qr/\\c\{?u\}?/ => 'ų',
qr/\\r\{?u\}?/ => 'ů',
qr/\\c\{?c\}?/ => 'ç',
qr/\\~\{?n\}?/ => 'ñ',
( run in 3.595 seconds using v1.01-cache-2.11-cpan-437f7b0c052 )