X-Git-Url: https://projects.mako.cc/source/state_of_wikimedia_research_2013/blobdiff_plain/ba6cb65ce89c04f5222e74a82c93e4f030dd16d3..7f4cd4c4e5ab4dd1a10bf05403188a7c89e94198:/extract-notes

diff --git a/extract-notes b/extract-notes
deleted file mode 100755
index 0d11083..0000000
--- a/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 = <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);
-
-}
-