--- a/src/main/scala/net/tz/lift/snippet/package.scala	Tue Jun 05 15:40:45 2012 +0200
+++ b/src/main/scala/net/tz/lift/snippet/package.scala	Tue Apr 23 10:36:04 2013 +0200
@@ -18,16 +18,20 @@
 import net.liftweb.common._
 import net.liftweb.http.S
 import net.liftweb.sitemap.Loc
+import net.liftweb.util.DynoVar
 import net.liftweb.util.Helpers._
 import scala.xml.{Elem, NodeSeq, Text}
 
 package object snippet {
   type CssTr = (NodeSeq => NodeSeq)
 
-  def a(href: String)(cnt: NodeSeq): Elem = <a href={href}>{cnt}</a>
+  object withBaseUrl extends DynoVar[String]
+
+  def a(href: String)(cnt: NodeSeq): Elem =
+    <a href={(withBaseUrl.get openOr "") + href}>{cnt}</a>
 
   def a(href: Box[String])(cnt: NodeSeq): NodeSeq =
-    href.dmap(cnt) { l => <a href={l}>{cnt}</a> }
+    href.dmap(cnt) { l => <a href={(withBaseUrl.get openOr "") + l}>{cnt}</a> }
 
   def locTpl(p: String): Loc.Template = LocTpl(p)
 }