From 6efff253fdec8b4a4880d315807d6bbf39b5d8cb Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Fri, 21 Nov 2008 14:22:59 +0100
Subject: [PATCH] Categories are also clickable.

---
 mp_doccer | 19 +++++++++++++++----
 1 file changed, 15 insertions(+), 4 deletions(-)

diff --git a/mp_doccer b/mp_doccer
index 8fcbf62..f96c76f 100755
--- a/mp_doccer
+++ b/mp_doccer
@@ -797,6 +797,17 @@ sub _grutatxt_header
 }
 
 
+sub _gl
+{
+	my $s = shift;
+
+	$s = lc($s);
+	$s =~ s/\s/_/g;
+
+	return $s;
+}
+
+
 sub format_grutatxt
 # create a grutatxt document
 {
@@ -822,7 +833,7 @@ sub format_grutatxt
 			print F _grutatxt_header($sn, '~');
 
 			print F join("\n",
-				map { ' * ./#' . lc($_) . ' (' . $_ . ')' }
+				map { ' * ./#' . _gl($_) . ' (' . $_ . ')' }
 					sort(@{$categories{$sn}})
 				);
 
@@ -842,7 +853,7 @@ sub format_grutatxt
 		print F _grutatxt_header($s, '~');
 
 		print F join("\n",
-			map { ' * ./#' . lc($_) . ' (' . $_ . ')' }
+			map { ' * ./#' . _gl($_) . ' (' . $_ . ')' }
 				sort(map { $_->{'func'} } @f)
 			);
 
@@ -852,7 +863,7 @@ sub format_grutatxt
 	print F _grutatxt_header('Alphabetical', '-');
 
 	foreach my $f (sort { $a->{'func'} cmp $b->{'func'} } @functions) {
-		print F ' * ./#' . lc($f->{'func'}) . ' (' . $f->{func} . ")\n";
+		print F ' * ./#' . _gl($f->{'func'}) . ' (' . $f->{func} . ")\n";
 	}
 
 	print F "\n\n";
@@ -911,7 +922,7 @@ sub format_grutatxt
 				print F _grutatxt_header('Categories', '~');
 
 				print F join("\n",
-					map { ' * ' . $_ }
+					map { ' * ./#' . _gl($_) . ' (' . $_ . ')' }
 						@{$f->{'category'}});
 
 				print F "\n";
-- 
2.11.4.GIT