From 038d977cc25177759537a89ca078701f14d3ace0 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Sat, 20 Aug 2022 08:01:34 +0000
Subject: www: use absolute URLs for coderepo URLs

Showing "../../foo.git" looks awkward and isn't conducive to
users who want to "git clone" a URL.
---
 lib/PublicInbox/WwwText.pm | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'lib/PublicInbox/WwwText.pm')

diff --git a/lib/PublicInbox/WwwText.pm b/lib/PublicInbox/WwwText.pm
index 581a19f3..c6957e81 100644
--- a/lib/PublicInbox/WwwText.pm
+++ b/lib/PublicInbox/WwwText.pm
@@ -246,20 +246,12 @@ sub coderepos_raw ($$) {
 	my ($ctx, $top_url) = @_;
 	my $cr = $ctx->{ibx}->{coderepo} // return ();
 	my $cfg = $ctx->{www}->{pi_cfg};
-	my @ret;
+	my @ret = ('Code repositories for project(s) associated with this '.
+		$ctx->{ibx}->thing_type . "\n");
 	for my $cr_name (@$cr) {
-		$ret[0] //= do {
-			my $thing = $ctx->{ibx}->can('cloneurl') ?
-				'public inbox' : 'external index';
-			<<EOF;
-Code repositories for project(s) associated with this $thing
-EOF
-		};
 		my $urls = $cfg->get_all("coderepo.$cr_name.cgiturl");
 		if ($urls) {
 			for (@$urls) {
-				# relative or absolute URL?, prefix relative
-				# "foo.git" with appropriate number of "../"
 				my $u = m!\A(?:[a-z\+]+:)?//!i ? $_ :
 					$top_url.$_;
 				$ret[0] .= "\n\t" . prurl($ctx->{env}, $u);
-- 
cgit v1.2.3-24-ge0c7