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