lib: Add short preprocessor aliases

smondet · Sep 6, 2010 · 665fe74 · 665fe74
1 parent f25af57
commit 665fe74
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/lib/dibrawi.ml b/src/lib/dibrawi.ml
@@ -213,7 +213,7 @@ module Preprocessor = struct
 
   let prepro_regexp = 
     Pcre.regexp
-      "(\\#\\#|\\{(cite|cmt|mix:ignore|mix:code|mix:end)\\s*[^\\}]*\\})"
+      "(\\#\\#|\\{(cite|cmt|mix:ignore|mix:code|mix:end|mi|mc|me)\\s*[^\\}]*\\})"
 
   let default_html_biblio_page = "page:/bibliography"
 
@@ -245,17 +245,17 @@ module Preprocessor = struct
         | `wiki -> "##"
         | `camlmix -> "### "
         end
-      | "{mix:ignore}" ->
+      | "{mix:ignore}" | "{mi}" ->
         begin match mix_output with
         | `wiki -> "{ignore mixspecialend}"
         | `camlmix -> "##"
         end
-      | "{mix:code}" ->
+      | "{mix:code}" | "{mc}" ->
         begin match mix_output with
         | `wiki -> "{code mixspecialend}"
         | `camlmix -> "##"
         end
-      | "{mix:end}" ->
+      | "{mix:end}" | "{me}" ->
         begin match mix_output with
         | `wiki -> "{mixspecialend}"
         | `camlmix -> "##"