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

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

Signature

(majutsu-gerrit--base-url-from-review-url REVIEW-URL)

Documentation

Normalize REVIEW-URL as a Gerrit web/API base URL.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit.el
(defun majutsu-gerrit--base-url-from-review-url (review-url)
  "Normalize REVIEW-URL as a Gerrit web/API base URL."
  (when (and (stringp review-url) (not (string-empty-p review-url)))
    (let* ((parsed (url-generic-parse-url review-url))
           (scheme (url-type parsed))
           (host (url-host parsed))
           (port (url-port parsed))
           (path (majutsu-gerrit--trim-trailing-slashes
                  (or (url-filename parsed) ""))))
      (when (and scheme host)
        (concat scheme "://"
                (majutsu-gerrit--host-with-port host port scheme)
                path)))))