From 1f9022e06e8129b3f459efa2f43df2c23044b26d Mon Sep 17 00:00:00 2001
From: Sven Van Caekenberghe <sven@beta9.be>
Date: Wed, 6 Nov 2024 13:27:03 +0100
Subject: [PATCH] Rename gitHubURL to gitHUbWebUrl and add
 PureGitRemote>>#gitHubWebUrl

---
 src/GToolkit4Git/PureGitCommit.extension.st | 2 +-
 src/GToolkit4Git/PureGitRemote.extension.st | 3 ++-
 src/GToolkit4Git/PureGitUrl.extension.st    | 4 ++++
 3 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/GToolkit4Git/PureGitCommit.extension.st b/src/GToolkit4Git/PureGitCommit.extension.st
index 0c63e97a..06dd4534 100644
--- a/src/GToolkit4Git/PureGitCommit.extension.st
+++ b/src/GToolkit4Git/PureGitCommit.extension.st
@@ -47,7 +47,7 @@ PureGitCommit >> gtDetails [
 		{ 'comment' 
 			. self comment firstLineWithEllipsis
 			. self comment }.
-		{ 'URL' . self gitHubURL ifNil: [ '' ] }.
+		{ 'github web url' . self gitHubWebUrl ifNil: [ '' ] }.
 	}
 ]
 
diff --git a/src/GToolkit4Git/PureGitRemote.extension.st b/src/GToolkit4Git/PureGitRemote.extension.st
index d40f3dfb..268cda5d 100644
--- a/src/GToolkit4Git/PureGitRemote.extension.st
+++ b/src/GToolkit4Git/PureGitRemote.extension.st
@@ -37,6 +37,7 @@ PureGitRemote >> gtBranchesFor: composite [
 PureGitRemote >> gtDetails [
 	^ super gtDetails , {
 		{ 'name' . self name }.
-		{ 'url' . self url . self gitUrl }
+		{ 'url' . self url . self gitUrl }.
+		{ 'github web url' . self gitHubWebUrl ifNil: [ '' ] }
 	}
 ]
diff --git a/src/GToolkit4Git/PureGitUrl.extension.st b/src/GToolkit4Git/PureGitUrl.extension.st
index a5cff6ac..56480af3 100644
--- a/src/GToolkit4Git/PureGitUrl.extension.st
+++ b/src/GToolkit4Git/PureGitUrl.extension.st
@@ -18,6 +18,10 @@ PureGitUrl >> gtDetails [
 		details := details , {
 			{ 'host name' . self hostname }
 		} ].
+	self gitHubWebUrl ifNotNil: [ :gitHubWebUrl |
+		details := details , {
+			{ 'github web url' . gitHubWebUrl }
+		} ].
 	^ details
 ]