Move spacemacs/git-link-* functions to git layer

syl20bnr · Oct 17, 2016 · 5771484 · 5771484
1 parent ddbee36
commit 5771484
Show file tree

Hide file tree

Showing 2 changed files with 36 additions and 46 deletions.
diff --git a/layers/+source-control/git/funcs.el b/layers/+source-control/git/funcs.el
@@ -34,3 +34,39 @@
                 (if (derived-mode-p 'magit-diff-mode)
                     magit-refresh-args
                   magit-diff-section-arguments))) (magit-refresh))
+
+(defun spacemacs/git-link-copy-url-only ()
+  "Only copy the generated link to the kill ring."
+  (interactive)
+  (let (git-link-open-in-browser)
+    (call-interactively 'spacemacs/git-link)))
+
+(defun spacemacs/git-link-commit-copy-url-only ()
+  "Only copy the generated link to the kill ring."
+  (interactive)
+  (let (git-link-open-in-browser)
+    (call-interactively 'spacemacs/git-link-commit)))
+
+(defun spacemacs/git-link ()
+  "Allow the user to run git-link in a git-timemachine buffer."
+  (interactive)
+  (require 'git-link)
+  (if (and (boundp 'git-timemachine-revision)
+           git-timemachine-revision)
+      (cl-letf (((symbol-function 'git-link--branch)
+                 (lambda ()
+                   (car git-timemachine-revision))))
+        (call-interactively 'git-link))
+    (call-interactively 'git-link)))
+
+(defun spacemacs/git-link-commit ()
+  "Allow the user to run git-link-commit in a git-timemachine buffer."
+  (interactive)
+  (require 'git-link)
+  (if (and (boundp 'git-timemachine-revision)
+           git-timemachine-revision)
+      (cl-letf (((symbol-function 'word-at-point)
+                 (lambda ()
+                   (car git-timemachine-revision))))
+        (call-interactively 'git-link-commit))
+    (call-interactively 'git-link-commit)))
diff --git a/layers/+source-control/github/funcs.el b/layers/+source-control/github/funcs.el