Mercurial > hgrepos > hgweb.cgi > yatex
annotate yatexmth.el @ 64:36a48185b95a
Changes are listed in yatex.new.
Major one is supporing GNU Emacs20 and XEmacs.
| author | yuuji |
|---|---|
| date | Tue, 16 Dec 1997 13:28:38 +0000 |
| parents | 9e08ed569d80 |
| children | 0eb6997bee16 |
| rev | line source |
|---|---|
| 11 | 1 ;;; -*- Emacs-Lisp -*- |
| 23 | 2 ;;; YaTeX math-mode-specific functions. |
| 64 | 3 ;;; yatexmth.el |
|
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
4 ;;; (c )1993-1997 by HIROSE Yuuji [yuuji@ae.keio.ac.jp] |
| 64 | 5 ;;; Last modified Tue Nov 25 12:33:05 1997 on firestorm |
| 11 | 6 ;;; $Id$ |
| 7 | |
| 13 | 8 ;;; [Customization guide] |
| 9 ;;; | |
| 10 ;;; By default, you can use two completion groups in YaTeX math | |
| 52 | 11 ;;; mode, `;' for mathematical signs and `:' for greek letters. But |
| 13 | 12 ;;; you can add other completion groups by defining the alist of |
| 13 ;;; `prefix key' vs `completion list' into the variable | |
| 14 ;;; YaTeX-math-key-list-private. If you wish to accomplish the | |
| 23 | 15 ;;; completion as follows(prefix key is `,'): |
| 13 | 16 ;;; |
| 17 ;;; KEY COMPLETION | |
| 18 ;;; s \sin | |
| 19 ;;; S \arcsin | |
| 20 ;;; c \cos | |
| 21 ;;; C \arccos | |
| 22 ;;; : | |
| 23 ;;; T \arctan | |
| 24 ;;; l \log | |
| 25 ;;; hs \sinh | |
| 26 ;;; | |
| 23 | 27 ;;; Typing `s' after `,' makes `\sin', `hs' after `,' makes `\sinh' |
| 13 | 28 ;;; and so on. First, you have to define list of key-completion |
| 29 ;;; pairs. Variable name(YaTeX-math-funcs-list) is arbitrary. | |
| 30 ;;; | |
| 31 ;;; (setq YaTeX-math-funcs-list | |
| 32 ;;; '(("s" "sin") | |
| 33 ;;; ("S" "arcsin") | |
| 34 ;;; : | |
| 35 ;;; ("hs" "sinh"))) | |
| 36 ;;; | |
| 37 ;;; Next, define the list of prefix-key vs completion list(defined | |
| 38 ;;; above) into the variable YaTeX-math-key-list-private. | |
| 39 ;;; | |
| 40 ;;; (setq YaTeX-math-key-list-private | |
| 23 | 41 ;;; '(("," . YaTeX-math-funcs-list) |
| 13 | 42 ;;; ("'" . Other-List-if-any))) |
| 43 ;;; | |
| 44 ;;; Put these expressions into your ~/.emacs, and you can use this | |
| 51 | 45 ;;; completion in the math-mode. |
| 13 | 46 ;;; |
| 47 ;;; And you can add your favorite completion sequences to the | |
| 23 | 48 ;;; default completion list invoked with `;', by defining those lists |
| 13 | 49 ;;; into variable YaTeX-math-sign-alist-private. |
| 50 | |
| 51 ;;; 【イメージ補完の追加方法】 | |
| 52 ;;; | |
| 52 | 53 ;;; 標準のイメージ補完では、「;」で始まる数式記号補完と、「:」で始 |
| 13 | 54 ;;; まるギリシャ文字補完が使用可能ですが、これ以外の文字で始まる補完 |
| 23 | 55 ;;; シリーズも定義することができます。例えば、「,」で始まる次のよう |
| 13 | 56 ;;; な補完シリーズを定義する場合を考えてみます。 |
| 57 ;;; | |
| 58 ;;; 補完キー 補完結果 | |
| 59 ;;; s \sin | |
| 60 ;;; S \arcsin | |
| 61 ;;; c \cos | |
| 62 ;;; C \arccos | |
| 63 ;;; : | |
| 64 ;;; T \arctan | |
| 65 ;;; l \log | |
| 66 ;;; hs \sinh | |
| 67 ;;; | |
| 23 | 68 ;;; 「,」のあとに s を押すと \sin が、hs を押すと \sinh が入力されま |
| 13 | 69 ;;; す。このような補完リストの登録は以下のようにします(変数名は任意)。 |
| 70 ;;; | |
| 71 ;;; (setq YaTeX-math-funcs-list | |
| 72 ;;; '(("s" "sin") | |
| 73 ;;; ("S" "arcsin") | |
| 74 ;;; : | |
| 75 ;;; ("hs" "sinh"))) | |
| 76 ;;; | |
| 23 | 77 ;;; さらに、「,」を押した時にイメージ補完が始まるよう次の変数に、起動キー |
| 13 | 78 ;;; と上で定義した補完用変数の登録を行ないます。 |
| 79 ;;; | |
| 80 ;;; (setq YaTeX-math-key-list-private | |
| 23 | 81 ;;; '(("," . YaTeX-math-funcs-list) |
| 13 | 82 ;;; ("'" . ほかに定義したいシリーズがあれば…))) |
| 83 ;;; | |
| 51 | 84 ;;; これらを ~/.emacs に書いておけば、math-mode で自分専用のイメージ |
| 85 ;;; 補完が利用できます。 | |
| 13 | 86 |
| 87 (defvar YaTeX-jisold | |
| 88 (and (boundp 'dos-machine-type) | |
| 89 (eq dos-machine-type 'pc98))) | |
| 90 | |
| 91 (defmacro YaTeX-setq-math-sym (sym old new) | |
| 92 (list 'setq sym (list 'if 'YaTeX-jisold old new))) | |
| 93 | |
| 94 (YaTeX-setq-math-sym YaTeX-image-in "E" "∈") | |
| 95 (YaTeX-setq-math-sym YaTeX-image-ni "ヨ" "∋") | |
| 96 (YaTeX-setq-math-sym YaTeX-image-subset " _\n(\n ~" "⊂") | |
| 97 (YaTeX-setq-math-sym YaTeX-image-subseteq " _\n(_\n ~" "⊆") | |
| 98 (YaTeX-setq-math-sym YaTeX-image-supset "_\n )\n~" "⊃") | |
| 99 (YaTeX-setq-math-sym YaTeX-image-supseteq "_\n_)\n~" "⊇") | |
| 100 (YaTeX-setq-math-sym YaTeX-image-nabla "___\n\\\\/" "∇") | |
| 101 (YaTeX-setq-math-sym YaTeX-image-partial " -+\n+-+\n+-+" "∂") | |
| 102 (YaTeX-setq-math-sym YaTeX-image-dagger "+\n|" "†") | |
| 103 (YaTeX-setq-math-sym YaTeX-image-ddagger "+\n+\n|" "‡") | |
| 104 (YaTeX-setq-math-sym YaTeX-image-equiv "＝\n￣" "≡") | |
| 105 (YaTeX-setq-math-sym YaTeX-image-int " /\\\n \\\n\\/" "∫") | |
| 106 (YaTeX-setq-math-sym YaTeX-image-bot "｜\n￣" "⊥") | |
| 107 (YaTeX-setq-math-sym YaTeX-image-neg "ｲ" "¬") | |
| 108 (YaTeX-setq-math-sym YaTeX-image-flat "ｂ" "♭") | |
| 23 | 109 (YaTeX-setq-math-sym YaTeX-image-sqrt "" "√") |
| 13 | 110 |
| 52 | 111 (defvar |
| 13 | 112 YaTeX-math-sign-alist-default |
| 11 | 113 '( |
| 114 ;frequently used | |
| 115 ("||" "|" ("||" "‖")) | |
| 116 ("sum" "sum" ("\\-+\n >\n/-+" "Σ")) | |
| 117 ("sigma" "sum" ("\\-+\n >\n/-+" "Σ")) | |
| 13 | 118 ("integral" "int" (" /\\\n \\\n\\/" YaTeX-image-int)) |
| 11 | 119 ("ointegral" "oint" " /\\\n(\\)\n\\/") |
| 23 | 120 ("sqrt" "sqrt" (" __\n,/" YaTeX-image-sqrt)) |
| 121 ("root" "sqrt" (" __\n,/" YaTeX-image-sqrt)) | |
| 11 | 122 ("A" "forall" "|_|\nV") |
| 123 ("E" "exists" "-+\n-+\n-+") | |
| 13 | 124 ("!" "neg" ("--+\n |" YaTeX-image-neg)) |
| 11 | 125 ("oo" "infty" ("oo" "∞")) |
| 126 ("\\" "backslash" ("\\" "＼")) | |
| 127 | |
| 128 ;;binary operators | |
| 129 ("+-" "pm" ("+\n-" "±")) | |
| 130 ("-+" "mp" "-\n+") | |
| 131 ("x" "times" ("x" "×")) | |
| 132 ("/" "div" (",\n-\n'" "÷")) | |
| 23 | 133 ("f" "frac" "xxx\n---\nyyy" "÷") |
| 11 | 134 ("*" "ast" "*") |
| 135 ("#" "star" ("_/\\_\n\\ /\n//\\\\" "★")) | |
| 136 ("o" "circ" "o") | |
| 137 ("o*" "bullet" " _\n(*)\n ~") | |
| 138 ("." "cdot" ".") | |
| 139 ("cap" "cap" "/-\\\n| |") | |
| 140 ("cup" "cup" "| |\n\\-/") | |
| 141 ("u+" "uplus" "|+|\n\\-/") | |
| 142 ("|~|" "sqcap" "|~|") | |
| 143 ("|_|" "sqcup" "|_|") | |
| 144 ("v" "vee" "v") | |
| 145 ("^" "wedge" "^") | |
| 146 ("\\\\" "setminus" "\\") | |
| 147 (")(" "wr" " )\n(") | |
| 148 ("<>" "diamond" "<>") | |
| 149 ("/\-" "bigtriangleup" ("/\\\n~~" "△")) | |
| 150 ("-\\/" "bigtriangledown" ("__\n\\/" "▽")) | |
| 151 ("<|" "triangleleft" "<|") | |
| 152 ("|>" "triangleright" "|>") | |
| 153 ("<||" "lhd" "/|\n\\|") | |
| 154 ("||>" "rhd" "|\\\n|/") | |
| 155 ("<|-" "unlhd" "<|\n~~") | |
| 156 ("|>-" "unrhd" "|>\n~~") | |
| 157 ("o+" "oplus" " _\n(+)\n ~") | |
| 158 ("o-" "ominus" " _\n(-)\n ~") | |
| 159 ("ox" "otimes" " _\n(x)\n ~") | |
| 160 ("o/" "oslash" " _\n(/)\n ~") | |
| 161 ("o." "odot" "(.)") | |
| 162 ("O" "bigcirc" "O") | |
| 13 | 163 ("t" "dagger" ("+\n|" YaTeX-image-dagger)) |
| 164 ("tt" "ddagger" ("+\n+\n|" YaTeX-image-ddagger)) | |
| 11 | 165 ("II" "amalg" "II") |
| 166 ; : | |
| 167 ;;relational operators | |
| 168 ("<" "leq" ("<\n-" "≦")) | |
| 169 (">" "geq" (">\n-" "≧")) | |
| 13 | 170 ("-=" "equiv" ("=\n-" YaTeX-image-equiv)) |
| 171 ("=-" "equiv" ("=\n-" YaTeX-image-equiv)) | |
| 172 ("---" "equiv" ("=\n-" YaTeX-image-equiv)) | |
| 173 ("(" "subset" (" _\n(\n ~" YaTeX-image-subset)) | |
| 174 ("(-" "subseteq" (" _\n(_\n ~" YaTeX-image-subseteq)) | |
| 175 (")" "supset" ("_\n )\n~" YaTeX-image-supset)) | |
| 176 (")-" "supseteq" ("_\n_)\n~" YaTeX-image-supseteq)) | |
| 11 | 177 ("[" "sqsubset" "[") |
| 178 ("[-" "sqsubseteq" "[\n~") | |
| 179 ("]" "sqsupset" "]") | |
| 180 ("]-" "sqsupseteq" "]\n~") | |
| 13 | 181 ("{" "in" ("(-" YaTeX-image-in)) |
| 182 ("}" "ni" ("-)" YaTeX-image-ni)) | |
| 11 | 183 ("|-" "vdash" "|-") |
| 184 ("-|" "dashv" "-|") | |
| 185 ("~" "sim" "~(tild)") | |
| 186 ("~-" "simeq" "~\n-") | |
| 187 ("asymp" "asymp" "v\n^") | |
| 188 ("~~" "approx" "~\n~") | |
| 189 ("~=" "cong" "~\n=") | |
| 190 ("=/" "neq" ("=/=" "≠")) | |
| 191 (".=" "doteq" ".\n=") | |
| 192 ("o<" "propto" "o<") | |
| 193 ("|=" "models" "|=") | |
| 194 ("_|_" "perp" "_|_") | |
| 195 ("|" "mid" "|") | |
| 196 ("||" "parallel" "||") | |
| 197 ("bowtie" "bowtie" "|><|(wide)") | |
| 198 ("|><|" "join" "|><|") | |
| 199 ("\\_/" "smile" "\\_/") | |
| 200 ("/~\\" "frown" "/~~\\") | |
| 201 ("-<" "prec" ("-<" "く")) | |
| 202 ("-<=" "preceq" ("-<\n-" "く\n=")) | |
| 203 ("<<" "ll" ("<<" "《")) | |
| 204 ; : | |
| 205 ;;arrows | |
| 206 ("<-" "leftarrow" ("<-" "←")) | |
| 13 | 207 ("\C-b" "leftarrow" ("<-" "←")) |
| 208 ("<--" "longleftarrow" ("<--" "←--")) | |
| 11 | 209 ("<=" "Leftarrow" "<=") |
| 210 ("<==" "Longleftarrow" "<==") | |
| 211 ("->" "rightarrow" ("->" "→")) | |
| 13 | 212 ("\C-f" "rightarrow" ("->" "→")) |
| 11 | 213 ("-->" "longrightarrow" ("-->" "--→")) |
| 64 | 214 ("=>" "Rightarrow" "=>") |
| 11 | 215 ("==>" "Longrightarrow" "==>") |
| 216 ("<->" "leftrightarrow" ("<->" "←→")) | |
| 217 ("<-->" "longleftrightarrow" ("<---->" "←--→")) | |
| 47 | 218 ("<=>" "Leftrightarrow" "<=>") |
| 11 | 219 ("<==>" "Longleftrightarrow" "<==>") |
| 220 ("^|" "uparrow" ("^\n|" "↑")) | |
| 13 | 221 ("\C-p" "uparrow" ("^\n|" "↑")) |
| 11 | 222 ("^||" "Uparrow" "/\\\n||") |
| 223 ("\C-n" "downarrow" ("|\nv" "↓")) | |
| 13 | 224 ("v|" "downarrow" ("|\nv" "↓")) |
| 225 ("v||" "Downarrow" "||\n\\/") | |
| 11 | 226 ("|->" "mapsto" ("|->" "|→")) |
| 227 ("<-)" "hookleftarrow" (" ,\n<--+" " ヽ\n<--/")) | |
| 228 ("/-" "leftharpoonup" "/\n~~~") | |
| 229 ("\\-" "leftharpoondown" "__\n\\") | |
| 230 ("-/" "rightharpoondown" "__\n/") | |
| 231 ("-\\" "rightharpoonup" "~~\n\\") | |
|
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
232 ;;left and right |
|
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
233 ("left" "left" "(leftmark)") |
|
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
234 ("right" "right" "(rightmark)") |
| 11 | 235 ;other marks |
| 236 ("Z" "aleph" "|\\|") | |
| 237 ("|\\|" "aleph" "|\\|") | |
| 238 ("h-" "hbar" "_\nh") | |
| 239 ("i" "imath" "i") | |
| 240 ("j" "jmath" "j") | |
| 241 ("l" "ell" "l") | |
| 242 ("wp" "wp" "???") | |
| 243 ("R" "Re" ")R") | |
| 244 ("Im" "Im" "???") | |
| 245 ("mho" "mho" "~|_|~") | |
| 246 ("'" "prime" "'") | |
| 247 ("0" "emptyset" "0") | |
| 13 | 248 ("nabla" "nabla" ("___\n\\\\/" YaTeX-image-nabla)) |
| 11 | 249 ("\\/" "surd" "-\\/") |
| 250 ("surd" "surd" "-\\/") | |
| 251 ("top" "top" "T") | |
| 13 | 252 ("bot" "bot" ("_|_" YaTeX-image-bot)) |
| 253 ("b" "flat" ("b" YaTeX-image-flat)) | |
| 11 | 254 ("LT" "natural" "|\nLT\n |") |
| 13 | 255 ("6" "partial" (" -+\n+-+\n+-+" YaTeX-image-partial)) |
| 256 ("partial" "partial" (" -+\n+-+\n+-+" YaTeX-image-partial)) | |
| 257 ("round" "partial" (" -+\n+-+\n+-+" YaTeX-image-partial)) | |
| 59 | 258 ("[]" "Box" "[]") |
| 11 | 259 ("Diamond" "Diamond" "/\\\n\\/") |
| 260 ("3" "triangle" "/\\\n~~") | |
| 261 ("C" "clubsuit" " o\no+o\n |") | |
| 262 ("D" "diamondsuit" "/\\\n\\/") | |
| 263 ("H" "heartsuit" "<^^>\n \\/") | |
| 264 ("S" "spadesuit" " /\\\n<++>\n /\\") | |
| 52 | 265 ) |
| 266 "Default LaTeX-math-command alist.") | |
| 11 | 267 |
| 13 | 268 (defvar YaTeX-math-sign-alist-private nil |
| 11 | 269 "*User definable key vs LaTeX-math-command alist.") |
| 270 | |
| 271 (defvar YaTeX-math-quit-with-strict-match nil | |
| 272 "*T for quitting completion as soon as strict-match is found.") | |
| 52 | 273 (defvar YaTeX-math-sign-alist |
| 13 | 274 (append YaTeX-math-sign-alist-private YaTeX-math-sign-alist-default)) |
| 275 | |
| 276 ;;(defun YaTeX-math-alist2array (alist array) | |
| 277 ;; (set array | |
| 278 ;; (let ((array (make-vector (length alist) "")) (list alist) (i 0)) | |
| 279 ;; (while list | |
| 280 ;; (aset array i (car (car list))) | |
| 281 ;; (setq i (1+ i) list (cdr list))) | |
| 282 ;; array)) | |
| 283 ;;) | |
| 11 | 284 |
| 52 | 285 (defvar YaTeX-greek-key-alist-default |
| 13 | 286 '( |
| 287 ("a" "alpha" ("a" "α")) | |
| 288 ("b" "beta" ("|>\n|>\n|" "β")) | |
| 289 ("g" "gamma" ("~r" "γ")) | |
| 290 ("G" "Gamma" ("|~" "Γ")) | |
| 291 ("d" "delta" ("<~\n<>" "δ")) | |
| 292 ("D" "Delta" ("/\\\n~~" "Δ")) | |
| 293 ("e" "epsilon" "<\n<~") | |
| 294 ("e-" "varepsilon" ("(\n(~" "ε")) | |
| 295 ("z" "zeta" ("(~\n >" "ζ")) | |
| 296 ("et" "eta" ("n\n/" "η")) | |
| 297 ("th" "theta" ("8" "θ")) | |
| 298 ("Th" "Theta" ("(8)" "Θ")) | |
| 299 ("th-" "vartheta" ("-8" "-θ")) | |
| 300 ("i" "iota" ("i\n\\_/" "ι")) | |
| 301 ("k" "kappa" ("k" "κ")) | |
| 302 ("l" "lambda" ("\\n/\\" "λ")) | |
| 303 ("L" "Lambda" ("/\\" "Λ")) | |
| 304 ("m" "mu" (" u_\n/" "μ")) | |
| 305 ("n" "nu" ("|/" "ν")) | |
| 306 ("x" "xi" ("E\n >" "ξ")) | |
| 307 ("X" "Xi" ("---\n -\n---" "Ξ")) | |
| 308 ("p" "pi" ("__\n)(" "π")) | |
| 309 ("P" "Pi" ("__\n||" "Π")) | |
| 310 ("p-" "varpi" ("_\nw" "__\nω")) | |
| 311 ("r" "rho" ("/O" "ρ")) | |
| 312 ("r-" "varrho" ("/O\n~~" "ρ\n~~")) | |
| 313 ("s" "sigma" ("o~" "σ")) | |
| 314 ("S" "Sigma" ("\\-+\n >\n/-+" "Σ")) | |
| 315 ("s-" "varsigma" "(~~ \n>") | |
| 316 ("t" "tau" ("__\n(" "τ")) | |
| 317 ("u" "upsilon" ("~v" "υ")) | |
| 318 ("y" "upsilon" ("~v" "υ")) | |
| 319 ("U" "Upsilon" ("~Y~" "Υ")) | |
| 320 ("Y" "Upsilon" ("~Y~" "Υ")) | |
| 321 ("ph" "phi" (" /\n(/)\n/" "φ")) | |
| 322 ("Ph" "Phi" (" _\n(|)\n ~" "Φ")) | |
| 323 ("ph-" "varphi" "\\O\n|") | |
| 324 ("c" "chi" ("x" "χ")) | |
| 325 ("ps" "psi" ("\\|/\\n |" "ψ")) | |
| 326 ("Ps" "Psi" (" ~\n\\|/\\n |" "Ψ")) | |
| 327 ("o" "omega" ("w" "ω")) | |
| 328 ("w" "omega" ("w" "ω")) | |
| 329 ("O" "Omega" ("(~)\n~ ~" "Ω")) | |
| 330 ("W" "Omega" ("(~)\n~ ~" "Ω")) | |
| 331 ("f" "foo") | |
| 332 ) | |
| 52 | 333 "Default LaTeX-math-command alist.") |
| 11 | 334 |
| 13 | 335 (defvar YaTeX-greek-key-alist-private nil |
| 336 "*User definable key vs LaTeX-math-command alist.") | |
| 337 | |
| 52 | 338 (defvar YaTeX-greek-key-alist |
| 13 | 339 (append YaTeX-greek-key-alist-private YaTeX-greek-key-alist-default)) |
| 340 | |
| 341 ;;(mapcar (function (lambda (x) (YaTeX-math-alist2array x))) | |
| 342 ;; YaTeX-math-key-list) | |
| 343 | |
| 52 | 344 (defvar YaTeX-math-indicator "KEY\tLaTeX sequence\t\tsign") |
| 11 | 345 |
| 346 (defvar YaTeX-math-need-image t | |
| 347 "*T for displaying pseudo image momentarily.") | |
| 348 (defvar YaTeX-math-max-key 8) | |
| 349 (defvar YaTeX-math-max-seq | |
| 350 (* 8 (1+ (/ (length "\\longleftrightarrow") 8)))) | |
| 351 (defvar YaTeX-math-max-sign 5) | |
| 352 (defvar YaTeX-math-sign-width | |
| 353 (+ YaTeX-math-max-key YaTeX-math-max-seq YaTeX-math-max-sign)) | |
| 354 (defvar YaTeX-math-display-width | |
| 355 (* 8 (1+ (/ YaTeX-math-sign-width 8)))) | |
| 356 (defvar YaTeX-math-menu-map nil | |
| 357 "Keymap used in YaTeX mathematical sign menu mode." | |
| 358 ) | |
| 359 (if YaTeX-math-menu-map nil | |
| 360 (setq YaTeX-math-menu-map (make-sparse-keymap)) | |
| 361 (define-key YaTeX-math-menu-map "n" 'next-line) | |
| 362 (define-key YaTeX-math-menu-map "p" 'previous-line) | |
| 363 (define-key YaTeX-math-menu-map "f" 'YaTeX-math-forward) | |
| 364 (define-key YaTeX-math-menu-map "b" 'YaTeX-math-backward) | |
| 365 (define-key YaTeX-math-menu-map "v" 'scroll-up) | |
| 366 (define-key YaTeX-math-menu-map " " 'scroll-up) | |
| 367 (define-key YaTeX-math-menu-map "c" 'scroll-up) | |
| 368 (define-key YaTeX-math-menu-map "V" 'scroll-down) | |
| 369 (define-key YaTeX-math-menu-map "r" 'scroll-down) | |
| 370 (define-key YaTeX-math-menu-map "\^h" 'scroll-down) | |
| 371 (define-key YaTeX-math-menu-map "<" 'beginning-of-buffer) | |
| 372 (define-key YaTeX-math-menu-map ">" 'end-of-buffer) | |
| 373 (define-key YaTeX-math-menu-map "\^m" 'exit-recursive-edit) | |
| 374 (define-key YaTeX-math-menu-map "q" 'abort-recursive-edit)) | |
| 375 | |
| 13 | 376 (defvar YaTeX-math-exit-key "\e" |
| 377 "*Key sequence after prefix key of YaTeX-math-mode to exit from math-mode." | |
| 378 ) | |
| 379 | |
| 11 | 380 (defmacro YaTeX-math-japanese-sign (list) |
| 381 (list 'nth 1 list)) | |
| 382 | |
| 383 (defvar YaTeX-math-cmd-regexp (concat (regexp-quote YaTeX-ec) "[A-z]")) | |
| 51 | 384 (defvar YaTeX-math-verbatim-environments |
| 385 '("alltt") | |
| 386 "*List of environments in which LaTeX math mode is disabled. | |
| 387 This value is appended with YaTeX-verbatim-environments.") | |
| 11 | 388 |
| 13 | 389 ;;; |
| 390 ;;YaTeX math-mode functions | |
| 391 ;;; | |
| 23 | 392 ;;;###autoload from yatex.el |
| 13 | 393 (defun YaTeX-toggle-math-mode (&optional arg) |
| 394 (interactive "P") | |
| 395 (or (memq 'YaTeX-math-mode mode-line-format) nil | |
| 396 (setq mode-line-format | |
| 397 (append (list "" 'YaTeX-math-mode) mode-line-format))) | |
| 23 | 398 (if YaTeX-auto-math-mode nil ;Only effective on manual mode. |
| 399 (if (or arg (null YaTeX-math-mode)) | |
| 400 (let (keys) | |
| 401 (setq YaTeX-math-mode "math:") | |
| 402 (message "Turn on math mode. Prefix keys are %s" | |
| 403 (mapconcat 'car YaTeX-math-key-list " ")) | |
| 404 (sit-for 3) | |
| 405 (message | |
| 406 (concat "To exit from math-mode, type `ESC' after prefix, " | |
| 407 "or type `" | |
| 408 (key-description | |
| 409 (car | |
| 410 (where-is-internal | |
| 411 'YaTeX-switch-mode-menu YaTeX-mode-map))) | |
| 412 " $'"))) | |
| 413 (setq YaTeX-math-mode nil) | |
| 414 (message "Exit from math mode.")) | |
| 415 (set-buffer-modified-p (buffer-modified-p))) | |
| 13 | 416 ) |
| 417 | |
| 11 | 418 (defun YaTeX-math-forward (arg) |
| 419 (interactive "p") | |
| 420 (re-search-forward YaTeX-math-cmd-regexp nil t arg)) | |
| 421 | |
| 422 (defun YaTeX-math-backward (arg) | |
| 423 (interactive "p") | |
| 424 (re-search-backward YaTeX-math-cmd-regexp nil t arg)) | |
| 425 | |
| 13 | 426 (defun YaTeX-math-gets (sign) |
| 427 (cond | |
| 428 ((null sign) nil) | |
| 429 ((listp sign) | |
| 430 (setq sign | |
| 431 (cond | |
| 432 (YaTeX-japan (YaTeX-math-japanese-sign sign)) | |
| 433 (t (car sign)))) | |
| 434 (YaTeX-math-gets sign)) | |
| 435 ((symbolp sign) | |
| 436 (YaTeX-math-gets (symbol-value sign))) | |
| 437 (t sign)) | |
| 438 ) | |
| 439 | |
| 11 | 440 (defun YaTeX-math-get-sign (list) |
| 13 | 441 (YaTeX-math-gets (car (cdr-safe (cdr-safe list)))) |
| 11 | 442 ) |
| 23 | 443 (defun YaTeX-in-math-mode-p () |
| 444 "If current position is supposed to be in LaTeX-math-mode, return t." | |
| 445 (or (YaTeX-quick-in-environment-p | |
|
58
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
446 (append |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
447 '("math" "eqnarray" "equation" "eqnarray*" "displaymath");LaTeX |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
448 (if YaTeX-use-AMS-LaTeX |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
449 ;; And math modes of AMS-LaTeX |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
450 '("align" "align*" "split" "multline" "multline*" "gather" |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
451 "gather*" "aligned*" "gathered" "gathered*" "alignat" |
|
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
452 "alignat*" "xalignat" "xalignat*" "xxalignat" "xxalignat*")))) |
| 51 | 453 (let*((p (point)) (nest 0) me0 |
| 57 | 454 (delim (concat YaTeX-sectioning-regexp "\\|^$\\|^\C-l")) |
| 23 | 455 (boundary |
| 456 (save-excursion | |
| 51 | 457 (if (looking-at delim) |
| 23 | 458 (goto-char (max (point-min) (1- (point))))) |
| 51 | 459 (re-search-backward delim nil 1) |
| 23 | 460 (point)))) |
| 461 (save-excursion | |
| 462 (cond | |
| 463 ((catch 'open | |
| 464 (save-excursion | |
| 465 (while (and (>= nest 0) | |
| 466 (re-search-backward | |
| 467 (concat YaTeX-ec-regexp ;\ | |
| 468 "\\([()]\\|[][]\\)") boundary t)) | |
| 469 (setq me0 (match-end 0)) | |
| 470 (if (or (YaTeX-on-comment-p) | |
| 51 | 471 (YaTeX-literal-p)) nil |
| 23 | 472 (if (or (= (char-after (1- me0)) ?\)) |
| 473 (= (char-after (1- me0)) ?\])) | |
| 474 (setq nest (1+ nest)) | |
|
37
433b27a11019
Do not count \\[5pt] as the beginning of \[ (YaTeX-in-math-mode-p).
yuuji
parents:
23
diff
changeset
|
475 (if (= (preceding-char) ?\\ ) nil;;\\[5pt] |
|
433b27a11019
Do not count \\[5pt] as the beginning of \[ (YaTeX-in-math-mode-p).
yuuji
parents:
23
diff
changeset
|
476 (setq nest (1- nest)))))) |
| 23 | 477 (if (< nest 0) (throw 'open t)))) |
| 478 t) | |
| 479 (t (catch 'dollar | |
| 51 | 480 (while ;(search-backward "$" boundary t);little bit fast. |
| 481 (YaTeX-re-search-active-backward ;;;;;; Too slow??? | |
|
58
3a7c0c2bf16d
Official support for AMS-LaTeX, HTML, xdvi -remote, Netscape
yuuji
parents:
57
diff
changeset
|
482 "\\$" (concat "[^\\\\]" YaTeX-comment-prefix) boundary t) |
| 23 | 483 (cond |
| 484 ((equal (char-after (1- (point))) ?$) ; $$ equation $$ | |
| 485 (backward-char 1) | |
| 486 (setq nest (1+ nest))) | |
| 51 | 487 ((let ((YaTeX-verbatim-environments |
| 488 (append YaTeX-math-verbatim-environments | |
| 489 YaTeX-verbatim-environments))) | |
| 490 (YaTeX-literal-p)) | |
| 491 nil) | |
| 23 | 492 ((and (equal (char-after (1- (point))) ?\\ ) |
| 493 (not (equal (char-after (- (point) 3)) ?\\ ))) | |
| 494 nil) ;\$ | |
| 495 (t (setq nest (1+ nest))))) | |
| 496 (if (= (% nest 2) 1) (throw 'dollar t)))))))) | |
| 497 ) | |
| 498 | |
| 11 | 499 (defun YaTeX-math-display-list (list cols) |
| 500 (goto-char (point-max)) | |
| 501 (if (= cols 0) (if (not (eolp)) (newline 1)) | |
| 502 (forward-line -1) | |
| 503 (while (looking-at "[ \t\n]") (forward-line -1))) | |
| 504 (end-of-line) | |
| 505 (let ((indent (* YaTeX-math-display-width cols)) sign str to) | |
| 506 (indent-to indent) | |
| 507 (insert (car list)) | |
| 508 (indent-to (setq indent (+ indent YaTeX-math-max-key))) | |
| 509 (insert "\\" (car (cdr list))) | |
| 510 (setq indent (+ indent YaTeX-math-max-seq)) | |
| 511 (setq sign (YaTeX-math-get-sign list)) | |
| 13 | 512 (while (and sign (not (string= "" sign))) |
| 11 | 513 (setq to (string-match "\n" sign) |
| 514 str (if to (substring sign 0 to) sign)) | |
| 515 (end-of-line) | |
| 516 (indent-to indent) | |
| 517 (insert str) | |
| 518 (cond ((eobp) (newline 1)) | |
| 519 ((> cols 0) (forward-line 1))) | |
| 520 (setq sign (if to (substring sign (1+ to)) ""))))) | |
| 521 | |
| 522 (defvar YaTeX-math-menu-buffer "*math-mode-signs*") | |
| 523 | |
| 524 (defun YaTeX-math-show-menu (match-str) | |
| 525 (save-window-excursion | |
| 59 | 526 (YaTeX-showup-buffer YaTeX-math-menu-buffer nil t) |
| 11 | 527 (let ((maxcols (max 1 (/ (screen-width) YaTeX-math-sign-width))) |
| 528 (case-fold-search nil) | |
| 13 | 529 (cols 0) (list alist) command) |
| 11 | 530 (erase-buffer) |
| 13 | 531 (insert |
| 532 "Candidates of sign. [n:next p:prev f:forw b:back q:quit RET:select]\n") | |
| 11 | 533 (insert YaTeX-math-indicator "\t") |
| 534 (insert YaTeX-math-indicator) | |
| 535 (newline 1) | |
| 536 (insert-char ?- (1- (screen-width))) | |
| 537 (newline 1) | |
| 538 (while list | |
| 539 (if (string-match match-str (car (car list))) | |
| 540 (progn (YaTeX-math-display-list (car list) cols) | |
| 541 (setq cols (% (1+ cols) maxcols)))) | |
| 542 (setq list (cdr list))) | |
| 13 | 543 (goto-line 4) |
| 11 | 544 (use-local-map YaTeX-math-menu-map) |
|
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
545 (setq buffer-read-only t) |
| 11 | 546 (unwind-protect |
| 547 (recursive-edit) | |
| 548 (skip-chars-backward "^ \t\n") | |
| 549 (setq command | |
| 550 (if (re-search-forward YaTeX-math-cmd-regexp nil t) | |
| 551 (buffer-substring | |
| 552 (match-beginning 0) | |
| 553 (prog2 (skip-chars-forward "^ \t\n") (point))) | |
| 554 nil)) | |
| 555 (kill-buffer YaTeX-math-menu-buffer)) | |
| 556 command)) | |
| 557 ) | |
| 558 | |
| 559 ; | |
| 560 (defun YaTeX-math-show-image (image &optional exit-char) | |
| 561 "Momentarily display IMAGE at the beginning of the next line; | |
| 562 erase it on the next keystroke. The window is recentered if necessary | |
| 563 to make the whole string visible. If the window isn't large enough, | |
| 564 at least you get to read the beginning." | |
| 13 | 565 (if (and image (not (string= image ""))) |
| 566 (let ((buffer-read-only nil) | |
| 567 (modified (buffer-modified-p)) | |
| 568 (name buffer-file-name) | |
| 569 insert-start | |
| 570 insert-end) | |
| 571 (unwind-protect | |
| 572 (progn | |
| 573 (save-excursion | |
| 574 ;; defeat file locking... don't try this at home, kids! | |
| 575 (setq buffer-file-name nil) | |
| 576 (forward-line 1) | |
| 577 (setq insert-start (point)) | |
| 578 (if (eobp) (newline)) | |
| 579 (insert image) | |
| 580 (setq insert-end (point))) | |
| 581 ; make sure the whole string is visible | |
| 582 (if (not (pos-visible-in-window-p insert-end)) | |
| 583 (recenter (max 0 | |
| 584 (- (window-height) | |
| 585 (count-lines insert-start insert-end) | |
| 586 2)))) | |
| 587 (let ((char (read-char))) | |
| 588 (or (eq char exit-char) | |
| 589 (setq unread-command-char char)))) | |
| 590 (if insert-end | |
| 591 (save-excursion | |
| 592 (delete-region insert-start insert-end))) | |
| 593 (setq buffer-file-name name) | |
| 594 (set-buffer-modified-p modified))))) | |
| 11 | 595 |
| 52 | 596 (defun YaTeX-math-insert-sequence (&optional force initial) |
| 23 | 597 "Insert math-mode sequence with image completion." |
| 598 (interactive "P") | |
| 52 | 599 (let*((key (or initial "")) regkey str last-char list i |
| 13 | 600 (case-fold-search nil) match sign |
| 601 (this-key (char-to-string last-command-char)) | |
|
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
602 (alistsym (cdr (assoc this-key YaTeX-math-key-list))) |
|
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
603 (alistname (symbol-name alistsym)) |
|
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
604 (alist (symbol-value alistsym)) |
| 13 | 605 (n (length alist)) (beg (point)) result) |
| 52 | 606 (if initial (insert YaTeX-ec (car (cdr (assoc initial alist))))) |
|
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
607 (if (string-match "^YaTeX-" alistname) |
|
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
608 (setq alistname (substring alistname (length "YaTeX-")))) |
|
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
609 (setq alistname (substring alistname 0 (string-match "-" alistname))) |
| 11 | 610 (setq result |
| 611 (catch 'complete | |
| 23 | 612 (if (and (not force) |
| 51 | 613 (if YaTeX-auto-math-mode |
| 614 (not (YaTeX-in-math-mode-p)) | |
| 615 (not YaTeX-math-mode))) | |
| 23 | 616 (throw 'complete 'escape));this tag should be exit, but... |
| 11 | 617 (while t |
|
60
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
618 (message "%ssequence%s: %s" |
|
9e08ed569d80
yahtml: change keystroke of calling browser to [prefix] t p
yuuji
parents:
59
diff
changeset
|
619 (if YaTeX-simple-messages "" (concat alistname " ")) |
| 56 | 620 (if YaTeX-simple-messages "" "(TAB for menu)") key) |
| 11 | 621 (setq last-char (read-char) |
| 622 key (concat key (char-to-string last-char)) | |
| 13 | 623 i 0) |
| 11 | 624 (cond |
| 13 | 625 ((string= key this-key) ;;invoke key itself |
| 11 | 626 (throw 'complete 'escape)) |
| 13 | 627 ((string= key YaTeX-math-exit-key) ;;exit from math-mode |
| 628 (throw 'complete 'exit)) | |
| 23 | 629 ((string-match "\r" key) ;;RET = kakutei |
| 630 (throw 'complete 'select)) | |
| 631 ((string-match "[\C-g\C-c]" key) ;;C-g = abort | |
| 632 (throw 'complete 'abort)) | |
| 633 ((string-match "[\t\n]" key) ;;TAB, LFD = menu | |
| 634 (throw 'complete 'menu)) | |
| 635 ((string-match "[\C-h\C-?]" key) ;;BS, DEL = BS | |
| 636 (if (< (length key) 2) (throw 'complete 'abort)) | |
| 13 | 637 (setq key (substring key 0 -2)))) |
| 638 | |
| 639 (setq regkey (concat "^" (regexp-quote key))) | |
| 56 | 640 (message "Sequence%s: %s" |
| 641 (if YaTeX-simple-messages "" "(TAB for menu)") key) | |
| 11 | 642 (if |
| 643 (catch 'found | |
| 644 ;;(1)input string strictly matches with alist | |
| 23 | 645 (setq match (assoc key alist)) |
| 646 ;;remember previous match | |
| 647 | |
| 11 | 648 ;;(2)search partial match into alist |
| 13 | 649 (setq list alist) |
| 11 | 650 (while (< i n) |
| 651 (if (string-match | |
| 13 | 652 regkey |
| 653 ;;(aref array i) | |
| 654 ;;(car (nth i alist)) | |
| 23 | 655 (car (car list))) |
| 11 | 656 (progn |
| 657 (or match | |
| 13 | 658 ;;(setq match (nth i alist)) |
| 659 (setq match (car list))) | |
| 11 | 660 (throw 'found t))) |
| 13 | 661 (setq i (1+ i) list (cdr list)))) ;catch 'found |
| 11 | 662 nil ;;if any match, continue reading |
| 663 ;;else reading of sequence has been done. | |
| 664 (message "complete.") | |
| 23 | 665 (throw 'complete t)) |
| 666 | |
| 11 | 667 (if match |
| 668 (progn (delete-region beg (point)) | |
| 23 | 669 (setq single-command (car (cdr match))) |
| 670 (insert YaTeX-ec single-command) | |
| 13 | 671 (if (and YaTeX-math-need-image |
| 672 (setq sign (YaTeX-math-get-sign match))) | |
| 673 (YaTeX-math-show-image (concat sign "\n"))) | |
| 11 | 674 ) |
| 675 nil) | |
| 676 ))) | |
| 677 (cond | |
| 678 ((eq result t) | |
| 679 (setq YaTeX-current-completion-type 'maketitle) | |
| 23 | 680 |
| 13 | 681 ;;;(sit-for 1) |
| 11 | 682 (setq unread-command-char last-char) |
| 683 (insert (YaTeX-addin single-command))) | |
| 684 ((eq result 'abort) | |
| 685 (delete-region beg (point)) | |
| 686 (message "Abort.")) | |
| 687 ((eq result 'escape) | |
| 688 (delete-region beg (point)) | |
| 52 | 689 (call-interactively (global-key-binding this-key))) |
| 23 | 690 ((eq result 'select) |
|
53
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
691 (message "Done.") |
|
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
692 (setq YaTeX-current-completion-type 'maketitle) |
|
5f4b18da14b3
Fix functions relating YaTeX-beginning-of-environment or
yuuji
parents:
52
diff
changeset
|
693 (insert (YaTeX-addin single-command))) |
| 13 | 694 ((eq result 'exit) |
| 695 (delete-region beg (point)) | |
| 696 (YaTeX-toggle-math-mode)) | |
| 11 | 697 ((eq result 'menu) |
| 698 (delete-region beg (point)) | |
| 699 (setq key (concat "^" (regexp-quote (substring key 0 -1)))) | |
| 700 (insert (YaTeX-math-show-menu key))))) | |
| 701 ) | |
| 52 | 702 |
| 703 ;; ----- Change image completion types ----- | |
| 704 (defun YaTeX-math-member-p (item) | |
| 705 "Check if ITEM is a member of image completion. | |
| 706 If so return the cons of its invocation key and image-string." | |
| 707 (let ((lists YaTeX-math-key-list) list) | |
| 708 (catch 'found | |
| 709 (while lists | |
| 710 (setq list (symbol-value (cdr (car lists)))) | |
| 711 (while list | |
| 712 (if (string= item (nth 1 (car list))) | |
| 713 (throw 'found (cons (car (car lists)) (nth 0 (car list))))) | |
| 714 (setq list (cdr list))) | |
| 715 (setq lists (cdr lists)))))) | |
| 716 | |
| 11 | 717 ;; |
| 718 (provide 'yatexmth) | |
| 13 | 719 |
| 720 ; Local variables: | |
| 721 ; fill-prefix: ";;; " | |
| 722 ; paragraph-start: "^$\\| \\|;;;$" | |
| 723 ; paragraph-separate: "^$\\| \\|;;;$" | |
| 724 ; End: |
