collective/cdsc_tex
20
0
Fork 0
Code Activity

remove the extract notes script (deprecated)

Browse Source
This commit is contained in:
Benjamin Mako Hill
2013-09-14 14:34:13 -07:00
parent bc78de7e0f
commit 967f5ccc08
2 changed files with 0 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
slides_template/Makefile
View File

@@ -5,7 +5,6 @@ pdf: all
%.pdf: %.tex %.pdf: %.tex
rubber -fd $< rubber -fd $<
extract-notes $<
# by default, we produce combined notes/slides output # by default, we produce combined notes/slides output
notes.config: notes.config:

48
slides_template/extract-notes
View File

@@ -1,48 +0,0 @@
#!/usr/bin/perl -w
foreach $filename (@ARGV) {
chomp $filename;
open(TEXFILE, "<$filename");
$notes_filename = $filename;
$notes_filename =~ s/\.tex$/.pdfpc/;
$pdf_filename = $filename;
$pdf_filename =~ s/\.tex$/.pdf/;
open(NOTESFILE, "\>$notes_filename");
print NOTESFILE "[file]\n$pdf_filename\n[notes]\n";
$note_record = 0;
$slide_counter = 1;
while ($line = <TEXFILE>) {
# if this is a new frame
if ($line =~ /^\\begin\{frame\}/) {
$slide_counter++;
}
if ($line =~ /^\% pdfpc\:end/) {
$note_record = 0;
$note_text =~ s/^\s*(.*?)\s*$/$1/;
print NOTESFILE "\#\#\# $slide_counter\n$note_text\n";
}
# record if we're between a begin and an end
if ($note_record) {
$line_tmp = $line;
$line_tmp =~ s/^\%\s*//;
$note_text = $note_text . $line_tmp;
}
# if this a new note
if ($line =~ /^\% pdfpc\:begin/) {
$note_text = "";
$note_record = 1;
}
}
close(TEXFILE);
close(NOTESFILE);
}