Visit and Create GitHub PRs quickly from Emacs

emacs-github-pr.el

;; URL for current branch PR should
;; look like this:
;; https://github.com/sideshowcoder/tbrokersetip/compare/master...sideshowcoder-patch-1?quick_pull=1
;; (requires  magit)
(defun coder/string-remove-until (string seperator)
  (nth 1 (split-string string seperator)))

(defun coder/string-remove-after (string seperator)
  (nth 0 (split-string string seperator)))

(defun coder/git-origin-url-host ()
  "Get the origin host part of the remote origin url, where the
url is in the format git@somehost:org/repo.git"
  (let ((url (magit-get "remote.origin.url")))
    (coder/string-remove-after (coder/string-remove-until url "@") ":")))

(defun coder/git-origin-org-repo ()
  (let ((url (magit-get "remote.origin.url")))
    (coder/string-remove-after (coder/string-remove-until url ":") ".git")))

(defun coder/visit-pr-url ()
  "Visit current branch PR url"
  (interactive)
  (let ((remote-branch (magit-get-current-branch)))
    (browse-url
     (format "https://%s/%s/pull/new/master...%s?quick_pull=1"
             (coder/git-origin-url-host)
             (coder/git-origin-org-repo)
             (magit-get-current-branch)))))