Function: forge-add-repository--scope

forge-add-repository--scope is a natively compiled function defined in forge-commands.el.

Signature

(forge-add-repository--scope &optional URL)

Source Code

;; Defined in /nix/store/923zwib42c4qw6x4xps0cv1wi8qcd6lp-emacs-packages-deps/share/emacs/site-lisp/elpa/forge-20261005.753/forge-commands.el
(defun forge-add-repository--scope (&optional url)
  (cond-let
    [[stub (if url
               (forge-get-repository url nil :stub?)
             (forge-get-repository :stub?))]]
    ([repo (if url
               (forge-get-repository url nil :valid?)
             (forge-get-repository :valid?))]
     ;; Repository exists on forge...
     `((url      . ,(forge-get-url repo))
       (repo     . ,repo)
       (topdir   . ,(if url (forge-get-worktree repo) (magit-toplevel)))
       ;; ...and it is either tracked or valid to be tracked
       (:tracked . ,(eq (oref repo condition) :tracked))
       (:valid   . ,(not (eq (oref repo condition) :tracked)))
       ;; ...but it might have moved.
       (:moved   . ,(and (not (and (equal (oref repo owner) (oref stub owner))
                                   (equal (oref repo name)  (oref stub name))))
                         (forge-get-url stub)))))
    (stub
     ;; Valid forge URL but it does actually exist.
     `((url      . ,(forge-get-url stub))
       (topdir   . ,(magit-toplevel))))))