Changeset 8098 for trunk/gsdl/perllib/plugins

Timestamp:

2004-09-03T16:36:33+12:00 (20 years ago)

Author:

jrm21

Message:

• guess a title if no \title tag
• \it tag
• fractions in maths mode

File:

• trunk/gsdl/perllib/plugins/LaTeXPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/LaTeXPlug.pm

@@ -22 +22 @@
 ###########################################################################
 
+# todo:
+#  \includegraphics
+#  parse/remove tex \if ... macros
 
 package LaTeXPlug;
@@ -119 +122 @@
     $$textref =~ m@\\title\s*{(.*?)}@s;
     my $title = $1;
+    if (!$title) {
+    # no title tag. look for a chapter/section heading
+    $$textref =~ m@\\(?:chapter|section)\s*{(.*?)}@s; # will get 1st match
+    $title = $1;
+    }
+    if (!$title) {
+    # no chapter/section heading tags either... use filename
+    $title = $file;
+    $title =~ s/\.tex$//i;
+    $title =~ s/[-_.]/ /g; # turn punctuation into spaces
+    }
     if ($title) {
     $title =~ s@\\\\@ @g; # embedded newlines
@@ -379 +393 @@
     $text =~ s~\\(?:texttt|tt|ttseries)\s*{(.*?)}~<tt>$1</tt>~g;
     $text =~ s~\\emph{(.*?)}~<em>$1</em>~g;
-    $text =~ s~{\\em\s*(.*?)}~<em>$1</em>~g;
+    $text =~ s~{\\(?:em|it)\s*(.*?)}~<em>$1</em>~g;
     $text =~ s~{\\(?:bf|bfseries)\s*(.*?)}~<strong>$1</strong>~g;
     $text =~ s~\\(?:textbf|bf|bfseries)\s*{(.*?)}~<strong>$1</strong>~g;
@@ -445 +459 @@
     return $verbatim;
 }
-
+# only used by process_latex_math
+# returns a unicode char if applicable, otherwise ascii
+sub math_fraction {
+    my $num=$1;
+    my $denom=$2;
+
+    if ($num==1 && $denom==2) {return chr(0xc2).chr(0xbd)}
+    if ($num==1 && $denom==4) {return chr(0xc2).chr(0xbc)}
+    if ($num==3 && $denom==4) {return chr(0xc2).chr(0xbe)}
+    return "$num/$denom";
+}
 
 sub process_latex_math {
@@ -458 +482 @@
 #    $text =~ s~\\cup\b~\xe2\xc8\xaa~g; # union operator - unicode 0x222a
     $text =~ s~\\cup\b~ U ~g;
+
+    $text =~ s~\\frac\s*{(.+?)}{(.+?)}~math_fraction($1,$2)~ge;
 
     if ($html_markup) {