yatex
annotate yatexenv.el @ 306:9cfc505ba6aa
Utilize M-Ret in `longtable' environment
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Wed, 20 Nov 2013 14:15:42 +0900 |
| parents | 8d3156073892 |
| children | 2a72779d9c50 |
| rev | line source |
|---|---|
| yuuji@287 | 1 ;;; yatexenv.el --- YaTeX environment-specific functions |
| yuuji@294 | 2 ;;; (c) 1994-2013 by HIROSE Yuuji.[yuuji@yatex.org] |
| yuuji@306 | 3 ;;; Last modified Wed Nov 20 14:14:39 2013 on firestorm |
| yuuji@23 | 4 ;;; $Id$ |
| yuuji@23 | 5 |
| yuuji@287 | 6 ;;; Code: |
| yuuji@23 | 7 ;;; |
| yuuji@23 | 8 ;; Functions for tabular environment |
| yuuji@23 | 9 ;;; |
| yuuji@23 | 10 |
| yuuji@23 | 11 ;; Showing the matching column of tabular environment. |
| yuuji@80 | 12 (defun YaTeX-array-what-column-internal () |
| yuuji@80 | 13 "Return the cons of matching column and its title of array environment. |
| yuuji@23 | 14 When calling from a program, make sure to be in array/tabular environment." |
| yuuji@49 | 15 (let ((p (point)) beg eot bor (nlptn "\\\\\\\\") (andptn "[^\\]&") |
| yuuji@49 | 16 (n 0) j |
| yuuji@23 | 17 (firsterr "This line might be the first row.")) |
| yuuji@23 | 18 (save-excursion |
| yuuji@23 | 19 (YaTeX-beginning-of-environment) |
| yuuji@23 | 20 (search-forward "{" p) (up-list 1) |
| yuuji@23 | 21 (search-forward "{" p) (up-list 1) |
| yuuji@23 | 22 ;;(re-search-forward andptn p) |
| yuuji@23 | 23 (while (progn (search-forward "&" p) |
| yuuji@23 | 24 (equal (char-after (1- (match-beginning 0))) ?\\ ))) |
| yuuji@23 | 25 (setq beg (1- (point))) ;beg is the point of the first & |
| yuuji@23 | 26 (or (re-search-forward nlptn p t) |
| yuuji@23 | 27 (error firsterr)) |
| yuuji@23 | 28 (setq eot (point)) ;eot is the point of the first \\ |
| yuuji@23 | 29 (goto-char p) |
| yuuji@23 | 30 (or (re-search-backward nlptn beg t) |
| yuuji@23 | 31 (error firsterr)) |
| yuuji@23 | 32 (setq bor (point)) ;bor is the beginning of this row. |
| yuuji@23 | 33 (while (< (1- (point)) p) |
| yuuji@23 | 34 (if (equal (following-char) ?&) |
| yuuji@23 | 35 (forward-char 1) |
| yuuji@23 | 36 (re-search-forward andptn nil 1)) |
| yuuji@23 | 37 (setq n (1+ n))) ;Check current column number |
| yuuji@23 | 38 (goto-char p) |
| yuuji@23 | 39 (cond ;Start searching \multicolumn{N} |
| yuuji@23 | 40 ((> n 1) |
| yuuji@23 | 41 (re-search-backward andptn) ;Sure to find! |
| yuuji@23 | 42 (while (re-search-backward "\\\\multicolumn{\\([0-9]+\\)}" bor t) |
| yuuji@23 | 43 (setq n (+ n (string-to-int |
| yuuji@23 | 44 (buffer-substring (match-beginning 1) |
| yuuji@23 | 45 (match-end 1))) |
| yuuji@23 | 46 -1))))) |
| yuuji@23 | 47 (message "%s" n) |
| yuuji@23 | 48 (goto-char (1- beg)) |
| yuuji@59 | 49 (beginning-of-line) |
| yuuji@49 | 50 (setq j n) |
| yuuji@49 | 51 (while (> j 1) |
| yuuji@49 | 52 (or (re-search-forward andptn p nil) |
| yuuji@49 | 53 (error "This column exceeds the limit.")) |
| yuuji@49 | 54 (setq j (1- j))) |
| yuuji@49 | 55 (skip-chars-forward "\\s ") |
| yuuji@80 | 56 (list n |
| yuuji@80 | 57 (buffer-substring |
| yuuji@80 | 58 (point) |
| yuuji@80 | 59 (progn |
| yuuji@80 | 60 (re-search-forward (concat andptn "\\|" nlptn) eot) |
| yuuji@80 | 61 (goto-char (match-beginning 0)) |
| yuuji@80 | 62 (if (looking-at andptn) |
| yuuji@80 | 63 (forward-char 1)) |
| yuuji@80 | 64 (skip-chars-backward "\\s ") |
| yuuji@80 | 65 (point))))))) |
| yuuji@80 | 66 |
| yuuji@80 | 67 (defun YaTeX-array-what-column () |
| yuuji@80 | 68 "Show matching column title of array environment. |
| yuuji@80 | 69 When calling from a program, make sure to be in array/tabular environment." |
| yuuji@80 | 70 (apply 'message |
| yuuji@80 | 71 "This is the column(#%d) of: %s" |
| yuuji@80 | 72 (YaTeX-array-what-column-internal))) |
| yuuji@23 | 73 |
| yuuji@23 | 74 ;;;###autoload |
| yuuji@23 | 75 (defun YaTeX-what-column () |
| yuuji@23 | 76 "Show which kind of column the current position is belonging to." |
| yuuji@23 | 77 (interactive) |
| yuuji@23 | 78 (cond |
| yuuji@23 | 79 ((YaTeX-quick-in-environment-p '("tabular" "tabular*" "array" "array*")) |
| yuuji@23 | 80 (YaTeX-array-what-column)) |
| yuuji@80 | 81 (t (message "Not in array/tabular environment.")))) |
| yuuji@23 | 82 |
| yuuji@80 | 83 (defun YaTeX-tabular-parse-format-count-cols (beg end) |
| yuuji@80 | 84 (goto-char beg) |
| yuuji@80 | 85 (let (elt (cols 0)) |
| yuuji@80 | 86 (while (< (point) end) |
| yuuji@31 | 87 (setq elt (following-char)) |
| yuuji@31 | 88 (cond |
| yuuji@31 | 89 ((string-match (char-to-string elt) "clr") ;normal indicators. |
| yuuji@31 | 90 (setq cols (1+ cols)) |
| yuuji@31 | 91 (forward-char 1)) |
| yuuji@31 | 92 ((equal elt ?|) ;vertical |
| yuuji@31 | 93 (forward-char 1)) |
| yuuji@31 | 94 ((string-match (char-to-string elt) "p@") ;p or @ expression |
| yuuji@31 | 95 (setq cols (+ (if (eq elt ?p) 1 0) cols)) |
| yuuji@80 | 96 ;;(skip-chars-forward "^{" p) |
| yuuji@80 | 97 (skip-chars-forward "^{" end) |
| yuuji@56 | 98 (forward-list 1)) |
| yuuji@80 | 99 ((equal elt ?*) ;*{N}{EXP} -> Repeat EXP N times |
| yuuji@80 | 100 (skip-chars-forward "^{" end) |
| yuuji@80 | 101 (setq cols (* (string-to-int |
| yuuji@80 | 102 (buffer-substring |
| yuuji@80 | 103 (1+ (point)) |
| yuuji@80 | 104 (progn (forward-list 1) (1- (point))))) |
| yuuji@80 | 105 (YaTeX-tabular-parse-format-count-cols |
| yuuji@80 | 106 (progn (skip-chars-forward "^{" end) (1+ (point))) |
| yuuji@80 | 107 (progn (forward-list 1) (1- (point))))))) |
| yuuji@56 | 108 (t (forward-char 1)) ;unknown char |
| yuuji@56 | 109 )) |
| yuuji@80 | 110 cols)) |
| yuuji@80 | 111 |
| yuuji@80 | 112 (defun YaTeX-tabular-parse-format (&optional type) |
| yuuji@80 | 113 "Parse `tabular' format. |
| yuuji@80 | 114 Return the list of (No.ofCols PointEndofFormat)" |
| yuuji@80 | 115 (let ((p (point)) boform eoform (cols 0)) |
| yuuji@80 | 116 (save-excursion |
| yuuji@80 | 117 (if (null (YaTeX-beginning-of-environment t)) |
| yuuji@80 | 118 (error "Beginning of tabular not found.")) |
| yuuji@80 | 119 (skip-chars-forward "^{") |
| yuuji@80 | 120 (forward-list 1) |
| yuuji@80 | 121 (cond |
| yuuji@80 | 122 ((eq type 'tabular*) |
| yuuji@80 | 123 (skip-chars-forward "^{") |
| yuuji@80 | 124 (forward-list 1))) |
| yuuji@80 | 125 (skip-chars-forward "^{" p) |
| yuuji@80 | 126 (if (/= (following-char) ?\{) (error "Tabular format not found.")) |
| yuuji@80 | 127 (setq boform (1+ (point)) |
| yuuji@80 | 128 eoform (progn (forward-list 1) (1- (point)))) |
| yuuji@80 | 129 (if (> eoform p) (error "Non-terminated tabular format.")) |
| yuuji@80 | 130 (goto-char boform) |
| yuuji@80 | 131 (setq cols |
| yuuji@80 | 132 (cond |
| yuuji@80 | 133 ((eq type 'alignat) |
| yuuji@80 | 134 (max |
| yuuji@80 | 135 1 |
| yuuji@250 | 136 (* 2 (string-to-int |
| yuuji@250 | 137 (buffer-substring |
| yuuji@250 | 138 (point) |
| yuuji@250 | 139 (progn (up-list -1) (forward-list 1) (1- (point)))))))) |
| yuuji@80 | 140 (t |
| yuuji@80 | 141 (YaTeX-tabular-parse-format-count-cols (point) eoform)))) |
| yuuji@80 | 142 (list cols (1+ eoform))))) |
| yuuji@80 | 143 |
| yuuji@31 | 144 ;; Insert & |
| yuuji@80 | 145 (defun YaTeX-intelligent-newline-tabular (&optional type) |
| yuuji@31 | 146 "Parse current tabular format and insert that many `&'s." |
| yuuji@80 | 147 (let*((p (point)) (format (YaTeX-tabular-parse-format type)) |
| yuuji@31 | 148 (cols (car format)) (beg (car (cdr format))) |
| yuuji@31 | 149 space hline) |
| yuuji@58 | 150 (cond |
| yuuji@58 | 151 ((search-backward "&" beg t) |
| yuuji@58 | 152 (goto-char p) |
| yuuji@58 | 153 (setq hline (search-backward "\\hline" beg t)) |
| yuuji@58 | 154 (setq space (if (search-backward "\t&" beg t) "\t" " ")) |
| yuuji@58 | 155 (goto-char p)) |
| yuuji@58 | 156 (t ;;(insert "\\hline\n") |
| yuuji@58 | 157 (setq space " "))) |
| yuuji@31 | 158 (goto-char p) |
| yuuji@31 | 159 (while (> (1- cols) 0) |
| yuuji@31 | 160 (insert "&" space) |
| yuuji@31 | 161 (setq cols (1- cols))) |
| yuuji@31 | 162 (insert "\\\\") |
| yuuji@31 | 163 (if hline (insert " \\hline")) |
| yuuji@58 | 164 (goto-char p) |
| yuuji@80 | 165 (YaTeX-indent-line))) |
| yuuji@31 | 166 |
| yuuji@31 | 167 (defun YaTeX-intelligent-newline-tabular* () |
| yuuji@31 | 168 "Parse current tabular* format and insert that many `&'s." |
| yuuji@80 | 169 (YaTeX-intelligent-newline-tabular 'tabular*)) |
| yuuji@31 | 170 |
| yuuji@31 | 171 (fset 'YaTeX-intelligent-newline-array 'YaTeX-intelligent-newline-tabular) |
| yuuji@80 | 172 (fset 'YaTeX-intelligent-newline-supertabular 'YaTeX-intelligent-newline-tabular) |
| yuuji@306 | 173 (fset 'YaTeX-intelligent-newline-longtable 'YaTeX-intelligent-newline-tabular) |
| yuuji@80 | 174 |
| yuuji@80 | 175 (defun YaTeX-intelligent-newline-align () |
| yuuji@80 | 176 "Intelligent newline function for align. |
| yuuji@80 | 177 Count the number of & in the first align line and insert that many &s." |
| yuuji@250 | 178 (let*((p (point)) (amps 0)) |
| yuuji@250 | 179 (if (string-match "alignat" env) |
| yuuji@250 | 180 (setq amps (1- (car (YaTeX-tabular-parse-format 'alignat)))) |
| yuuji@250 | 181 (save-excursion |
| yuuji@250 | 182 (YaTeX-beginning-of-environment) |
| yuuji@250 | 183 (catch 'done |
| yuuji@250 | 184 (while (YaTeX-re-search-active-forward |
| yuuji@250 | 185 "\\(&\\)\\|\\(\\\\\\\\\\)" YaTeX-comment-prefix p t) |
| yuuji@250 | 186 (if (match-beginning 1) (setq amps (1+ amps)) (throw 'done t)))))) |
| yuuji@80 | 187 (save-excursion |
| yuuji@250 | 188 (forward-line -1) |
| yuuji@250 | 189 (skip-chars-forward " \t") |
| yuuji@250 | 190 (or (prog1 (looking-at "\\\\begin{") (end-of-line)) |
| yuuji@250 | 191 (save-excursion |
| yuuji@250 | 192 (skip-chars-backward " \t") |
| yuuji@250 | 193 (and (= (preceding-char) ?\\) (= (char-after (- (point) 2)) ?\\))) |
| yuuji@250 | 194 (insert "\\\\"))) |
| yuuji@80 | 195 (save-excursion |
| yuuji@250 | 196 (while (>= (setq amps (1- amps)) 0) |
| yuuji@236 | 197 (insert "& "))) |
| yuuji@80 | 198 (YaTeX-indent-line))) |
| yuuji@80 | 199 |
| yuuji@80 | 200 (mapcar |
| yuuji@80 | 201 '(lambda (s) |
| yuuji@80 | 202 (fset (intern (concat "YaTeX-intelligent-newline-" |
| yuuji@80 | 203 (symbol-name s))) |
| yuuji@80 | 204 'YaTeX-intelligent-newline-align)) |
| yuuji@80 | 205 '(align* flalign flalign* matrix pmatrix bmatrix Bmatrix vmatrix Vmatrix |
| yuuji@250 | 206 cases eqnarray eqnarray* alignat alignat*)) |
| yuuji@31 | 207 |
| yuuji@23 | 208 ;;; |
| yuuji@23 | 209 ;; Functions for tabbing environment |
| yuuji@23 | 210 ;;; |
| yuuji@23 | 211 (defun YaTeX-intelligent-newline-tabbing () |
| yuuji@23 | 212 "Check the number of \\= in the first line and insert that many \\>." |
| yuuji@23 | 213 (let ((p (point)) begenv tabcount) |
| yuuji@23 | 214 (save-excursion |
| yuuji@23 | 215 (YaTeX-beginning-of-environment) |
| yuuji@23 | 216 (setq begenv (point-end-of-line)) |
| yuuji@23 | 217 (if (YaTeX-search-active-forward "\\\\" YaTeX-comment-prefix p t) |
| yuuji@23 | 218 (progn |
| yuuji@23 | 219 (setq tabcount 0) |
| yuuji@23 | 220 (while (> (point) begenv) |
| yuuji@23 | 221 (if (search-backward "\\=" begenv 1) |
| yuuji@23 | 222 (setq tabcount (1+ tabcount))))))) |
| yuuji@23 | 223 (YaTeX-indent-line) |
| yuuji@23 | 224 (if tabcount |
| yuuji@23 | 225 (progn |
| yuuji@23 | 226 (save-excursion |
| yuuji@23 | 227 (while (> tabcount 0) |
| yuuji@23 | 228 (insert "\\>\t") |
| yuuji@23 | 229 (setq tabcount (1- tabcount)))) |
| yuuji@23 | 230 (forward-char 2)) |
| yuuji@58 | 231 (insert "\\= \\\\") |
| yuuji@233 | 232 (forward-char -5)))) |
| yuuji@23 | 233 |
| yuuji@23 | 234 ;;; |
| yuuji@23 | 235 ;; Functions for itemize/enumerate/list environments |
| yuuji@23 | 236 ;;; |
| yuuji@23 | 237 |
| yuuji@23 | 238 (defun YaTeX-intelligent-newline-itemize () |
| yuuji@23 | 239 "Insert '\\item '." |
| yuuji@58 | 240 (insert "\\item ") |
| yuuji@233 | 241 (YaTeX-indent-line)) |
| yuuji@233 | 242 |
| yuuji@23 | 243 (fset 'YaTeX-intelligent-newline-enumerate 'YaTeX-intelligent-newline-itemize) |
| yuuji@23 | 244 (fset 'YaTeX-intelligent-newline-list 'YaTeX-intelligent-newline-itemize) |
| yuuji@23 | 245 |
| yuuji@23 | 246 (defun YaTeX-intelligent-newline-description () |
| yuuji@23 | 247 (insert "\\item[] ") |
| yuuji@23 | 248 (forward-char -2) |
| yuuji@233 | 249 (YaTeX-indent-line)) |
| yuuji@23 | 250 |
| yuuji@64 | 251 (defun YaTeX-intelligent-newline-thebibliography () |
| yuuji@64 | 252 "Insert '\\bibitem '." |
| yuuji@64 | 253 (YaTeX-indent-line) |
| yuuji@64 | 254 (YaTeX-make-section nil nil nil "bibitem") |
| yuuji@233 | 255 (YaTeX-indent-line)) |
| yuuji@233 | 256 |
| yuuji@23 | 257 ;;; |
| yuuji@234 | 258 ;; For document environment |
| yuuji@234 | 259 ;;; |
| yuuji@234 | 260 (defun YaTeX-intelligent-newline-document () |
| yuuji@239 | 261 "New paragraph by null line or `\\par'." |
| yuuji@257 | 262 (if (< (count-lines |
| yuuji@257 | 263 (or (get 'YaTeX-inner-environment 'point) |
| yuuji@257 | 264 (max 1 (- (point) 17))) ;"\begin{document}\n" == 17 |
| yuuji@257 | 265 (point)) |
| yuuji@257 | 266 2) |
| yuuji@257 | 267 nil |
| yuuji@257 | 268 (if (save-excursion (re-search-backward "\\\\par\\>" nil t)) |
| yuuji@257 | 269 (progn |
| yuuji@257 | 270 (YaTeX-indent-line) |
| yuuji@257 | 271 (insert "\\par"))) |
| yuuji@257 | 272 (newline)) |
| yuuji@239 | 273 (YaTeX-indent-line)) |
| yuuji@234 | 274 |
| yuuji@234 | 275 ;;; |
| yuuji@23 | 276 ;; Intelligent newline |
| yuuji@23 | 277 ;;; |
| yuuji@23 | 278 ;;;###autoload |
| yuuji@23 | 279 (defun YaTeX-intelligent-newline (arg) |
| yuuji@23 | 280 "Insert newline and environment-specific entry. |
| yuuji@23 | 281 `\\item' for some itemizing environment, |
| yuuji@23 | 282 `\\> \\> \\' for tabbing environemnt, |
| yuuji@23 | 283 `& & \\ \hline' for tabular environment." |
| yuuji@23 | 284 (interactive "P") |
| yuuji@61 | 285 (let*(env func) |
| yuuji@61 | 286 (end-of-line) |
| yuuji@61 | 287 (setq env (YaTeX-inner-environment)) |
| yuuji@23 | 288 (if arg (setq env (YaTeX-read-environment "For what environment? "))) |
| yuuji@23 | 289 (setq func (intern-soft (concat "YaTeX-intelligent-newline-" env))) |
| yuuji@23 | 290 (end-of-line) |
| yuuji@23 | 291 (newline) |
| yuuji@58 | 292 (undo-boundary) |
| yuuji@23 | 293 (if (and env func (fboundp func)) |
| yuuji@80 | 294 (funcall func)))) |
| yuuji@53 | 295 |
| yuuji@53 | 296 ;;; |
| yuuji@53 | 297 ;; Environment-specific line indenting functions |
| yuuji@53 | 298 ;;; |
| yuuji@53 | 299 ;;;###autoload |
| yuuji@53 | 300 (defun YaTeX-indent-line-equation () |
| yuuji@53 | 301 "Indent a line in equation family." |
| yuuji@53 | 302 (let ((p (point)) (l-r 0) right-p peol depth (mp YaTeX-environment-indent)) |
| yuuji@53 | 303 (if (save-excursion |
| yuuji@53 | 304 (beginning-of-line) |
| yuuji@53 | 305 (skip-chars-forward " \t") |
| yuuji@53 | 306 (looking-at "\\\\right\\b")) |
| yuuji@53 | 307 (progn (YaTeX-reindent |
| yuuji@53 | 308 (save-excursion (YaTeX-goto-corresponding-leftright) |
| yuuji@73 | 309 (- (current-column) 0)))) |
| yuuji@53 | 310 (save-excursion |
| yuuji@53 | 311 (forward-line -1) |
| yuuji@53 | 312 (while (and (not (bobp)) (YaTeX-on-comment-p)) |
| yuuji@53 | 313 (forward-line -1)) |
| yuuji@53 | 314 ;;(beginning-of-line) ;must be unnecessary |
| yuuji@53 | 315 (skip-chars-forward " \t") |
| yuuji@53 | 316 (if (eolp) (error "Math-environment can't have a null line!!")) |
| yuuji@53 | 317 (setq depth (current-column) |
| yuuji@53 | 318 peol (point-end-of-line)) |
| yuuji@53 | 319 (while (re-search-forward |
| yuuji@53 | 320 "\\\\\\(\\(left\\)\\|\\(right\\)\\)\\b" peol t) |
| yuuji@53 | 321 (setq l-r (+ l-r (if (match-beginning 2) 1 -1)))) |
| yuuji@53 | 322 (cond |
| yuuji@53 | 323 ((progn (beginning-of-line) |
| yuuji@53 | 324 (re-search-forward "\\\\\\\\\\s *$" (point-end-of-line) t)) |
| yuuji@53 | 325 ;;If previous line has `\\', this indentation is always normal. |
| yuuji@53 | 326 (setq depth (+ (YaTeX-current-indentation) mp))) |
| yuuji@53 | 327 ((> l-r 0) |
| yuuji@53 | 328 (beginning-of-line) |
| yuuji@68 | 329 (search-forward "\\left" peol nil l-r) |
| yuuji@53 | 330 (goto-char (1+ (match-beginning 0))) |
| yuuji@53 | 331 (setq depth (current-column))) |
| yuuji@53 | 332 ((< l-r 0) |
| yuuji@53 | 333 (goto-char (match-beginning 0)) ;should be \right |
| yuuji@53 | 334 (YaTeX-goto-corresponding-leftright) |
| yuuji@53 | 335 (beginning-of-line) |
| yuuji@53 | 336 (skip-chars-forward " \t") |
| yuuji@68 | 337 ;(setq depth (+ (current-column) mp)) ;+mp is good? |
| yuuji@68 | 338 (setq depth (current-column))) |
| yuuji@53 | 339 (t ;if \left - \right = 0 |
| yuuji@53 | 340 (cond |
| yuuji@53 | 341 ((re-search-forward "\\\\\\\\\\s *$" peol t) |
| yuuji@53 | 342 (setq depth (+ (YaTeX-current-indentation) mp))) |
| yuuji@53 | 343 ((re-search-forward "\\\\end{" peol t) |
| yuuji@53 | 344 nil) ;same indentation as previous line's |
| yuuji@53 | 345 ((re-search-forward "\\\\begin{" peol t) |
| yuuji@53 | 346 (setq depth (+ depth mp))) |
| yuuji@53 | 347 (t |
| yuuji@53 | 348 (or (bobp) (forward-line -1)) |
| yuuji@53 | 349 (cond |
| yuuji@53 | 350 ((re-search-forward |
| yuuji@53 | 351 "\\\\\\\\\\s *$\\|\\\\begin{" (point-end-of-line) t) |
| yuuji@53 | 352 (setq depth (+ depth mp))) |
| yuuji@53 | 353 ))))) |
| yuuji@53 | 354 (goto-char p)) |
| yuuji@53 | 355 (YaTeX-reindent depth)))) |
| yuuji@53 | 356 |
| yuuji@53 | 357 ;;;###autoload |
| yuuji@53 | 358 (defun YaTeX-goto-corresponding-leftright () |
| yuuji@77 | 359 "Go to corresponding \left or \right." |
| yuuji@53 | 360 (let ((YaTeX-struct-begin "\\left%1") |
| yuuji@53 | 361 (YaTeX-struct-end "\\right%1") |
| yuuji@77 | 362 (YaTeX-struct-name-regexp "[][(){}\\.|]") |
| yuuji@77 | 363 (in-leftright-p t)) |
| yuuji@53 | 364 (YaTeX-goto-corresponding-environment t))) |
| yuuji@53 | 365 |
| yuuji@53 | 366 ;;; |
| yuuji@53 | 367 ;; Functions for formatting region being enclosed with environment |
| yuuji@53 | 368 ;;; |
| yuuji@53 | 369 ; These functions must take two argument; region-beginning, region-end. |
| yuuji@53 | 370 |
| yuuji@53 | 371 (defun YaTeX-enclose-equation (beg end) |
| yuuji@53 | 372 (goto-char beg) |
| yuuji@53 | 373 (save-restriction |
| yuuji@53 | 374 (let (m0 bsl) |
| yuuji@53 | 375 (narrow-to-region beg end) |
| yuuji@53 | 376 (while (YaTeX-re-search-active-forward |
| yuuji@53 | 377 "\\(\\$\\)" YaTeX-comment-prefix nil t) |
| yuuji@53 | 378 (goto-char (setq m0 (match-beginning 0))) |
| yuuji@53 | 379 (setq bsl 0) |
| yuuji@53 | 380 (if (and (not (bobp)) (= (char-after (1- (point))) ?\\ )) |
| yuuji@53 | 381 (while (progn (forward-char -1) (= (char-after (point)) ?\\ )) |
| yuuji@53 | 382 (setq bsl (1+ bsl)))) |
| yuuji@53 | 383 (goto-char m0) |
| yuuji@53 | 384 (if (= 0 (% bsl 2)) |
| yuuji@53 | 385 (delete-char 1) |
| yuuji@53 | 386 (forward-char 1)))))) |
| yuuji@53 | 387 |
| yuuji@53 | 388 (fset 'YaTeX-enclose-eqnarray 'YaTeX-enclose-equation) |
| yuuji@53 | 389 (fset 'YaTeX-enclose-eqnarray* 'YaTeX-enclose-equation) |
| yuuji@53 | 390 |
| yuuji@53 | 391 (defun YaTeX-enclose-verbatim (beg end)) ;do nothing when enclose verbatim |
| yuuji@53 | 392 (fset 'YaTeX-enclose-verbatim* 'YaTeX-enclose-verbatim) |
| yuuji@53 | 393 |
| yuuji@53 | 394 (provide 'yatexenv) |