lucas/dotfiles
1
0
Fork 0
Code Activity

feat(emacs): add git-link-magit-commit and git-link-magit-commit-tree

Browse source
This commit is contained in:
Lucas Sta Maria 2024-12-22 22:54:42 +08:00
parent ef04d84715
commit ec1dbbc802
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

24
.emacs.d/include/priime-vc.el
View file

@ -22,9 +22,31 @@
(commit (git-link--commit)) (commit (git-link--commit))
(new-link (s-replace branch commit old-link))) (new-link (s-replace branch commit old-link)))
(kill-new new-link) (kill-new new-link)
(message new-link)
new-link)) new-link))
(defun git-link--magit-commit-url (type)
"Create a URL with the given TYPE to the current commit from Magit."
(let* ((remote (git-link--remote))
(remote-url (git-link--remote-url remote))
(short-hash (magit-commit-at-point))
(full-hash (magit-rev-hash short-hash))
(target-link (concat remote-url type full-hash)))
target-link))
(defun git-link-magit-commit-tree ()
"Create a URL representing a tree to the current commit from Magit."
(interactive)
(let* ((target-link (git-link--magit-commit-url "/tree/")))
(kill-new target-link)
target-link))
(defun git-link-magit-commit ()
"Create a URL representing a commit to the current commit from Magit."
(interactive)
(let* ((target-link (git-link--magit-commit-url "/commit/")))
(kill-new target-link)
target-link))
(provide 'priime-vc) (provide 'priime-vc)
;;; priime-vc.el ends here ;;; priime-vc.el ends here