Merge pull request #150 from FrostyX/forge-fedora

Recognize forge.fedoraproject.org as a codeberg instance

Author: sshaw

git-link-test.el

@@ -356,3 +356,7 @@
                  (git-link-homepage-codecommit "https://us-west-2.console.aws.amazon.com" "codesuite/codecommit/repositories/repo"))))
 
 
+(ert-deftest git-link-homepage-codeberg ()
+  "Test git-link-homepage-codeberg function."
+  (should (equal "https://codeberg.org/user/repo"
+                 (git-link-homepage-codeberg "https://codeberg.org" "user/repo"))))

git-link.el

@@ -250,7 +250,8 @@ See its docs."
     ("googlesource.com" git-link-googlesource)
     ("visualstudio\\|azure" git-link-azure)
     ("sourcegraph" git-link-sourcegraph)
-    ("\\(amazonaws\\|amazon\\)\\.com" git-link-codecommit))
+    ("\\(amazonaws\\|amazon\\)\\.com" git-link-codecommit)
+    ("forge.fedoraproject.org" git-link-codeberg))
   "Alist of host names and functions creating file links for those.
 Each element looks like (REGEXP FUNCTION) where REGEXP is used to
 match the remote's host name and FUNCTION is used to generate a link
@@ -272,7 +273,8 @@ As an example, \"gitlab\" will match with both \"gitlab.com\" and
     ("googlesource.com" git-link-commit-googlesource)
     ("visualstudio\\|azure" git-link-commit-azure)
     ("sourcegraph" git-link-commit-sourcegraph)
-    ("\\(amazonaws\\|amazon\\)\\.com" git-link-commit-codecommit))
+    ("\\(amazonaws\\|amazon\\)\\.com" git-link-commit-codecommit)
+    ("forge.fedoraproject.org" git-link-commit-codeberg))
   "Alist of host names and functions creating commit links for those.
 Each element looks like (REGEXP FUNCTION) where REGEXP is used to
 match the remote's host name and FUNCTION is used to generate a link
@@ -293,7 +295,8 @@ As an example, \"gitlab\" will match with both \"gitlab.com\" and
     ("googlesource.com" git-link-homepage-github)
     ("visualstudio\\|azure" git-link-homepage-github)
     ("sourcegraph" git-link-homepage-github)
-    ("\\(amazonaws\\|amazon\\)\\.com" git-link-homepage-codecommit))
+    ("\\(amazonaws\\|amazon\\)\\.com" git-link-homepage-codecommit)
+    ("forge.fedoraproject.org" git-link-homepage-codeberg))
   "Alist of host names and functions creating homepage links for those.
 Each element looks like (REGEXP FUNCTION) where REGEXP is used to
 match the remote's host name and FUNCTION is used to generate a link
@@ -832,6 +835,9 @@ is prepended to it."
 (defun git-link-homepage-codecommit (hostname dirname)
   (format "%s/%s/browse" hostname dirname))
 
+(defun git-link-homepage-codeberg (hostname dirname)
+  (format "%s/%s" hostname dirname))
+
 (define-obsolete-function-alias
   'git-link-homepage-svannah 'git-link-homepage-savannah "cf947f9")