From 633b6c789c7652df94d2bb8875c108567c0e2c15 Mon Sep 17 00:00:00 2001
From: Nishi <nishi@nishi.boats>
Date: Wed, 2 Oct 2024 08:24:48 +0000
Subject: [PATCH] this looks better

git-svn-id: file:///raid/svn-personal/koakuma/trunk@27 219d0f9c-2d94-d447-890a-813e76b88fe9
---
 Component/vcs_cvs.tcl | 1 -
 Component/vcs_git.tcl | 1 -
 Component/vcs_svn.tcl | 1 -
 koakuma.cgi.in        | 1 +
 4 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/Component/vcs_cvs.tcl b/Component/vcs_cvs.tcl
index 48ffcc8..4de8187 100644
--- a/Component/vcs_cvs.tcl
+++ b/Component/vcs_cvs.tcl
@@ -3,7 +3,6 @@ lappend components "CVS" "CVS Integration" "1.00" "VCS"
 
 proc CVS_info {} {
 	regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec cvs --version]" version
-	add_toc2 "CVS"
 	tputs	"<table border=\"0\">"
 	tputs	"	<tr>"
 	tputs	"		<th>"
diff --git a/Component/vcs_git.tcl b/Component/vcs_git.tcl
index a182723..2c9a621 100644
--- a/Component/vcs_git.tcl
+++ b/Component/vcs_git.tcl
@@ -3,7 +3,6 @@ lappend components "Git" "Git Integration" "1.00" "VCS"
 
 proc Git_info {} {
 	regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec git --version]" version
-	add_toc2 "Git"
 	tputs	"<table border=\"0\">"
 	tputs	"	<tr>"
 	tputs	"		<th>"
diff --git a/Component/vcs_svn.tcl b/Component/vcs_svn.tcl
index 1c87064..7560bb6 100644
--- a/Component/vcs_svn.tcl
+++ b/Component/vcs_svn.tcl
@@ -3,7 +3,6 @@ lappend components "Subversion" "Subversion Integration" "1.00" "VCS"
 
 proc Subversion_info {} {
 	regexp {[0-9]+\.[0-9]+\.[0-9]+} "[exec svn --version]" version
-	add_toc2 "Subversion"
 	tputs	"<table border=\"0\">"
 	tputs	"	<tr>"
 	tputs	"		<th>"
diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index 652590a..b667d5a 100644
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -348,6 +348,7 @@ if { [catch {
 		tputs	"</table>"
 		add_toc "Components"
 		loop_components {
+			add_toc2 "${name} (${genre} component)"
 			if { [llength [info procs "${name}_info"]] > 0 } {
 				${name}_info
 			}
-- 
2.45.2