Look up username as documented

According to the documentation "FORGE.WEBHOST.user" is used, but
in actuality one still had to use "FORGE.APIHOST.user".  Now the
former can be used and the latter is still supported for backward
compatibility.

Even though we treat the WEBHOST as the host ID, we don't actually
store that in repository objects, so we have to use `forge-alist'
to translate.

Closes #796.

Author: tarsius

CHANGELOG

@@ -4,6 +4,8 @@
 - Fixed a pagination bug, which could completely prevent pulling API
   data for certain Github repositories.  #843
 
+- Fixed username lookup to work as documented.  #796
+
 * v0.6.4    2026-04-08
 
 - Improved the fallback default when reading the target branch for

lisp/forge-github.el

@@ -1266,7 +1266,7 @@
 (cl-defmethod forge--fork-repository ((repo forge-github-repository) fork all)
   (with-slots (name apihost) repo
     (forge-rest repo "POST" "/repos/:owner/:name/forks"
-      ((and (not (equal fork (ghub--username apihost)))
+      ((and (not (equal fork (ghub--username repo)))
             (organization fork))
        (default-branch-only (not all))))
     (ghub-wait (format "/repos/%s/%s" fork name)

lisp/forge-gitlab.el

@@ -600,7 +600,7 @@
 (cl-defmethod forge--fork-repository ((repo forge-gitlab-repository) fork _all)
   (with-slots (name apihost) repo
     (forge--glab-post repo "/projects/:project/fork"
-      (and (not (equal fork (ghub--username apihost 'gitlab)))
+      (and (not (equal fork (ghub--username repo)))
            `((namespace . ,fork)))
       :noerror t)
     (ghub-wait (format "/projects/%s%%2F%s" (string-replace "/" "%2F" fork) name)

lisp/forge-repo.el

@@ -518,8 +518,11 @@ forges and hosts."
     (unless (forge-repository-equal (forge-get-repository :stub?) repo)
       (when-let ((worktree (forge-get-worktree repo)))
         (setq default-directory worktree)))
-    (cl-call-next-method (oref repo apihost)
-                         (forge--ghub-type-symbol (eieio-object-class repo)))))
+    (with-slots (apihost) repo
+      (cl-call-next-method
+       (caddr (car (cl-member apihost forge-alist :test #'equal :key #'cadr)))
+       (forge--ghub-type-symbol (eieio-object-class repo))
+       apihost))))
 
 (defun forge--ghub-type-symbol (class)
   (pcase-exhaustive class