[Emacs] Add vc-find-revision-of-file

This commit is contained in:
Ivan Malison 2018-05-27 23:44:32 -07:00
parent cda2f1f39c
commit fc07af65b2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -3720,6 +3720,20 @@ I've disabled magithub because it causes magit to be super slow
:disabled t :disabled t
:after magit) :after magit)
#+END_SRC #+END_SRC
** vc
#+begin_src emacs-lisp
(use-package vc
:config
(progn
(defun vc-find-revision-of-file (revision)
(interactive
(list (vc-read-revision
"Revision to visit: "
(list (imalison:join-paths (magit-toplevel) (car (magit-list-files)))))))
(let* ((file (completing-read "Select file to visit: " (magit-revision-files revision)))
(full-file (imalison:join-paths (magit-toplevel) file)))
(switch-to-buffer (vc-find-revision full-file revision))))))
#+end_src
** git-link ** git-link
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package git-link (use-package git-link