[Fencommits] fenserve: fix some edge cases in markup syntax

[Benja Fallenstein]

Mon Apr 30 23:06:50 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * fix some edge cases in markup syntax
diff -rN -u old-fenserve/notetaker/Main.hs new-fenserve/notetaker/Main.hs
--- old-fenserve/notetaker/Main.hs	2007-04-30 23:06:55.000000000 +0300
+++ new-fenserve/notetaker/Main.hs	2007-04-30 23:06:56.000000000 +0300
@@ -100,6 +100,8 @@
     (text:links) = split s
     split ""       = [""]
     split ('|':cs) = "" : split cs
+    split ('\\':'|':cs) = let x:xs = split cs in ('|':x):xs
+    split ('\\':c:cs) = let x:xs = split cs in ('\\':c:x):xs
     split (c:cs) = let x:xs = split cs in (c:x):xs
     
     f ('*':cs) ls = "<em>" ++ emph cs ls
@@ -125,6 +127,7 @@
     code "" ls = "</code>"
     
     esc f (c:cs) ls = c : f cs ls
+    esc f "" ls = f "" ls
     
 executeAll = foldl (\n (Line _ _ b) -> execute b n) (Note "HOME" True [])