From 625fe823822fc56360be131488f4a71d5b1e86ac Mon Sep 17 00:00:00 2001 From: Jim Myhrberg Date: Fri, 1 Feb 2019 16:07:47 +0000 Subject: [PATCH] Update git-link config custom functions for new hostname --- modules/navigation/siren-git-link.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/modules/navigation/siren-git-link.el b/modules/navigation/siren-git-link.el index 3b24125..8d5912d 100644 --- a/modules/navigation/siren-git-link.el +++ b/modules/navigation/siren-git-link.el @@ -13,9 +13,9 @@ :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) + ;; Add custom handlers relevant only for machine with hostname "UAC00013". + (when (string-prefix-p "UAC00013" (system-name)) + (defun git-link-uac00013-bitbucket (hostname dirname filename branch commit start end) (format "https://%s/projects/%srepos/%s/browse/%s" "bitbucket.il2management.local" (upcase (file-name-directory dirname)) @@ -28,7 +28,7 @@ (if end (format "%s-%s" start end) (format "%s" start))))))) - (defun git-link-commit-uac00024-bitbucket (hostname dirname commit) + (defun git-link-commit-uac00013-bitbucket (hostname dirname commit) (format "https://%s/projects/%srepos/%s/commits/%s" "bitbucket.il2management.local" (upcase (file-name-directory dirname)) @@ -36,9 +36,9 @@ commit)) (add-to-list 'git-link-remote-alist - '("git" git-link-uac00024-bitbucket) t) + '("git" git-link-uac00013-bitbucket) t) (add-to-list 'git-link-commit-remote-alist - '("git" git-link-commit-uac00024-bitbucket) t))) + '("git" git-link-commit-uac00013-bitbucket) t))) (provide 'siren-git-link) ;;; siren-git-link.el ends here