From 74088bdbd39372aabd31415005cdc0c373d871c6 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 8 Sep 2008 21:45:59 -0500
Subject: [PATCH] Minor farkup fixes

---
 basis/farkup/farkup-tests.factor | 13 +++++++++++++
 basis/farkup/farkup.factor       | 10 ++++++----
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/basis/farkup/farkup-tests.factor b/basis/farkup/farkup-tests.factor
index 0280c1a08d..e25fa34960 100644
--- a/basis/farkup/farkup-tests.factor
+++ b/basis/farkup/farkup-tests.factor
@@ -3,6 +3,10 @@
 USING: farkup kernel peg peg.ebnf tools.test namespaces ;
 IN: farkup.tests
 
+relative-link-prefix off
+disable-images? off
+link-no-follow? off
+
 [ "Baz" ] [ "Foo/Bar/Baz" simple-link-title ] unit-test
 [ "Baz" ] [ "Baz" simple-link-title ] unit-test
 
@@ -105,3 +109,12 @@ IN: farkup.tests
 [
     "<p>Feature comparison:</p><table><tr><td>a</td><td>Factor</td><td>Java</td><td>Lisp</td></tr><tr><td>Coolness</td><td>Yes</td><td>No</td><td>No</td></tr><tr><td>Badass</td><td>Yes</td><td>No</td><td>No</td></tr><tr><td>Enterprise</td><td>Yes</td><td>Yes</td><td>No</td></tr><tr><td>Kosher</td><td>Yes</td><td>No</td><td>Yes</td></tr></table>"
 ] [ "Feature comparison:\n\n|a|Factor|Java|Lisp|\n|Coolness|Yes|No|No|\n|Badass|Yes|No|No|\n|Enterprise|Yes|Yes|No|\n|Kosher|Yes|No|Yes|\n" convert-farkup ] unit-test
+
+[
+    "<p>This wiki is written in <a href='Factor'>Factor</a> and is hosted on a <a href='http://linode.com'>http://linode.com</a> virtual server.</p>"
+] [
+    "This wiki is written in [[Factor]] and is hosted on a [[http://linode.com|http://linode.com]] virtual server."
+    convert-farkup
+] unit-test
+
+[ "<p><a href='a'>a</a> <a href='b'>c</a></p>" ] [ "[[a]] [[b|c]]" convert-farkup ] unit-test
diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 154ab0db00..4d6ac127ad 100644
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -67,15 +67,17 @@ inline-code   = "%" (!("%" | nl).)+ "%"
 
 escaped-char  = "\" .                => [[ second ]]
 
-image-link       = "[[image:" (!("|") .)+  "|" (!("]]").)+ "]]"
+link-content     = (!("|"|"]").)+
+
+image-link       = "[[image:" link-content  "|" link-content "]]"
                     => [[ [ second >string ] [ fourth >string ] bi image boa ]]
-                  | "[[image:" (!("]").)+ "]]"
+                  | "[[image:" link-content "]]"
                     => [[ second >string f image boa ]]
 
-simple-link      = "[[" (!("|]" | "]]") .)+ "]]"
+simple-link      = "[[" link-content "]]"
     => [[ second >string dup simple-link-title link boa ]]
 
-labelled-link    = "[[" (!("|") .)+ "|" (!("]]").)+ "]]"
+labelled-link    = "[[" link-content "|" link-content "]]"
     => [[ [ second >string ] [ fourth >string ] bi link boa ]]
 
 link             = image-link | labelled-link | simple-link