Function: majutsu-gerrit--remote-user

majutsu-gerrit--remote-user is a natively compiled function defined in majutsu-gerrit.el.

Signature

(majutsu-gerrit--remote-user &optional REMOTE DIRECTORY)

Documentation

Return the user component from Gerrit REMOTE in DIRECTORY, if any.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-gerrit.el
(defun majutsu-gerrit--remote-user (&optional remote directory)
  "Return the user component from Gerrit REMOTE in DIRECTORY, if any."
  (let ((remote-url (majutsu-gerrit--remote-url remote directory)))
    (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))))
      (url-user (url-generic-parse-url remote-url)))
     ((string-match "^\\([^@]+\\)@[^:]+:" remote-url)
      (match-string 1 remote-url)))))