Browse Source

Use MELPA git-command

pull/15/head
10sr 9 years ago
parent
commit
2b4bda5e30
1 changed files with 4 additions and 50 deletions
  1. +4
    -50
      emacs.el

+ 4
- 50
emacs.el View File

@@ -223,6 +223,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."

editorconfig

git-command

;; 10sr repository
recentf-show
;;dired-list-all-mode
@@ -1066,56 +1068,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(autoload-eval-lazily 'gtkbm)
(global-set-key (kbd "C-x C-d") 'gtkbm))

(and (fetch-library
"https://raw.github.com/10sr/git-command-el/master/git-command.el"
t)
(autoload-eval-lazily 'git-command
nil

;; for git-command old version
(when (boundp 'git-command-major-mode-alist)
(message "You are using old git-command ! Update it !!!")
(add-to-list 'git-command-major-mode-alist
'("di" . diff-mode))
(add-to-list 'git-command-major-mode-alist
'("graph" . fundamental-mode))
(add-to-list 'git-command-major-mode-alist
'("log" . fundamental-mode)))

;; for git-command new version
(when (boundp 'git-command-view-command-list)
(add-to-list 'git-command-view-command-list
"graph")
(add-to-list 'git-command-view-command-list
"blame")
(add-to-list 'git-command-view-command-list
"help"))
(when (boundp 'git-command-aliases-alist)
;; (message "new version of git-command!")
(add-to-list 'git-command-aliases-alist
'("di" . (lambda (options cmd args new-buffer-p)
(git-command-exec options
"diff"
args
new-buffer-p))))
(add-to-list 'git-command-aliases-alist
'("grep" . (lambda (options cmd args new-buffer-p)
(my-rgrep
(concat
"git "
(git-command-construct-commandline
`(,@options "--no-pager"
"-c" "color.grep=false")
cmd
`("-nHe" ,@args))))))))
(setq git-command-use-emacsclient t)
;; (or git-command-prompt-file
;; (setq git-command-prompt-file
;; (git-command-find-git-ps1
;; "/usr/share/git-core/contrib/completion/git-prompt.sh")))
)
;; (setq git-command-default-options "-c color.ui=always")
(define-key ctl-x-map "g" 'git-command))
(when (autoload-eval-lazily 'git-command)
(define-key ctl-x-map "g" 'git-command))

(and (fetch-library
"http://www.emacswiki.org/emacs/download/sl.el"


Loading…
Cancel
Save