Mercurial > dotfiles
comparison .elisp/settings/50.localfuncs.el @ 158:36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Requires mercurial.el, but it works with both Mercurial and Git.
| author | Augie Fackler <durin42@gmail.com> |
|---|---|
| date | Tue, 24 Nov 2009 14:25:37 -0600 |
| parents | e30655eb7050 |
| children | cd4e645d1207 |
comparison
equal
deleted
inserted
replaced
| 157:95b7dc384677 | 158:36a4e4b0f9c3 |
|---|---|
| 1 (defun af-generic-diff-repo () | |
| 2 (interactive) | |
| 3 (let ((root (textmate-project-root))) | |
| 4 (cd root) | |
| 5 (hg-view-output | |
| 6 ((format "project diff for %s" root)) | |
| 7 (call-process (textmate-project-root-type root) nil t nil "diff") | |
| 8 (diff-mode) | |
| 9 (setq diff (not (= (point-min) (point-max)))) | |
| 10 (font-lock-fontify-buffer) | |
| 11 (cd root)))) | |
| 12 (global-set-key [(control c)(t)(=)] 'af-generic-diff-repo) | |
| 13 (global-set-key [(control c)(d)] 'af-generic-diff-repo) | |
| 14 | |
| 1 (defun pyflakes-this-buffer () | 15 (defun pyflakes-this-buffer () |
| 2 (interactive) | 16 (interactive) |
| 3 (compilation-start (concat "cd " | 17 (compilation-start (concat "cd " |
| 4 (file-name-directory buffer-file-name) | 18 (file-name-directory buffer-file-name) |
| 5 "; pyflakes " (file-name-nondirectory | 19 "; pyflakes " (file-name-nondirectory |