命令用Magit访问当前分支的Github拉取请求

通常，在将给定分支推入上游之后，我想在github上访问它并创建拉取请求。我开始不得不手动访问存储库，找到分支并创建PR感到烦恼。

问：如何编写在浏览器中访问PR URL的命令？

PR网址由提供https://github.com/ORIGIN-REPO/compare/BRANCH-NAME。由于两个origin和branch-name通过Magit（和普通知git），它应该很容易编写建立一个命令URL和电话browse-url就可以了。

不幸的是，我对Magit的内部运作一无所知，所以我不知道如何获取这些信息。

这是我想出的：

(defun pull-request-url ()
  "Build the URL or the pull requestion on GitHub corresponding
to the current branch. Uses Magit."
  (interactive)
  (format "%s/compare/%s"
           (replace-regexp-in-string
            (rx (and string-start (1+ any) "github.com:" (group (1+ any)) ".git" string-end))
            "https://github.com/\\1"
            (magit-get "remote" (magit-get-current-remote) "url"))
          (magit-get-current-branch)))

magit.el 顺便说一句，它很容易阅读。

马拉巴巴（Malabarba）在博客上发布了他的方法。

(defun endless/visit-pull-request-url ()
  "Visit the current branch's PR on Github."
  (interactive)
  (browse-url (format "https://github.com/%s/pull/new/%s"
                      (replace-regexp-in-string
                       "\\`.+github\\.com:\\(.+\\)\\.git\\'" "\\1"
                       (magit-get "remote" (magit-get-push-remote) "url"))
                      (magit-get-current-branch))))

顺便说一下，我打算最终向Magit本身添加类似的功能（以及更多;-）。

您考虑过magithub吗？

它不会让您查看当前分支的拉取请求，但会提供您可以按来访问的拉取请求的完整列表RET。

请注意，这需要集线器2.2。