[svn] r5809: wiki2pdf: totex week

[malekith]

Log:
Add script for course PDF generation.

Author: malekith
Date: Sun Oct  9 14:52:31 2005
New Revision: 5809

Added:
   wiki2pdf/week   (contents, props changed)
Modified:
   wiki2pdf/totex

Modified: wiki2pdf/totex
==============================================================================
--- wiki2pdf/totex	(original)
+++ wiki2pdf/totex	Sun Oct  9 14:52:31 2005
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+$raise_level = $ENV{'RAISE_LEVEL'};
+
 unlink("problems");
 open (IN, "recode utf8..l2 < output.html || touch problems |");
 open (OUT, "> output.tex");
@@ -36,9 +38,12 @@
 \\pagestyle{fancy}
 
 \\tableofcontents
+
 EOF
 ;
 
+print OUT "\\vspace*{10mm}\n" if $raise_level;
+
 sub quote_anchor($) {
   my $arg = shift;
   $arg =~ s/_/-/g;
@@ -117,10 +122,19 @@
 
   s/<a name='([^']*)'><\/a>/anchor($1)/eg;
   s/<a name="([^']*)"><\/a>//g;
+
+  if ($raise_level) {
+    s/<h1 class="firstHeading">([^<]*)<\/h1>//g;
+    s/<h2>(.*?)<\/h2>/\\section{$1}/g;
+    s/<h3>(.*?)<\/h3>/\\subsection{$1}/g;
+    s/<h4>(.*?)<\/h4>/\\subsubsection{$1}/g;
+  } else { 
   s/<h1 class="firstHeading">([^<]*)<\/h1>/\\section{$1}/g;
   s/<h2>(.*?)<\/h2>/\\subsection{$1}/g;
   s/<h3>(.*?)<\/h3>/\\subsubsection{$1}/g;
   s/<h4>(.*?)<\/h4>/\\paragraph{$1}/g;
+  }
+  
   s/<!--[^>]*>//g;
   s/<\/?p>/\n\n/g;
   s/<\/?div[^>]*>//g;

Added: wiki2pdf/week
==============================================================================
--- (empty file)
+++ wiki2pdf/week	Sun Oct  9 14:52:31 2005
@@ -0,0 +1,19 @@
+#!/bin/sh
+
+set -e
+
+[ $HOSTNAME = roke ] && HOSTNAME=lilith
+
+week=$1
+name=Nemerle_for_OOP_Programmers_Week_$week
+
+./get-html "$name" "^$name\$"
+RAISE_LEVEL=1 ./totex "Nemerle for OOP Programmers Week \\#$week"
+
+echo
+echo "******* Done *******"
+echo
+
+grep "<" output.tex
+mv output.html "$name".html
+mv output.pdf "$name".pdf