# Building Impress and PowerPoint Slides with LaTeX and Perl

in
Forced to use proprietary file formats? Let open source ease the burden.

Let's begin with a story. Here's what happened: my second book, coauthored with Dr Michael Moorhouse, finally was finished. I had spent an extra six months on it, which meant it now was at least six months late. I had spent every spare minute typesetting, proofreading, writing, manually converting Michael's Microsoft Word files to LaTeX, reading and then re-reading. Then, I'd proofread it all again. When it was done and dusted, I was jaded. Soon after, I received the final proof of the cover. And there it was—printed right on the back cover—a promise to provide Microsoft PowerPoint slides on the Web site for use with the text. It was too late to change the cover, which meant I was committed to providing the slides one way or another. I had forgotten that we had decided to do this at the start of the project, more than 18 months prior.

The PowerPoint “Standard”

Eighteen months ago, PowerPoint was the de facto standard slide production technology within the academic community. Today, PDF is popular too. As with many in the Linux community, I already had made the move to OpenOffice.org, leaving PowerPoint behind. With 20 chapters in the book, I estimated it would take at least 20 days' effort to produce the slides manually. The thought of doing this work with PowerPoint was not something I relished. I could work within OpenOffice.org Impress, of course, and then export to PowerPoint when finished, but this idea didn't sit well with me, either. The basic problem was I knew all the content already was in the LaTeX files and having to reproduce it using a slide production application left me feeling even more drained than I already was. If only I could find a way to extract the content programmatically from my LaTeX files and populate PowerPoint slides with it—that would improve things considerably.

Working with Presentation File Formats

Searching Google resulted in frustration. Perhaps not surprisingly, details of the PowerPoint file format were hard to come by. I did find a file in Microsoft Windows Help format that described the XML standard for Microsoft Office documents, to which PowerPoint documents can be exported. Unfortunately, it was a large, complicated piece of writing. Having decided I wasn't going to get anywhere on Google, I surfed over to Comprehensive Perl Archive Network (CPAN). Perl, my programming language of choice, has been hooked up to all types of file formats and other computing forms. If anyone had played with Perl and PowerPoint, details of the work would be available on CPAN. Unfortunately, this search also drew a blank.

Then it occurred to me: if I could work with the open and widely published OpenOffice.org Impress document format, I then could export my Impress slides to PowerPoint as a last step. A quick perusal of the OpenOffice.org Web site uncovered the official XML description of the OpenOffice.org file formats. Weighing in at more than 600 pages, the standard is bigger than my book!

The XML document is well written, but it's pretty heavy going. I surfed back to CPAN to see if any other programmers had taken the time to work with OpenOffice.org formats and were gracious enough to upload their work to CPAN. This time I wasn't disappointed. Jean-Marie Gouarne of Genicorp recently had released the OpenOffice::OODoc module, a Perl interface to the OpenOffice.org formats. Given an existing document, OpenOffice::OODoc can manipulate the content, adding to, deleting from and updating the disk file as need be.

The Slide-Producing Strategy

I started with a simple filter, written in Perl, that takes a LaTeX file as input and produces the slide content as output in a customized textual form. By producing a text file, I ensured that any text editor could be used to edit the output from the filter, fine-tuning the textual content as necessary. Once happy with the textual content, another filter, also written in Perl, uses the textual content to create an Impress presentation. The Impress presentation then can be opened in Impress and exported to PowerPoint and/or PDF format.

Slide Design

I made a conscious effort to keep my presentations as simple as possible and decided to have only three slide types. The title_slide would contain the title of the chapter at the start of the presentation file. Within the presentation, the title_slide would do double duty as a placeholder for any graphic images associated with the chapter, with one title_slide created per graphic image. The bullet_slide would contain section titles as its slide heading and subsection titles as bullet items. Finally, the sourcecode_slide would provide a mono-spaced, verbatim slide used for program listings.

I used Impress to create a three-slide presentation manually, which I called blank.sxi. Each of the created slides corresponded to each of the three slide types described in the last paragraph. I planned to clone this presentation every time I programmatically created a presentation for each of my chapters. By cloning, I'd ensure that all of the presentations conformed to a standardized look and feel.

______________________

## Comment viewing options

### Great ideas, thanks!

Great ideas, thanks!

### getcontent script

I am not my self a perl programmer. A way to obtain a workable getcontent script?

Best

### Missing getcontent script

Sorry ... the script appears to be missing from the download. Here it is:
 #! /usr/bin/perl -w

#
# The "getcontent" script: Given a LaTeX file on the command-line,
# extract it's textual content.
#
# By Paul Barry, paul.barry@itcarlow.ie
#

use strict;

use constant TRUE => 1;
use constant FALSE => 0;

my $in_verbatim = FALSE; my$in_maxim = FALSE;
my $graphic_name = ''; while ( <> ) { if ($in_maxim )
{
if ( /\\end\{maxim\}/ )
{
print "STOPMAXIM\n";
$in_maxim = FALSE; } else { print; } next; } if ($in_verbatim )
{
if ( /\\end\{verbatim\}/ || /\\end\{alltt\}/ )
{
print "STOPCODE\n";
$in_verbatim = FALSE; } else { print; } next; } if ( /\\chapter\{(.*)\}/ ) { print "CHAPTERTITLE:$1\n"; next;
}

if ( /\\section\{(.*)\}/ )
{
print "BULLETTITLE: $1\n"; next; } if ( /\\subsection\{(.*)\}/ ) { print "BULLETCONTENT:$1\n"; next;
}

if ( /\\begin\{verbatim\}/ || /\\begin\{alltt\}/ )
{
print "STARTCODE\n";
$in_verbatim = TRUE; next; } if ( /\\begin\{maxim\}/ ) { print "STARTMAXIM\n";$in_maxim = TRUE; next;
}

if ( /images\/(.*?)\}/ )
{
$graphic_name =$1; next;
}

if ( /\\caption\{\\label\{/ )
{
/label\{.*?\}(.*)\}\}/;
print "GRAPHICCAPTION: $1\n"; print "GRAPHICNAME:$graphic_name\n"; next;
}

if ( /^\\textit\{(.*)\}/ )
{
print "CHAPTERCONTENT: $1\n"; next; } } Paul Barry ### Some important updates to the OpenOffice::OODoc module Jean-Marie Gouarné contacted me via e-mail with some updates on the status of his excellent Perl module. Here's what he said: Thanks for this article. It's very useful for evangelization about the OOo XML format... And (that is much less important) thanks for your test with my OpenOffice::OODoc module! However, I've just 2 remarks about your quotation of this Perl module: 1) OpenOffice::OODoc *can* create new OOo files (texts, spreadsheets, presentations and drawings) from scratch; this feature is available since version 1.201 (2004-07-30). To do so, the ooDocument() constructor must be called with a create =>$class option (where $class is the document class, i.e. "text", "spreadsheet", etc). 2) The module has notably evolved in the meantime; now it supports both the OpenOffice.org 1.0 and the OpenDocument formats; in addition, there are a few draw- or impress-focused methods (so, for example, such methods as insertDrawPage or appendDrawPage are available in order to organize and copy presentation slides). But you were right when you said that "the module was created with a view to working primarily with OpenOffice.org Writer files". Text documents were and remain the main target. I thought it worthwhile to post his message here. Thanks. -- Paul Barry IT Carlow, Ireland http://glasnost.itcarlow.ie/~barryp Paul Barry ### Writing to Impress from Perl Easy way to write to Impress/Powerpoint as Jean-Marie said: #! /usr/bin/perl -w use strict; use OpenOffice::OODoc; # start a new preso my$preso = ooDocument(file => 'test.sxi', create => 'presentation');

my $slide =$preso->getDrawPage(0); # slide 0

$preso->createTextBox ( attachment =>$slide,
size => '10cm, 2cm',
position => '1cm, 2cm',
content => 'I want to write to Impress from Perl'
);

$preso->save; ### Programmatic Conversions? Thanks for the great article! Do you know if there is a way to programmatically convert the resulting impress document to PowerPoint? Perhaps as in$preso->export(...)?

Or would I need to use something like the Python-UNO bridge to do so?

### image extraction from pdf's

Would "pdfimages" (part of the xpdf package) have sped up the final step (extraction of images from the pdf page proofs)?

### using pdfimages?

> sped up the final step?

Thanks - I'll check out pdfimages.

Paul.

Paul Barry