Function: majutsu-gerrit--base-url-from-remote-url

majutsu-gerrit--base-url-from-remote-url is a natively compiled function defined in majutsu-gerrit.el.

Signature

(majutsu-gerrit--base-url-from-remote-url REMOTE-URL)

Documentation

Derive Gerrit's web/API base URL from REMOTE-URL.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit.el
(defun majutsu-gerrit--base-url-from-remote-url (remote-url)
  "Derive Gerrit's web/API base URL from REMOTE-URL."
  (cond
   ((not (stringp remote-url))
    nil)
   ((let* ((parsed (url-generic-parse-url remote-url))
           (scheme (url-type parsed)))
      (and scheme (not (string-empty-p scheme))))
    (let* ((parsed (url-generic-parse-url remote-url))
           (scheme (url-type parsed))
           (display-scheme (if (member scheme '("http" "https")) scheme "https"))
           (host (url-host parsed))
           (port (and (member scheme '("http" "https"))
                      (url-port parsed))))
      (when host
        (concat display-scheme "://"
                (majutsu-gerrit--host-with-port host port display-scheme)))))
   ((string-match "^\\(?:[^@]+@\\)?\\([^:]+\\):" remote-url)
    (format "https://%s" (match-string 1 remote-url)))))