rev |
line source |
yuuji@23
|
1 ;;; -*- Emacs-Lisp -*-
|
yuuji@23
|
2 ;;; YaTeX library of general functions.
|
yuuji@23
|
3 ;;; yatexlib.el
|
yuuji@23
|
4 ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
|
yuuji@51
|
5 ;;; Last modified Wed Dec 21 05:58:06 1994 on landcruiser
|
yuuji@23
|
6 ;;; $Id$
|
yuuji@23
|
7
|
yuuji@23
|
8 ;;;###autoload
|
yuuji@23
|
9 (defun YaTeX-search-active-forward (string cmntrx &optional bound err cnt func)
|
yuuji@23
|
10 "Search STRING which is not commented out by CMNTRX.
|
yuuji@23
|
11 Optional arguments after BOUND, ERR, CNT are passed literally to search-forward
|
yuuji@23
|
12 or search-backward.
|
yuuji@23
|
13 Optional sixth argument FUNC changes search-function."
|
yuuji@49
|
14 (let ((sfunc (or func 'search-forward)) found md)
|
yuuji@23
|
15 (while (and (prog1
|
yuuji@23
|
16 (setq found (funcall sfunc string bound err cnt))
|
yuuji@23
|
17 (setq md (match-data)))
|
yuuji@23
|
18 (or
|
yuuji@23
|
19 (YaTeX-in-verb-p (match-beginning 0))
|
yuuji@23
|
20 (save-excursion
|
yuuji@23
|
21 (beginning-of-line)
|
yuuji@23
|
22 (re-search-forward cmntrx (match-beginning 0) t)))))
|
yuuji@23
|
23 (store-match-data md)
|
yuuji@23
|
24 found)
|
yuuji@23
|
25 )
|
yuuji@23
|
26
|
yuuji@23
|
27 (defun YaTeX-re-search-active-forward (regexp cmntrx &optional bound err cnt)
|
yuuji@23
|
28 "Search REGEXP backward which is not commented out by regexp CMNTRX.
|
yuuji@23
|
29 See also YaTeX-search-active-forward."
|
yuuji@23
|
30 (YaTeX-search-active-forward regexp cmntrx bound err cnt 're-search-forward)
|
yuuji@23
|
31 )
|
yuuji@23
|
32 (defun YaTeX-search-active-backward (string cmntrx &optional bound err cnt)
|
yuuji@23
|
33 "Search STRING backward which is not commented out by regexp CMNTRX.
|
yuuji@23
|
34 See also YaTeX-search-active-forward."
|
yuuji@23
|
35 (YaTeX-search-active-forward string cmntrx bound err cnt 'search-backward)
|
yuuji@23
|
36 )
|
yuuji@23
|
37 (defun YaTeX-re-search-active-backward (regexp cmntrx &optional bound err cnt)
|
yuuji@23
|
38 "Search REGEXP backward which is not commented out by regexp CMNTRX.
|
yuuji@23
|
39 See also YaTeX-search-active-forward."
|
yuuji@23
|
40 (YaTeX-search-active-forward regexp cmntrx bound err cnt 're-search-backward)
|
yuuji@23
|
41 )
|
yuuji@23
|
42
|
yuuji@23
|
43
|
yuuji@23
|
44 ;;;###autoload
|
yuuji@23
|
45 (defun YaTeX-switch-to-buffer (file &optional setbuf)
|
yuuji@23
|
46 "Switch to buffer if buffer exists, find file if not.
|
yuuji@23
|
47 Optional second arg SETBUF t make use set-buffer instead of switch-to-buffer."
|
yuuji@23
|
48 (interactive "Fswitch to file: ")
|
yuuji@23
|
49 (let (buf)
|
yuuji@51
|
50 (if (setq buf (get-file-buffer file))
|
yuuji@23
|
51 (progn
|
yuuji@23
|
52 (funcall (if setbuf 'set-buffer 'switch-to-buffer)
|
yuuji@51
|
53 (get-file-buffer file))
|
yuuji@23
|
54 buf)
|
yuuji@23
|
55 (if (file-exists-p file)
|
yuuji@51
|
56 (or ;find-file returns nil but set current-buffer...
|
yuuji@51
|
57 (funcall (if setbuf 'find-file-noselect 'find-file) file)
|
yuuji@51
|
58 (current-buffer))
|
yuuji@23
|
59 (message "%s was not found in this directory." file)
|
yuuji@23
|
60 nil)))
|
yuuji@23
|
61 )
|
yuuji@23
|
62
|
yuuji@23
|
63 ;;;###autoload
|
yuuji@23
|
64 (defun YaTeX-switch-to-buffer-other-window (file)
|
yuuji@23
|
65 "Switch to buffer if buffer exists, find file if not."
|
yuuji@23
|
66 (interactive "Fswitch to file: ")
|
yuuji@51
|
67 (if (get-file-buffer file)
|
yuuji@51
|
68 (progn (switch-to-buffer-other-window (get-file-buffer file)) t)
|
yuuji@23
|
69 (if (file-exists-p file)
|
yuuji@23
|
70 (progn (find-file-other-window file) t)
|
yuuji@23
|
71 (message "%s was not found in this directory." file)
|
yuuji@23
|
72 nil))
|
yuuji@23
|
73 )
|
yuuji@23
|
74
|
yuuji@23
|
75 (defun YaTeX-replace-format-sub (string format repl)
|
yuuji@23
|
76 (let ((beg (or (string-match (concat "^\\(%" format "\\)") string)
|
yuuji@23
|
77 (string-match (concat "[^%]\\(%" format "\\)") string)))
|
yuuji@23
|
78 (len (length format)))
|
yuuji@23
|
79 (if (null beg) string ;no conversion
|
yuuji@23
|
80 (concat
|
yuuji@23
|
81 (substring string 0 (match-beginning 1)) repl
|
yuuji@23
|
82 (substring string (match-end 1)))))
|
yuuji@23
|
83 )
|
yuuji@23
|
84
|
yuuji@23
|
85 ;;;###autoload
|
yuuji@23
|
86 (defun YaTeX-replace-format (string format repl)
|
yuuji@23
|
87 "In STRING, replace first appearance of FORMAT to REPL as if
|
yuuji@23
|
88 function `format' does. FORMAT does not contain `%'"
|
yuuji@23
|
89 (let ((ans string))
|
yuuji@23
|
90 (while (not (string=
|
yuuji@23
|
91 ans (setq string (YaTeX-replace-format-sub ans format repl))))
|
yuuji@23
|
92 (setq ans string))
|
yuuji@23
|
93 string)
|
yuuji@23
|
94 )
|
yuuji@23
|
95
|
yuuji@23
|
96 ;;;###autoload
|
yuuji@23
|
97 (defun YaTeX-replace-format-args (string &rest args)
|
yuuji@23
|
98 "Translate the argument mark #1, #2, ... #n in the STRING into the
|
yuuji@23
|
99 corresponding real arguments ARGS."
|
yuuji@23
|
100 (let ((argp 1))
|
yuuji@23
|
101 (while args
|
yuuji@23
|
102 (setq string
|
yuuji@23
|
103 (YaTeX-replace-format string (int-to-string argp) (car args)))
|
yuuji@23
|
104 (setq args (cdr args) argp (1+ argp))))
|
yuuji@23
|
105 string
|
yuuji@23
|
106 )
|
yuuji@23
|
107
|
yuuji@23
|
108 ;;;###autoload
|
yuuji@23
|
109 (defun rindex (string char)
|
yuuji@23
|
110 (let ((pos (1- (length string)))(index -1))
|
yuuji@23
|
111 (while (>= pos 0)
|
yuuji@23
|
112 (cond
|
yuuji@23
|
113 ((= (aref string pos) char)
|
yuuji@23
|
114 (setq index pos) (setq pos -1))
|
yuuji@23
|
115 (t (setq pos (1- pos))))
|
yuuji@23
|
116 )
|
yuuji@23
|
117 index)
|
yuuji@23
|
118 )
|
yuuji@23
|
119
|
yuuji@23
|
120 ;;;###autoload
|
yuuji@23
|
121 (defun YaTeX-showup-buffer (buffer &optional func select)
|
yuuji@23
|
122 "Make BUFFER show up in certain window (but current window)
|
yuuji@23
|
123 that gives the maximum value by the FUNC. FUNC should take an argument
|
yuuji@23
|
124 of its window object. Non-nil for optional third argument SELECT selects
|
yuuji@49
|
125 that window. This function never selects minibuffer window."
|
yuuji@47
|
126 (or (and (if YaTeX-emacs-19
|
yuuji@47
|
127 (get-buffer-window buffer t)
|
yuuji@47
|
128 (get-buffer-window buffer))
|
yuuji@47
|
129 (progn
|
yuuji@47
|
130 (if select
|
yuuji@51
|
131 (goto-buffer-window buffer))
|
yuuji@47
|
132 t))
|
yuuji@23
|
133 (let ((window (selected-window))
|
yuuji@23
|
134 (wlist (YaTeX-window-list)) win w (x 0))
|
yuuji@23
|
135 (cond
|
yuuji@23
|
136 ((> (length wlist) 2)
|
yuuji@23
|
137 (if func
|
yuuji@23
|
138 (while wlist
|
yuuji@23
|
139 (setq w (car wlist))
|
yuuji@23
|
140 (if (and (not (eq window w))
|
yuuji@23
|
141 (> (funcall func w) x))
|
yuuji@23
|
142 (setq win w x (funcall func w)))
|
yuuji@23
|
143 (setq wlist (cdr wlist)))
|
yuuji@23
|
144 (setq win (get-lru-window)))
|
yuuji@23
|
145 (select-window win)
|
yuuji@23
|
146 (switch-to-buffer buffer)
|
yuuji@23
|
147 (or select (select-window window)))
|
yuuji@23
|
148 ((= (length wlist) 2)
|
yuuji@49
|
149 ;(other-window 1);This does not work properly on Emacs-19
|
yuuji@49
|
150 (select-window (get-lru-window))
|
yuuji@23
|
151 (switch-to-buffer buffer)
|
yuuji@23
|
152 (or select (select-window window)))
|
yuuji@23
|
153 (t ;if one-window
|
yuuji@23
|
154 (cond
|
yuuji@47
|
155 ((and YaTeX-emacs-19 (get-buffer-window buffer t))
|
yuuji@47
|
156 nil) ;if found in other frame
|
yuuji@23
|
157 (YaTeX-default-pop-window-height
|
yuuji@51
|
158 (split-window-calculate-height YaTeX-default-pop-window-height)
|
yuuji@23
|
159 (pop-to-buffer buffer)
|
yuuji@23
|
160 (or select (select-window window)))
|
yuuji@23
|
161 (t nil)))
|
yuuji@23
|
162 )))
|
yuuji@23
|
163 )
|
yuuji@23
|
164
|
yuuji@23
|
165 ;;;###autoload
|
yuuji@51
|
166 (defun split-window-calculate-height (height)
|
yuuji@51
|
167 "Split current window wight specified HEIGHT.
|
yuuji@51
|
168 If HEIGHT is number, make new window that has HEIGHT lines.
|
yuuji@51
|
169 If HEIGHT is string, make new window that occupy HEIGT % of screen height.
|
yuuji@51
|
170 Otherwise split window conventionally."
|
yuuji@51
|
171 (if (one-window-p)
|
yuuji@51
|
172 (split-window
|
yuuji@51
|
173 (selected-window)
|
yuuji@51
|
174 (max
|
yuuji@51
|
175 (min
|
yuuji@51
|
176 (- (screen-height)
|
yuuji@51
|
177 (if (numberp YaTeX-default-pop-window-height)
|
yuuji@51
|
178 (+ YaTeX-default-pop-window-height 2)
|
yuuji@51
|
179 (/ (* (screen-height)
|
yuuji@51
|
180 (string-to-int YaTeX-default-pop-window-height))
|
yuuji@51
|
181 100)))
|
yuuji@51
|
182 (- (screen-height) window-min-height 1))
|
yuuji@51
|
183 window-min-height)))
|
yuuji@51
|
184 )
|
yuuji@51
|
185
|
yuuji@51
|
186 ;;;###autoload
|
yuuji@23
|
187 (defun YaTeX-window-list ()
|
yuuji@23
|
188 (let*((curw (selected-window)) (win curw) (wlist (list curw)))
|
yuuji@23
|
189 (while (not (eq curw (setq win (next-window win))))
|
yuuji@23
|
190 (or (eq win (minibuffer-window))
|
yuuji@23
|
191 (setq wlist (cons win wlist))))
|
yuuji@23
|
192 wlist)
|
yuuji@23
|
193 )
|
yuuji@23
|
194
|
yuuji@23
|
195 ;;;###autoload
|
yuuji@23
|
196 (defun substitute-all-key-definition (olddef newdef keymap)
|
yuuji@23
|
197 "Replace recursively OLDDEF with NEWDEF for any keys in KEYMAP now
|
yuuji@23
|
198 defined as OLDDEF. In other words, OLDDEF is replaced with NEWDEF
|
yuuji@23
|
199 where ever it appears."
|
yuuji@23
|
200 (mapcar
|
yuuji@23
|
201 (function (lambda (key) (define-key keymap key newdef)))
|
yuuji@47
|
202 (where-is-internal olddef keymap))
|
yuuji@23
|
203 )
|
yuuji@23
|
204
|
yuuji@23
|
205 ;;;###autoload
|
yuuji@23
|
206 (defun YaTeX-match-string (n &optional m)
|
yuuji@23
|
207 "Return (buffer-substring (match-beginning n) (match-beginning m))."
|
yuuji@23
|
208 (if (match-beginning n)
|
yuuji@23
|
209 (buffer-substring (match-beginning n)
|
yuuji@49
|
210 (match-end (or m n))))
|
yuuji@23
|
211 )
|
yuuji@23
|
212
|
yuuji@23
|
213 ;;;###autoload
|
yuuji@23
|
214 (defun YaTeX-minibuffer-complete ()
|
yuuji@49
|
215 "Complete in minibuffer.
|
yuuji@51
|
216 If the symbol 'delim is bound and is string, its value is assumed to be
|
yuuji@49
|
217 the character class of delimiters. Completion will be performed on
|
yuuji@51
|
218 the last field separated by those delimiters.
|
yuuji@51
|
219 If the symbol 'quick is bound and is 't, when the try-completion results
|
yuuji@51
|
220 in t, exit minibuffer immediately."
|
yuuji@23
|
221 (interactive)
|
yuuji@51
|
222 (let ((md (match-data)) beg word compl
|
yuuji@51
|
223 (quick (and (boundp 'quick) (eq quick t)))
|
yuuji@51
|
224 (displist ;function to display completion-list
|
yuuji@51
|
225 (function
|
yuuji@51
|
226 (lambda ()
|
yuuji@51
|
227 (with-output-to-temp-buffer "*Completions*"
|
yuuji@51
|
228 (display-completion-list
|
yuuji@51
|
229 (all-completions word minibuffer-completion-table)))))))
|
yuuji@49
|
230 (setq beg (if (and (boundp 'delim) (stringp delim))
|
yuuji@23
|
231 (save-excursion
|
yuuji@23
|
232 (skip-chars-backward (concat "^" delim))
|
yuuji@49
|
233 (point))
|
yuuji@23
|
234 (point-min))
|
yuuji@23
|
235 word (buffer-substring beg (point-max))
|
yuuji@23
|
236 compl (try-completion word minibuffer-completion-table))
|
yuuji@23
|
237 (cond
|
yuuji@49
|
238 ((eq compl t)
|
yuuji@51
|
239 (if quick (exit-minibuffer)
|
yuuji@51
|
240 (let ((p (point)) (max (point-max)))
|
yuuji@51
|
241 (unwind-protect
|
yuuji@51
|
242 (progn
|
yuuji@51
|
243 (goto-char max)
|
yuuji@51
|
244 (insert " [Sole completion]")
|
yuuji@51
|
245 (goto-char p)
|
yuuji@51
|
246 (sit-for 1))
|
yuuji@51
|
247 (delete-region max (point-max))
|
yuuji@51
|
248 (goto-char p)))))
|
yuuji@23
|
249 ((eq compl nil)
|
yuuji@23
|
250 (ding)
|
yuuji@23
|
251 (save-excursion
|
yuuji@23
|
252 (let (p)
|
yuuji@51
|
253 (unwind-protect
|
yuuji@51
|
254 (progn
|
yuuji@51
|
255 (goto-char (setq p (point-max)))
|
yuuji@51
|
256 (insert " [No match]")
|
yuuji@51
|
257 (goto-char p)
|
yuuji@51
|
258 (sit-for 2))
|
yuuji@51
|
259 (delete-region p (point-max))))))
|
yuuji@23
|
260 ((string= compl word)
|
yuuji@51
|
261 (funcall displist))
|
yuuji@23
|
262 (t (delete-region beg (point-max))
|
yuuji@51
|
263 (insert compl)
|
yuuji@51
|
264 (if quick
|
yuuji@51
|
265 (if (eq (try-completion compl minibuffer-completion-table) t)
|
yuuji@51
|
266 (exit-minibuffer)
|
yuuji@51
|
267 (funcall displist)))))
|
yuuji@49
|
268 (store-match-data md))
|
yuuji@23
|
269 )
|
yuuji@23
|
270
|
yuuji@51
|
271 (defun YaTeX-minibuffer-quick-complete ()
|
yuuji@51
|
272 "Set 'quick to 't and call YaTeX-minibuffer-complete.
|
yuuji@51
|
273 See documentation of YaTeX-minibuffer-complete."
|
yuuji@51
|
274 (interactive)
|
yuuji@51
|
275 (let ((quick t))
|
yuuji@51
|
276 (self-insert-command 1)
|
yuuji@51
|
277 (YaTeX-minibuffer-complete)))
|
yuuji@51
|
278
|
yuuji@51
|
279 (defun foreach-buffers (pattern job)
|
yuuji@51
|
280 "For each buffer which matches with PATTERN, do JOB."
|
yuuji@51
|
281 (let ((list (buffer-list)))
|
yuuji@51
|
282 (save-excursion
|
yuuji@51
|
283 (while list
|
yuuji@51
|
284 (set-buffer (car list))
|
yuuji@51
|
285 (if (or (and (stringp pattern)
|
yuuji@51
|
286 (buffer-file-name)
|
yuuji@51
|
287 (string-match pattern (buffer-file-name)))
|
yuuji@51
|
288 (and (symbolp pattern) major-mode (eq major-mode pattern)))
|
yuuji@51
|
289 (eval job))
|
yuuji@51
|
290 (setq list (cdr list)))))
|
yuuji@51
|
291 )
|
yuuji@51
|
292
|
yuuji@51
|
293 (defun goto-buffer-window (buffer)
|
yuuji@51
|
294 "Select window which is bound to BUFFER.
|
yuuji@51
|
295 If no such window exist, switch to buffer BUFFER."
|
yuuji@51
|
296 (if (stringp buffer)
|
yuuji@51
|
297 (setq buffer (or (get-file-buffer buffer) (get-buffer buffer))))
|
yuuji@51
|
298 (if (get-buffer buffer)
|
yuuji@51
|
299 (cond
|
yuuji@51
|
300 ((get-buffer-window buffer)
|
yuuji@51
|
301 (select-window (get-buffer-window buffer)))
|
yuuji@51
|
302 ((and YaTeX-emacs-19 (get-buffer-window buffer t))
|
yuuji@51
|
303 (let*((win (get-buffer-window buffer t))
|
yuuji@51
|
304 (frame (window-frame win)))
|
yuuji@51
|
305 (select-frame frame)
|
yuuji@51
|
306 (raise-frame frame)
|
yuuji@51
|
307 (focus-frame frame)
|
yuuji@51
|
308 (select-window win)
|
yuuji@51
|
309 (set-mouse-position frame 0 0)
|
yuuji@51
|
310 (and (featurep 'windows) (fboundp 'win:adjust-window)
|
yuuji@51
|
311 (win:adjust-window))))
|
yuuji@51
|
312 (t (switch-to-buffer buffer))))
|
yuuji@51
|
313 )
|
yuuji@51
|
314
|
yuuji@51
|
315 ;; Here starts the functions which support gmhist-vs-Emacs19 compatible
|
yuuji@51
|
316 ;; reading with history.
|
yuuji@51
|
317 ;;;###autoload
|
yuuji@51
|
318 (defun completing-read-with-history
|
yuuji@51
|
319 (prompt table &optional predicate must-match initial hsym)
|
yuuji@51
|
320 "Completing read with general history: gmhist, Emacs-19."
|
yuuji@51
|
321 (let ((minibuffer-history
|
yuuji@51
|
322 (or (symbol-value hsym)
|
yuuji@51
|
323 (and (boundp 'minibuffer-history) minibuffer-history)))
|
yuuji@51
|
324 (minibuffer-history-symbol (or hsym 'minibuffer-history)))
|
yuuji@51
|
325 (prog1
|
yuuji@51
|
326 (if (fboundp 'completing-read-with-history-in)
|
yuuji@51
|
327 (completing-read-with-history-in
|
yuuji@51
|
328 minibuffer-history-symbol prompt table predicate must-match initial)
|
yuuji@51
|
329 (completing-read prompt table predicate must-match initial))
|
yuuji@51
|
330 (if (and YaTeX-emacs-19 hsym) (set hsym minibuffer-history)))))
|
yuuji@51
|
331
|
yuuji@51
|
332 ;;;###autoload
|
yuuji@51
|
333 (defun read-from-minibuffer-with-history (prompt &optional init map read hsym)
|
yuuji@51
|
334 "Read from minibuffer with general history: gmhist, Emacs-19."
|
yuuji@51
|
335 (cond
|
yuuji@51
|
336 (YaTeX-emacs-19
|
yuuji@51
|
337 (read-from-minibuffer prompt init map read hsym))
|
yuuji@51
|
338 (t
|
yuuji@51
|
339 (let ((minibuffer-history-symbol hsym))
|
yuuji@51
|
340 (read-from-minibuffer prompt init map read)))))
|
yuuji@51
|
341
|
yuuji@51
|
342 ;;;###autoload
|
yuuji@51
|
343 (defun read-string-with-history (prompt &optional init hsym)
|
yuuji@51
|
344 "Read string with history: gmhist(Emacs-18) and Emacs-19."
|
yuuji@51
|
345 (cond
|
yuuji@51
|
346 (YaTeX-emacs-19
|
yuuji@51
|
347 (read-from-minibuffer prompt init minibuffer-local-map nil hsym))
|
yuuji@51
|
348 ((featurep 'gmhist-mh)
|
yuuji@51
|
349 (read-with-history-in hsym prompt init))
|
yuuji@51
|
350 (t (read-string prompt init))))
|
yuuji@23
|
351
|
yuuji@23
|
352 (provide 'yatexlib)
|