From 8d7d1d2595c2c3475ec27d07d8544e345dab5851 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Fri, 6 Mar 2009 21:13:18 +0100
Subject: Added more language modules, threw things about a bit.

---
 lib/LXRng/Markup/File.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'lib/LXRng/Markup/File.pm')

diff --git a/lib/LXRng/Markup/File.pm b/lib/LXRng/Markup/File.pm
index c3d576c..054463a 100644
--- a/lib/LXRng/Markup/File.pm
+++ b/lib/LXRng/Markup/File.pm
@@ -92,18 +92,23 @@ sub format_include {
 }
 
 sub format_code {
-    my ($self, $idre, $res, $frag) = @_;
+    my ($self, $lang, $frag) = @_;
 
     my $tree = $self->context->vtree();
     my $path = $self->context->path();
+    my $idre = $lang->identifier_re();
+    my $res  = $lang->reserved();
 
     $frag =~ s{(.*?)$idre|(.+)}{
 	if ($2) {
 	    unless (exists($$res{$2})) {
 		my $pre = $1;
-		my $sym = safe_html($2);
+		my $sym = $2;
+		my $ref = safe_html($lang->mangle_sym($sym));
+		$sym = safe_html($sym);
+
 		safe_html($pre).
-		    qq{<a href="+code=$sym" class="sref">$sym</a>};
+		    qq{<a href="+code=$ref" class="sref">$sym</a>};
 	    }
 	    else {
 		safe_html($1.$2);
@@ -129,7 +134,7 @@ sub markupfile {
     my ($self, $subst, $parse) = @_;
 
     my ($btype, $frag) = $parse->nextfrag;
-    
+
     return () unless defined $frag;
 
     $btype ||= 'code';
-- 
cgit v1.2.3