Mercurial > dotfiles
annotate .elisp/settings/50.localfuncs.el @ 188:e77c01b7b0f4
localfuncs: add tool for running check-code on hg
| author | Augie Fackler <durin42@gmail.com> |
|---|---|
| date | Wed, 24 Feb 2010 14:34:21 -0600 |
| parents | cd4e645d1207 |
| children | c965d5dbd868 |
| rev | line source |
|---|---|
|
180
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
1 ;; advice to prevent ido from using flex matches on huge lists of files |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
2 ;; with enough characters typed and blocking for an absurd amount of time |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
3 ;; after a stupid typo |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
4 ;; The value af-ido-flex-fuzzy-limit is the maximum value of the product |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
5 ;; of the number of characters the user has entered and the number of |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
6 ;; options in the ido list. |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
7 ;; The default value was determined experimentally and seemed to be |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
8 ;; the boundary of sane wait times when this was written. |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
9 (defvar af-ido-flex-fuzzy-limit (* 2000 5)) |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
10 (defadvice ido-set-matches-1 (around my-ido-set-matches-1 activate) |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
11 "Conditionally disable flex matching if the list is huge. |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
12 |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
13 This is useful because when the ido list is huge, ido flex matching |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
14 spends an eternity in a regex if you make a typo." |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
15 (let ((ido-enable-flex-matching (< (* (length (ad-get-arg 0)) (length ido-text)) |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
16 af-ido-flex-fuzzy-limit))) |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
17 ad-do-it)) |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
18 |
|
cd4e645d1207
emacs localfuncs: add advice for ido to avoid blocking in flex matching
Augie Fackler <durin42@gmail.com>
parents:
158
diff
changeset
|
19 ;; Generic repository differ. Requires textmate.el and mercurial.el. |
|
158
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
20 (defun af-generic-diff-repo () |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
21 (interactive) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
22 (let ((root (textmate-project-root))) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
23 (cd root) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
24 (hg-view-output |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
25 ((format "project diff for %s" root)) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
26 (call-process (textmate-project-root-type root) nil t nil "diff") |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
27 (diff-mode) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
28 (setq diff (not (= (point-min) (point-max)))) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
29 (font-lock-fontify-buffer) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
30 (cd root)))) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
31 (global-set-key [(control c)(t)(=)] 'af-generic-diff-repo) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
32 (global-set-key [(control c)(d)] 'af-generic-diff-repo) |
|
36a4e4b0f9c3
localfuncs: smart multi-vcs diff command
Augie Fackler <durin42@gmail.com>
parents:
141
diff
changeset
|
33 |
|
89
f34d90569fdc
Add a file for local functions not yet extracted into a module. Includes a function to run pyflakes on the current buffer.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
34 (defun pyflakes-this-buffer () |
|
f34d90569fdc
Add a file for local functions not yet extracted into a module. Includes a function to run pyflakes on the current buffer.
Augie Fackler <durin42@gmail.com>
parents:
diff
changeset
|
35 (interactive) |
|
91
075b45c5aecc
cd to the file dir before running pyflakes to make output less verbose.
Augie Fackler <durin42@gmail.com>
parents:
89
diff
changeset
|
36 (compilation-start (concat "cd " |
|
075b45c5aecc
cd to the file dir before running pyflakes to make output less verbose.
Augie Fackler <durin42@gmail.com>
parents:
89
diff
changeset
|
37 (file-name-directory buffer-file-name) |
|
96
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
38 "; pyflakes " (file-name-nondirectory |
|
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
39 buffer-file-name)) |
|
91
075b45c5aecc
cd to the file dir before running pyflakes to make output less verbose.
Augie Fackler <durin42@gmail.com>
parents:
89
diff
changeset
|
40 nil |
|
075b45c5aecc
cd to the file dir before running pyflakes to make output less verbose.
Augie Fackler <durin42@gmail.com>
parents:
89
diff
changeset
|
41 (lambda (mode) "*pyflakes*"))) |
|
96
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
42 |
|
188
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
43 (defun hg-check-code () |
|
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
44 (interactive) |
|
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
45 (textmate-start-compile-in-root "python contrib/check-code.py `hg man`" |
|
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
46 nil |
|
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
47 '(lambda (x) "*check-code*") )) |
|
e77c01b7b0f4
localfuncs: add tool for running check-code on hg
Augie Fackler <durin42@gmail.com>
parents:
180
diff
changeset
|
48 |
|
96
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
49 (defun fullscreen () |
|
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
50 (interactive) |
|
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
51 (set-frame-parameter nil 'fullscreen |
|
0eabfd7a8ffa
Add a fullscreen function, cleanup.
Augie Fackler <durin42@gmail.com>
parents:
91
diff
changeset
|
52 (if (frame-parameter nil 'fullscreen) nil 'fullboth))) |
|
117
67bfc48b2a61
Function for removing a file from Mercurial.
Augie Fackler <durin42@gmail.com>
parents:
98
diff
changeset
|
53 |
|
67bfc48b2a61
Function for removing a file from Mercurial.
Augie Fackler <durin42@gmail.com>
parents:
98
diff
changeset
|
54 |
|
67bfc48b2a61
Function for removing a file from Mercurial.
Augie Fackler <durin42@gmail.com>
parents:
98
diff
changeset
|
55 (defun hg-rm-this-file () |
|
67bfc48b2a61
Function for removing a file from Mercurial.
Augie Fackler <durin42@gmail.com>
parents:
98
diff
changeset
|
56 (interactive) |
|
124
2ae20e96f6c0
Should really shell quote this arg.
Augie Fackler <durin42@gmail.com>
parents:
117
diff
changeset
|
57 (shell-command-to-string (concat "hg rm " (shell-quote-argument buffer-file-name)))) |
|
125
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
58 |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
59 ;; Lifted from http://code.google.com/p/ergoemacs/ |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
60 (defun select-text-in-quote () |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
61 "Select text between the nearest left and right delimiters. |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
62 Delimiters are paired characters: ()[]<>«»“”‘’「」, including \"\"." |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
63 (interactive) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
64 (let (b1 b2) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
65 (skip-chars-backward "^<>(“{[「«\"‘") |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
66 (setq b1 (point)) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
67 (skip-chars-forward "^<>)”}]」»\"’") |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
68 (setq b2 (point)) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
69 (set-mark b1) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
70 ) |
|
15bcc3e0afeb
Function for selecting text inside of a quote pair.
Augie Fackler <durin42@gmail.com>
parents:
124
diff
changeset
|
71 ) |
| 126 | 72 |
| 73 ;; Most of this was extracted from show-paren-function in paren.el from an emacs 23 nightly | |
| 74 ;; Also, it seems like this really ought to be builtin, but I can't find it. | |
| 75 (defun bounce-to-other-paren () | |
| 76 (interactive) | |
| 77 (let ((oldpos (point)) | |
| 78 (dir (cond ((eq (syntax-class (syntax-after (1- (point)))) 5) -1) | |
| 79 ((eq (syntax-class (syntax-after (point))) 4) 1))) | |
| 80 pos mismatch face) | |
| 81 ;; | |
| 82 ;; Find the other end of the sexp. | |
| 83 (when dir | |
| 84 (save-excursion | |
| 85 (save-restriction | |
| 86 ;; Determine the range within which to look for a match. | |
| 87 (when blink-matching-paren-distance | |
| 88 (narrow-to-region | |
| 89 (max (point-min) (- (point) blink-matching-paren-distance)) | |
| 90 (min (point-max) (+ (point) blink-matching-paren-distance)))) | |
| 91 ;; Scan across one sexp within that range. | |
| 92 ;; Errors or nil mean there is a mismatch. | |
| 93 (condition-case () | |
| 94 (setq pos (scan-sexps (point) dir)) | |
| 95 (error (setq pos t mismatch t))) | |
| 96 ;; Move back the other way and verify we get back to the | |
| 97 ;; starting point. If not, these two parens don't really match. | |
| 98 ;; Maybe the one at point is escaped and doesn't really count. | |
| 99 (when (integerp pos) | |
| 100 (unless (condition-case () | |
| 101 (eq (point) (scan-sexps pos (- dir))) | |
| 102 (error nil)) | |
| 103 (setq pos nil))) | |
| 104 ))) | |
| 105 ;; Highlight the other end of the sexp, or unhighlight if none. | |
| 106 (if (and pos (integerp pos)) | |
| 107 (goto-char pos) | |
| 108 (message "No matching other paren found.") | |
| 109 ))) |