forge-fork: Only fork the default branch by default

Author: tarsius

docs/forge.org

@@ -1203,6 +1203,9 @@ then the remote is never removed.
 
   Currently this only supports Github and Gitlab.
 
+  With a prefix argument, fork all branches, not just the default
+  branch.  On Gitlab it is not possible to fork only the default.
+
 - Key: N - H (forge-toggle-topic-legend) ::
 
   This command toggle whether to show a legend for faces used in topic

docs/forge.texi

@@ -1403,6 +1403,9 @@ access to.
 
 Currently this only supports Github and Gitlab.
 
+With a prefix argument, fork all branches, not just the default
+branch.  On Gitlab it is not possible to fork only the default.
+
 @item @kbd{N - H} (@code{forge-toggle-topic-legend})
 @kindex N - H
 @findex forge-toggle-topic-legend

lisp/forge-commands.el

@@ -1059,20 +1059,25 @@ number) and this command is made available as a substitute in the
 ;;; Remotely
 
 ;;;###autoload
-(defun forge-fork (fork remote)
+(defun forge-fork (fork remote all)
   "Fork the current repository to FORK and add it as a REMOTE.
+
 If the fork already exists, then that isn't an error; the remote
-is added anyway.  Currently this only supports Github and Gitlab."
+is added anyway.  Currently this only supports Github and Gitlab.
+
+With prefix argument ALL, fork all branches, not just the default
+branch.  On Gitlab it is not possible to fork only the default."
   (interactive
    (let ((fork (magit-completing-read "Fork to"
                                       (mapcar #'car forge-owned-accounts))))
      (list fork
            (read-string "Remote name: "
                         (or (plist-get (cdr (assoc fork forge-owned-accounts))
                                        'remote-name)
-                            fork)))))
+                            fork))
+           current-prefix-arg)))
   (let ((repo (forge-get-repository :stub)))
-    (forge--fork-repository repo fork)
+    (forge--fork-repository repo fork all)
     (magit-remote-add remote
                       (magit-clone--format-url (oref repo githost) fork
                                                (oref repo name))

lisp/forge-github.el

@@ -1263,11 +1263,12 @@
   (message "Waiting 5 seconds for GitHub to complete rename...done")
   (magit-call-git "fetch" "--prune" (oref repo remote)))
 
-(cl-defmethod forge--fork-repository ((repo forge-github-repository) fork)
+(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)))
-            (organization fork))))
+            (organization fork))
+       (default-branch-only (not all))))
     (ghub-wait (format "/repos/%s/%s" fork name)
                nil :auth 'forge :host apihost)))
 

lisp/forge-gitlab.el

@@ -598,7 +598,7 @@
                                            (_ (subclass forge-pullreq)))
   (forge--topic-template-files-1 repo "md" ".gitlab/merge_request_templates"))
 
-(cl-defmethod forge--fork-repository ((repo forge-gitlab-repository) fork)
+(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)))