23 lines
685 B
EmacsLisp
23 lines
685 B
EmacsLisp
|
;; Enable VC support
|
||
|
|
;;
|
||
|
|
|
||
|
|
(defvar vc-username "RongsongShen")
|
||
|
|
(defvar vc-usermail "Rongsong.shen@icloud.com")
|
||
|
|
|
||
|
|
(register-mypkg
|
||
|
|
(list :name "vc"
|
||
|
|
:enabled t
|
||
|
|
:packages '(with-editor magit magit-filenotify magit-gerrit
|
||
|
|
magit-gitflow magit-svn )
|
||
|
|
:init #'(lambda ()
|
||
|
|
(setq magit-log-edit-confirm-cancellation t)
|
||
|
|
(setq magit-last-seen-setup-instructions "1.4.0")
|
||
|
|
(unless (file-exists-p "~/.gitconfig")
|
||
|
|
(shell-command (concat "git config --global user.email " vc-usermail))
|
||
|
|
(shell-command (concat "git config --global user.name " vc-username))))))
|
||
|
|
|
||
|
|
|
||
|
|
;; Enable vc-rtc.el
|
||
|
|
;; by uncomment following
|
||
|
|
;;(add-to-list 'vc-handled-backends 'rtc)
|