From dffa4d0b57e20a1ad2f562d0230098a90a07806d Mon Sep 17 00:00:00 2001 From: Benjamin Mako Hill Date: Sat, 14 Sep 2013 14:34:13 -0700 Subject: [PATCH] remove the extract notes script (deprecated) --- template/Makefile | 1 - template/extract-notes | 48 ------------------------------------------ 2 files changed, 49 deletions(-) delete mode 100755 template/extract-notes diff --git a/template/Makefile b/template/Makefile index 82020c3..ac30864 100644 --- a/template/Makefile +++ b/template/Makefile @@ -5,7 +5,6 @@ pdf: all %.pdf: %.tex rubber -fd $< - extract-notes $< # by default, we produce combined notes/slides output notes.config: diff --git a/template/extract-notes b/template/extract-notes deleted file mode 100755 index 0d11083..0000000 --- a/template/extract-notes +++ /dev/null @@ -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 = ) { - # 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); - -} - -- 2.30.2