view release on metacpan or  search on metacpan

lib/EBook/Generator/Exporter/PDF.pm  view on Meta::CPAN

{
	my ($self, $browser) = @_;

	$self->{'final-dir'} = '/tmp/';
	$self->{'browser'} = $browser;
	$self->{'log'} = [];

	$self->{'handlers'} = {
		# garamond shapes:
		#
		#  {\garamond normal}
		#  {\slshape This is garamond slanted} \\
    #  {\bfseries This is garamond bold face} \\
    #  {\scshape This is in small caps} \\
    #  {\slshape \bfseries This is slanted and bold face} \\

		'document' => sub {
			my ($self, $node) = @_;			
			my ($type, $opts, @subnodes) = @{$node};
			my $content = $self->transform_nodes(@subnodes);
			return

lib/EBook/Generator/Exporter/PDF.pm  view on Meta::CPAN

				'\usepackage{graphicx}'."\n".
				
				'\usepackage{paralist}'."\n".
				'\setdefaultleftmargin{1.3em}{}{}{}{.5em}{.5em}'."\n".
				
				'\usepackage{listings}'."\n".
				'\lstset{numbers=left, numberstyle=\tiny, numbersep=5pt} \lstset{language=Perl}'."\n".
		
				'\begin{document}'."\n".
		
				'\garamond'."\n".
				'\maketitle'."\n".
				'\newpage'."\n".
		
				'\garamond'."\n".
				($self->{'has-section'} > 1 ?
					'\tableofcontents'."\n".
					'\newpage'."\n" : '').
		
				'\garamond'."\n".
				$content.
				'\end{document}'."\n";
		},
		'paragraph' => sub {
			my ($self, $node) = @_;			
			my ($type, $opts, @subnodes) = @{$node};
			return "\n\n".$self->transform_nodes(@subnodes)."\n\n";
		},
		'headline' => sub {
			my ($self, $node) = @_;