diff options
| author | EuAndreh <eu@euandre.org> | 2018-07-20 09:36:15 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2018-07-20 09:36:37 -0300 |
| commit | 153962ca461cd613176889dec759b214d9000eb4 (patch) | |
| tree | a83b0650a515388153841c86666ca72cf2789f40 /spacemacs.el | |
| parent | Fix indentation (diff) | |
| download | dotfiles-153962ca461cd613176889dec759b214d9000eb4.tar.gz dotfiles-153962ca461cd613176889dec759b214d9000eb4.tar.xz | |
Add support for GNU Savannah git-link
Diffstat (limited to 'spacemacs.el')
| -rw-r--r-- | spacemacs.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/spacemacs.el b/spacemacs.el index 1d9cb34..14e11e5 100644 --- a/spacemacs.el +++ b/spacemacs.el @@ -717,6 +717,20 @@ This is the place where most of your configurations should be done. Unless it is (key-chord-define-global "qe" (lambda () (interactive) (save-some-buffers 1))) + + + (defun git-link-savannah (hostname dirname filename _branch commit start _end) + (let ((project-name (cadr (split-string dirname "/")))) + (format "https://%s/cgit/%s.git/tree/%s?id=%s#n%s" + hostname + project-name + filename + commit + start))) + + (setq git-link-remote-alist + (cons '("savannah" git-link-savannah) + git-link-remote-alist)) t) (defun dotspacemacs/emacs-custom-settings () |