From 9a841146784f5dcca36e0ac44d2f6f8f2cff68a6 Mon Sep 17 00:00:00 2001
From: Angel Ortega <angel@venexma.es>
Date: Wed, 23 Jan 2008 11:12:10 +0100
Subject: [PATCH] Categories are now clickable.

---
 mp_doccer | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/mp_doccer b/mp_doccer
index fba6b97..42598ae 100755
--- a/mp_doccer
+++ b/mp_doccer
@@ -557,6 +557,7 @@ sub html_toc
 		$ret .= "<h2>By Category</h2>\n";
 
 		foreach my $sn (sort keys %categories) {
+			$ret .= "<a name = '$sn'></a>\n";
 			$ret .= "<h3 class = 'category'>$sn</h3>\n";
 
 			$ret .= "<ul class = 'by_category'>\n";
@@ -673,7 +674,7 @@ sub html_func
 			$ret .= "<h3>Categories</h3>\n";
 
 			$ret .= "<ul class = 'categories'>\n" .
-				join('', map { "  <li>$_</li>\n" } @{$f->{'category'}}) .
+				join('', map { "  <li><a href = '#$_'>$_</a></li>\n" } @{$f->{'category'}}) .
 				"</ul>\n";
 		}
 	}
@@ -709,7 +710,7 @@ sub format_html_1
 
 		$f{$f->{'func'}}++;
 
-		print F "<div class = 'func_container'>\n";
+		print F "\n<div class = 'func_container'>\n";
 		print F "<a name = '$f->{'func'}'></a>\n";
 		print F "<h2 style = 'border-bottom: solid 2px;'>$f->{'func'}</h2>\n";
 
-- 
2.11.4.GIT