Variable: package-vc-heuristic-alist

package-vc-heuristic-alist is a customizable variable defined in package-vc.el.gz.

Value

(("\\`https?://\\(?:\\(?:www\\.\\)?github\\.com/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+\\|codeberg\\.org/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+\\|\\(?:www\\.\\)?gitlab\\(?:\\.[[:alnum:]]+\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+\\|git\\.sr\\.ht/~\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+\\|git\\.\\(?:s\\(?:avannah\\|v\\)\\)\\.\\(?:non\\)?gnu\\.org/\\(?:git\\|r\\)/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/?\\)\\(?:/?\\|\\.git\\)\\'" . Git)
 ("\\`https?://\\(?:hg\\.sr\\.ht/~\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+\\|hg\\.\\(?:s\\(?:avannah\\|v\\)\\)\\.\\(?:non\\)?gnu\\.org/hgweb/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/?\\)\\'" . Hg)
 ("\\`https?://bzr\\.\\(?:s\\(?:avannah\\|v\\)\\)\\.\\(?:non\\)?gnu\\.org/r/\\(?:[[:alnum:]]\\|-\\|\\.\\|_\\)+/?\\'" . Bzr))

Documentation

Heuristic mapping URL regular expressions to VC backends.

This variable was added, or its default value changed, in Emacs 29.1.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/package-vc.el.gz
(defcustom package-vc-heuristic-alist
  `((,(rx bos "http" (? "s") "://"
          (or (: (? "www.") "github.com"
                 "/" (+ (or alnum "-" "." "_"))
                 "/" (+ (or alnum "-" "." "_")))
              (: "codeberg.org"
                 "/" (+ (or alnum "-" "." "_"))
                 "/" (+ (or alnum "-" "." "_")))
              (: (? "www.") "gitlab" (+ "." (+ alnum))
                 "/" (+ (or alnum "-" "." "_"))
                 "/" (+ (or alnum "-" "." "_")))
              (: "git.sr.ht"
                 "/~" (+ (or alnum "-" "." "_"))
                 "/" (+ (or alnum "-" "." "_")))
              (: "git." (or "savannah" "sv") "." (? "non") "gnu.org/"
                 (or "r" "git") "/"
                 (+ (or alnum "-" "." "_")) (? "/")))
          (or (? "/") ".git") eos)
     . Git)
    (,(rx bos "http" (? "s") "://"
          (or (: "hg.sr.ht"
                 "/~" (+ (or alnum "-" "." "_"))
                 "/" (+ (or alnum "-" "." "_")))
              (: "hg." (or "savannah" "sv") "." (? "non") "gnu.org/hgweb/"
                 (+ (or alnum "-" "." "_")) (? "/")))
          eos)
     . Hg)
    (,(rx bos "http" (? "s") "://"
          (or (: "bzr." (or "savannah" "sv") "." (? "non") "gnu.org/r/"
                 (+ (or alnum "-" "." "_")) (? "/")))
          eos)
     . Bzr))
  "Heuristic mapping URL regular expressions to VC backends."
  :type `(alist :key-type (regexp :tag "Regular expression matching URLs")
                :value-type (choice :tag "VC Backend"
                                    ,@(mapcar (lambda (b) `(const ,b))
                                              vc-handled-backends)))
  :version "29.1")