From 0997c9f88b956e80f3e5453c75b225aeec6829b7 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@triptico.com>
Date: Fri, 21 Nov 2008 14:14:10 +0100
Subject: [PATCH] Function names are links.

---
 mp_doccer | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/mp_doccer b/mp_doccer
index 1064bc5..c28a760 100755
--- a/mp_doccer
+++ b/mp_doccer
@@ -822,7 +822,7 @@ sub format_grutatxt
 			print F _grutatxt_header($sn, '~');
 
 			print F join("\n",
-				map { ' * ' . $_ }
+				map { ' * ./#' . lc($_) . ' (' . $_ . ')' }
 					sort(@{$categories{$sn}})
 				);
 
@@ -842,7 +842,7 @@ sub format_grutatxt
 		print F _grutatxt_header($s, '~');
 
 		print F join("\n",
-			map { ' * ' . $_ }
+			map { ' * ./#' . lc($_) . ' (' . $_ . ')' }
 				sort(map { $_->{'func'} } @f)
 			);
 
@@ -852,7 +852,7 @@ sub format_grutatxt
 	print F _grutatxt_header('Alphabetical', '-');
 
 	foreach my $f (sort { $a->{'func'} cmp $b->{'func'} } @functions) {
-		print F ' * ' . $f->{'func'} . "\n";
+		print F ' * ./#' . lc($f->{'func'}) . ' (' . $f->{func} . ")\n";
 	}
 
 	print F "\n\n";
@@ -911,7 +911,8 @@ sub format_grutatxt
 				print F _grutatxt_header('Categories', '~');
 
 				print F join("\n",
-					map { ' * ' . $_ } @{$f->{'category'}});
+					map { ' * ' . $_ }
+						@{$f->{'category'}});
 
 				print F "\n";
 			}
-- 
2.11.4.GIT