mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
45 lines
1.6 KiB
EmacsLisp
45 lines
1.6 KiB
EmacsLisp
;;; siren-git-link.el --- jimeh's Emacs Siren: git-link configuration.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Basic configuration for git-link.
|
|
|
|
;;; Code:
|
|
|
|
(use-package git-link
|
|
:bind
|
|
("C-c g" . git-link)
|
|
|
|
:config
|
|
(setq git-link-open-in-browser t)
|
|
|
|
;; Add custom handlers relevant only for machine with hostname "UAC00024".
|
|
(when (string= (system-name) "UAC00024")
|
|
(defun git-link-uac00024-bitbucket (hostname dirname filename branch commit start end)
|
|
(format "https://%s/projects/%srepos/%s/browse/%s"
|
|
"bitbucket.il2management.local"
|
|
(upcase (file-name-directory dirname))
|
|
(file-name-nondirectory dirname)
|
|
(concat filename
|
|
(unless (string= (or branch commit) "master")
|
|
(format "?at=%s" (or branch commit)))
|
|
(when start
|
|
(concat "#"
|
|
(if end (format "%s-%s" start end)
|
|
(format "%s" start)))))))
|
|
|
|
(defun git-link-commit-uac00024-bitbucket (hostname dirname commit)
|
|
(format "https://%s/projects/%srepos/%s/commits/%s"
|
|
"bitbucket.il2management.local"
|
|
(upcase (file-name-directory dirname))
|
|
(file-name-nondirectory dirname)
|
|
commit))
|
|
|
|
(add-to-list 'git-link-remote-alist
|
|
'("git" git-link-uac00024-bitbucket) t)
|
|
(add-to-list 'git-link-commit-remote-alist
|
|
'("git" git-link-commit-uac00024-bitbucket) t)))
|
|
|
|
(provide 'siren-git-link)
|
|
;;; siren-git-link.el ends here
|