summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2018-01-23 09:34:39 -0500
committerKyle Meyer <kyle@kyleam.com>2018-04-01 22:04:37 -0400
commit5d4453c16dfe6388493e1c04ad2adb5722932cea (patch)
tree95b1cbd19a04006b9af0d763cf4a762852e3df16
parentf625eeed9c48298ac7c8c1b021e8bb24bf3f2cc3 (diff)
downloademacs.d-5d4453c16dfe6388493e1c04ad2adb5722932cea.tar.gz
km-magit: Add command for copying GitHub link
-rw-r--r--lisp/km-magit.el72
1 files changed, 72 insertions, 0 deletions
diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index f574559..9a392e6 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -839,6 +839,78 @@ function."
(magit-copy-section-value)))
+;;; GitHub links
+
+(defun km/magit-github-url ()
+ ;; `bug-reference-url-format' may be defined in an untracked
+ ;; `.dir-locals.el`, so do this from the main worktree.
+ (-when-let* ((wtree (caar (magit-list-worktrees)))
+ (url
+ (with-temp-buffer
+ (let ((default-directory (file-name-as-directory wtree)))
+ (hack-dir-local-variables-non-file-buffer)
+ bug-reference-url-format))))
+ (and url
+ (string-match "\\`https://github.com/[^/]+/[^/]+" url)
+ (match-string 0 url))))
+
+(defun km/magit-github-file-link ()
+ (let ((ln (lambda (loc)
+ (save-restriction
+ (1+ (count-lines (point-min) loc))))))
+ (-when-let* ((rev (or magit-buffer-revision
+ (magit-rev-parse "HEAD")))
+ (fname (magit-file-relative-name))
+ (lines (if (use-region-p)
+ (prog1 (format "%s-L%s"
+ (funcall ln (region-beginning))
+ (1- (funcall ln (region-end))))
+ (deactivate-mark))
+ (funcall ln (point)))))
+ (format "%s/blob/%s/%s#L%s"
+ (or (km/magit-github-url) "")
+ rev fname lines))))
+
+(defun km/magit-github-commit-link ()
+ (--when-let (or (and (eq major-mode 'magit-revision-mode)
+ (car magit-refresh-args))
+ (and (derived-mode-p 'magit-mode)
+ (let ((sec (magit-current-section)))
+ (and (eq (magit-section-type sec) 'commit)
+ (magit-section-value sec)))))
+ (format "%s/commit/%s"
+ (or (km/magit-github-url) "")
+ (magit-rev-parse it))))
+
+(defun km/magit-github-diff-link ()
+ (when (derived-mode-p 'magit-diff-mode)
+ (let ((range (car magit-refresh-args)))
+ (when (and range
+ (string-match magit-range-re range))
+ ;; This always converts to commits IDs. It could try to map
+ ;; refnames to the appropriate GitHub link (including remotes
+ ;; to forks), but I don't have much need for it at the moment.
+ (let ((rev1 (magit-rev-parse (match-string 1 range)))
+ (rev2 (magit-rev-parse (match-string 3 range))))
+ (format "%s/compare/%s...%s"
+ (or (km/magit-github-url) "")
+ rev1 rev2))))))
+
+(defun km/magit-copy-github-link ()
+ "Copy a GitHub link from the current file or Magit buffer.
+
+Note: There are probably a number of packages that provide more
+complete support for this sort of functionality. This is just a
+simple solution that works for me."
+ (interactive)
+ (kill-new
+ (message "%s"
+ (or (km/magit-github-file-link)
+ (km/magit-github-commit-link)
+ (km/magit-github-diff-link)
+ (user-error "Don't know how to make a link from here")))))
+
+
;;; Git Rebase mode
(defun km/git-rebase--clean-subject (s)