gistfile1.txt

;; This buffer is for text that is not saved, and for Lisp evaluation.
;; To create a file, visit it with C-o and enter text in its buffer.


(defun magithub--url->domain (url)
  "Tries to parse a remote url into a domain"
  (cdr (assq 'domain (magithub--parse-url url))))

(add-hook 'magit-status-mode-hook '(lambda ()
                                     (if (magithub-github-repository-p)
                                         (let* ((remote-url (magit-get "remote" (magithub-source--remote) "url"))
                                                (domain (magithub--url->domain(remote-url))))
                                           (setq ghub-base-url (concat "https://" domain "/api/v3/"))
                                           ))))


(cdr (assq 'domain (magithub--parse-url "[email protected]:example/project.git")))