home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latex.tcl next >
Encoding:
Text File  |  1998-12-16  |  13.6 KB  |  371 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latex.tcl, version 4.6:  macros, menu, and key bindings for LaTeX users
  5. #
  6. #############################################################################
  7. #
  8. # version 1.1 and 1.2 (11/10/92) by Richard T. Austin <austin@eecs.umich.edu>
  9. # versions 2.0--3.2 and 3.2t (3/97) by Tom Scavo <trscavo@syr.edu>
  10. # versions 4.0 onwards (9/97) by Vince Darley <darley@fas.harvard.edu>
  11. # If you make improvements to this file, please share them!
  12. #
  13. # LaTeX 2.09 is no longer supported.  If someone wants to make the 
  14. # necessary changes to support it, they are welcome.
  15. #############################################################################
  16. #############################################################################
  17.  
  18. # Initialize TeX mode:
  19. alpha::mode TeX 4.6.6 texMenu {
  20.     *.tex *.ltx *.dtx *.ins *.cls *.clo *.sty *.log *.aux *.bbl *.idx 
  21.     *.ind *.glo *.gls *.toc *.lof *.lot *.blg *.ilg *.fd *.drv
  22. } { 
  23.     texMenu electricReturn electricTab
  24. } { 
  25.     addMenu texMenu "•270" TeX
  26.     set unixMode(latex) {TeX}
  27.     
  28.     alpha::package require -loose Alpha 7.1
  29.     # Reset the search path so it will be rebuilt the next time it's needed:
  30.     set AllTeXSearchPaths {}
  31.     
  32.     # Initialize TeX-related application signatures:
  33.     foreach app {tex viewDVI printDVI dvips viewPS printPS bibtex makeindex} {
  34.     ensureset ${app}Sig {}
  35.     }
  36.     
  37.     # Install the short LaTeX menu, by default:
  38.     ensureset useShortLaTeXMenu 1
  39.     
  40.     # Do not load AMS-LaTeX, by default:
  41.     ensureset useAMSLaTeX 0
  42.     
  43.     # To add a new fileset type, all we have to do is this:
  44.     set fileSetsTypesThing(tex) "tex"
  45.     lappend fileSetsTypes "tex"
  46. } maintainer {
  47.     "Vince Darley" darley@fas.harvard.edu <http://www.fas.harvard.edu/~darley/>
  48. } uninstall {this-directory} help {file "LaTeX Help"}
  49.  
  50. #############################################################################
  51. #
  52. # Autoload procedures
  53. #
  54. #############################################################################
  55.  
  56. proc dummyTeX {} {}
  57. proc texMenu {} {}
  58.  
  59. # Update this preference:
  60. if {[info exists TeXmodeVars(TeXInputsFolder)]} {
  61.     alertnote "The 'TeXInputsFolder' pref has been replaced by\
  62.       'TeXSearchPath', which is now a list of folders to search.\
  63.       I'll copy over your preference and delete the old one."
  64.     lappend TeXmodeVars(TeXSearchPath) $TeXmodeVars(TeXInputsFolder)
  65.     unset TeXmodeVars(TeXInputsFolder)
  66.     lappend modifiedArrayElements [list TeXInputsFolder TeXmodeVars] \
  67.       [list TeXSearchPath TeXmodeVars]
  68. }
  69.  
  70. #############################################################################
  71. #
  72. # Flags and variables
  73. #
  74. #############################################################################
  75.  
  76. # Flags ---
  77.  
  78. # If a particular template requires a certain package, warn if it's not there.
  79. newPref f warnIfPackageNotIncluded 1 TeX
  80. # Build the submenu of all known packages.  Can be slow.
  81. newPref f buildPkgsSubmenu 0 TeX
  82. newPref f deleteEnvNoisily 1 TeX
  83. newPref f deleteObjNoisily 1 TeX
  84. # When latex mode asks you for something in the status bar, it will 'beep'
  85. # to catch your attention.
  86. newPref f promptNoisily 1 TeX
  87. # Typeset occurs in background by default (you can always override with
  88. # a different key-combination
  89. newPref f runTeXInBack 0 TeX makeTypesetMenu
  90. # When your actions require the mode to search for something, 'beep'
  91. # if the search fails (otherwise just post a silent message).
  92. newPref f searchNoisily 1 TeX
  93. # Turn '...' into '\ldots' automatically as you type
  94. newPref f smartDots 1 TeX
  95. # Turn ' or " into ` or `` or ' or '' automatically as you type, depending
  96. # upon the context
  97. newPref f smartQuotes 1 TeX
  98. newPref f useBrackets 0 TeX
  99. # Use '$...$' and '$$...$$' for mathematics rather than the LaTeX
  100. # expressions
  101. newPref f useDollarSigns 0 TeX shadowUseDollarSigns
  102. # Prompt in the status bar if possible (rather than use a dialog)
  103. newPref f useStatusBar 1 TeX
  104. newPref f wordWrap 1 TeX
  105.  
  106. # names of commands which insert boxed graphics
  107. newPref v boxMacroNames {includegraphics includegraphics*} TeX shadowBoxMacroNames
  108. # commands used by your citation package
  109. newPref v citeCommands {cite nocite citet citeauthor citep citeyear} TeX shadowCiteRefCommands
  110. # the list of known mathematical environments
  111. newPref v mathEnvironments [list "math" "displaymath" "equation" "eqnarray" "eqnarray*" "array"] TeX
  112. newPref v fillColumn {70} TeX
  113. newPref v funcExpr {\\(sub)*section(\[.*\]|\*)?({[^{}]*})?} TeX
  114. newPref v parseExpr {[^\{]*\{(.*)\}[^\}]*} TeX
  115. newPref v funcExprAlt {\\section(\[.*\]|\*)?({[^{}]*})?} TeX 
  116. newPref v leftFillColumn {0} TeX
  117. newPref v prefixString {% } TeX
  118. # the commands which are used to refer to labels elsewhere in the text
  119. newPref v refCommands {ref eqref pageref vref vpageref} TeX shadowCiteRefCommands
  120. newPref v wrapBreak {(\w+|\\(\\\*?|[^A-Za-z\t\r*\s\]|[A-Za-z]+\*?))} TeX
  121. newPref v wrapBreakPreface {([^\w\]|.\\)} TeX
  122. newPref v wordBreak {(([\w:-])+|\\(\\|[a-zA-Z]+)\*?|\\[^a-zA-Z*\s])} TeX
  123. if {[info tclversion] < 8.0} {
  124.     newPref v wordBreakPreface "(\[^-\\w:\\\]|.\\\\)" TeX
  125. } else {
  126.     newPref v wordBreakPreface "(\[^-\\w:\\\]|.\\\\|^|\$)" TeX
  127. }
  128. set texParaCommands {\[|\]|begin|end|(protect\\)?label|(sub)*section\*?|subfigure|paragraph|centerline|centering|caption|chapter|item|bibitem|intertext|(protect\\)?newline|includegraphics\*?}
  129. # Where your TeX application searches for input files
  130. newPref v TeXSearchPath "" TeX shadowTeXInputs
  131. # The delimiter to use by default in labels inserted into the text.
  132. # For instance the default is a colon, so labels are written 
  133. # \label{fig:...} or \label{eq:...}.  You may prefer a hyphen '-' or...
  134. newPref v standardTeXLabelDelimiter ":" TeX \
  135.   {hook::callAll TeX::labelDelimChanged *}
  136.  
  137. # Pressing this key will insert a subscript _{} if the context is relevant
  138. newPref binding smartSubscripts "/_<U" TeX "" 1
  139. # Pressing this key will insert a superscript _{} if the context is relevant
  140. newPref binding smartSuperscripts "/^<U" TeX "" 1
  141. # If possible, show TeX log inside Alpha (doesn't work with all TeX apps)
  142. newPref variable showTeXLog 1 TeX "" \
  143.   [list "Never" "Only after error" "Always"] index
  144. # Chooses between using the Marks menu for a list of TeX commands or
  145. # the structural content of the file.
  146. newPref variable markCommandsNotStructure \
  147.   [list .sty .dtx .cls .clo .def .cfg .fd] TeX
  148. # Don't indent lines between \begin,\end pairs. This only works for
  149. # automatic indentation after you press return or tab, not for blocks
  150. # of code inserted on the fly by code templates for example.
  151. newPref flag dontIndentBeginEnd 0 TeX
  152.  
  153. #############################################################################
  154. #
  155. # Initialization
  156. #
  157. #############################################################################
  158.  
  159. hook::register activateHook makeTypesetMenu TeX
  160. hook::register saveasHook makeTypesetMenu TeX
  161. proc makeTypesetMenu {args} {
  162.     menu::buildSome Typeset
  163. }
  164.  
  165. # registered only if we're using Textures
  166. proc TexturescloseHook {name} {
  167.     global Texturesconnections
  168.     if {[info exists Texturesconnections]} {
  169.     set winNames [map car $Texturesconnections]
  170.     if { [set pos [lsearch -exact $winNames $name]] > -1 } {
  171.         # Close Textures' connection:
  172.         global texAppSignatures
  173.         set TeXjob [cadr [lindex $Texturesconnections $pos]]
  174.         AEBuild -r '$texAppSignatures(Textures)' BSRs Disc Jobi $TeXjob
  175.         # Update list of connections:
  176.         set Texturesconnections [lreplace $Texturesconnections $pos $pos]
  177.     }
  178.     }
  179. }
  180.  
  181. proc TexturesLaunched {args} {
  182.     global Texturesconnections
  183.     set Texturesconnections ""    
  184. }
  185.  
  186. # The proc 'shadowtexSig' is executed automatically whenever 
  187. # the global variable 'texSig' is altered, say, by choosing
  188. # 'removedSavedSetting' on the Config menu.  Alpha now has
  189. # a nifty proc to handle all the hard work for us: (Vince)
  190. proc shadowtexSig {args} {
  191.     global packagesSubmenuItems AllTeXSearchPaths texSig texAppSignatures
  192.     # Reset the Packages submenu so that it will be rebuilt:
  193.     set packagesSubmenuItems ""
  194.     message {Building LaTeX menu…}
  195.     buildLaTeXMenuQuietly
  196.     # Reset the search path so it will be rebuilt the next time it's needed:
  197.     set AllTeXSearchPaths {}
  198.     # Set things up for Textures
  199.     if {[info exists texAppSignatures(Textures)] && \
  200.       $texSig == $texAppSignatures(Textures)} {
  201.         hook::register launch TexturesLaunched $texAppSignatures(Textures)
  202.         hook::register closeHook TexturescloseHook TeX
  203.     } else {
  204.         hook::deregister launch TexturesLaunched $texAppSignatures(Textures)
  205.         hook::deregister closeHook TexturescloseHook TeX
  206.     }
  207.     
  208. }
  209.  
  210. proc shadowTeXInputs {args} {
  211.     global packagesSubmenuItems AllTeXSearchPaths
  212.     
  213.     # Reset the Packages submenu so that it will be rebuilt:
  214.     set packagesSubmenuItems ""
  215.     
  216.     message "Rebuilding the Documents submenu…"
  217.     menu::buildSome Documents
  218.     message ""
  219.     
  220.     # Reset the search path so it will be rebuilt the next time it's needed:
  221.     set AllTeXSearchPaths {}
  222. }
  223.  
  224. # The proc 'shadowUseDollarSigns' is executed automatically whenever 
  225. # the flag 'useDollarSigns' is altered.  The proc 'mathModeSubmenu'
  226. # is defined in latexMenu.tcl.
  227. proc shadowUseDollarSigns {args} {
  228.     TeX::sub::MathModes
  229.     menu::buildSome "Math Modes"
  230. }
  231.  
  232. # we indent to previous non-comment line, +- a bit for \begin or \end
  233. proc TeX::indentLine {} {
  234.     set beg [lineStart [getPos]]
  235.     set text [getText $beg [nextLineStart $beg]]
  236.     regexp "^\[ \t\]*" $text white
  237.     set next [pos::math $beg + [string length $white]]
  238.     set lwhite [TeX::correctIndentation [getPos] \
  239.       [getText $next [pos::math $next + 5]]]
  240.     
  241.     set lwhite [text::indentOf $lwhite]
  242.     if {$white != $lwhite} {
  243.     replaceText $beg $next $lwhite
  244.     }
  245.     goto [pos::math $beg + [string length $lwhite]]
  246. }
  247.  
  248. proc TeX::correctIndentation {pos {next ""}} {
  249.     global indentationAmount commentsArentSpecialWhenIndenting dontIndentBeginEnd
  250.     set beg [lineStart $pos]
  251.  
  252.     # find last non-empty, non-comment line
  253.     if {$commentsArentSpecialWhenIndenting} {
  254.     if {[catch {search -s -f 0 -r 1 -i 0 -m 0 -- "^\[ \t\]*\[^ \t\n\r\]" [pos::math $beg - 1]} lst]} {
  255.         return 0
  256.     }
  257.     } else {
  258.     if {[catch {search -s -f 0 -r 1 -i 0 -m 0 -- "^\[ \t\]*\[^ \t\n\r%\]" [pos::math $beg - 1]} lst]} {
  259.         return 0
  260.     }
  261.     }
  262.     
  263.     set line [getText [lindex $lst 0] [pos::math [nextLineStart [lindex $lst 0]] - 1]]
  264.     set lwhite [posX [pos::math [lindex $lst 1] - 1]]    
  265.     if {!$dontIndentBeginEnd} {
  266.     incr lwhite [expr {$indentationAmount * \
  267.       ([regexp {^[ \t]*\\begin\{} $line] - [regexp {^\\end\{} $next])}]
  268.     }
  269.     # only happens with poorly formatted files.
  270.     if {$lwhite < 0} {return 0} else {return $lwhite}
  271. }
  272.  
  273. #############################################################################
  274. #
  275. # Colorization
  276. #
  277. #############################################################################
  278.  
  279. newPref v keywordColor blue TeX
  280. newPref v sectionColor magenta TeX
  281. newPref v commentColor red TeX
  282. newPref v bracesColor green TeX
  283.  
  284. # The proc 'shadowCiteRefCommands' is executed whenever the variables 
  285. # TeXmodeVars(citeCommands) or TeXmodeVars(refCommands) are changed.
  286. proc shadowCiteRefCommands {args} {
  287.     global TeXmodeVars
  288.     set LaTeXClickWords {}
  289.     # insure that 'citeCommands' contains "cite" and "nocite":
  290.     lunion TeXmodeVars(citeCommands) cite nocite
  291.     foreach word $TeXmodeVars(citeCommands) { 
  292.     lappend LaTeXClickWords "\\\\$word" 
  293.     }
  294.     # insure that 'refCommands' contains "ref" and "pageref":
  295.     lunion TeXmodeVars(refCommands) ref pageref
  296.     foreach word $TeXmodeVars(refCommands) { 
  297.     lappend LaTeXClickWords "\\\\$word" 
  298.     }
  299.     # color and underline command-double-clickable LaTeX commands:
  300.     regModeKeywords -a -u -k $TeXmodeVars(keywordColor) TeX $LaTeXClickWords
  301. }
  302.  
  303. # The proc 'shadowBoxMacroNames' is executed whenever the variable 
  304. # TeXmodeVars(boxMacroNames) is changed.
  305. proc shadowBoxMacroNames {args} {
  306.     global TeXmodeVars
  307.     set LaTeXClickWords {}
  308.     foreach word $TeXmodeVars(boxMacroNames) { 
  309.     lappend LaTeXClickWords "\\\\$word" 
  310.     }
  311.     # color and underline command-double-clickable LaTeX commands:
  312.     regModeKeywords -a -u -k $TeXmodeVars(keywordColor) TeX $LaTeXClickWords
  313. }
  314.  
  315. proc colorLaTeXClickCommands {} {
  316.     global TeXmodeVars
  317.     lappend LaTeXClickWords \\documentclass \\usepackage \
  318.       \\input \\include \\InputIfFileExists \
  319.       \\bibliography \\bibliographystyle \
  320.       \\LoadClass \\RequirePackage
  321.     # color and underline command-double-clickable LaTeX commands:
  322.     regModeKeywords -a -u -k $TeXmodeVars(keywordColor) TeX $LaTeXClickWords
  323.     shadowCiteRefCommands
  324.     shadowBoxMacroNames
  325. }
  326.  
  327. proc colorLaTeXCommands {} {
  328.     global TeXmodeVars 
  329.     set LaTeXKeyWords {}
  330.     # Color comments, braces and dollar signs, and all LaTeX commands:
  331.     regModeKeywords -i "\}" -i "\{" -i "\$" -I $TeXmodeVars(bracesColor) \
  332.       -e {%} -m {\\} -c $TeXmodeVars(commentColor) \
  333.       -k $TeXmodeVars(keywordColor) TeX $LaTeXKeyWords
  334.     # Color sectioning commands:
  335.     regModeKeywords -a -k $TeXmodeVars(sectionColor) TeX \
  336.       { \\part \\chapter \\section \\subsection \\subsubsection \\paragraph }
  337. }
  338.  
  339. colorLaTeXCommands; rename colorLaTeXCommands ""
  340. colorLaTeXClickCommands; rename colorLaTeXClickCommands ""
  341.  
  342. #############################################################################
  343. #
  344. # LaTeX initialisation
  345. #
  346. #############################################################################
  347.  
  348. if {[alpha::tryToLoad "Initialising LaTeX" \
  349.   latexEngine.tcl {} \
  350.   latexComm.tcl {}\
  351.   latexMacros.tcl {}\
  352.   latexMenu.tcl {} \
  353.   latexKeys.tcl {} \
  354.   bindLaTeXKeys {Binding LaTeX keys} \
  355.   [list app::registerMultiple tex [list OTEX *TEX *XeT MPS*] \
  356.   [list •266 •267 •272 •299] shadowtexSig] {Building LaTeX menu}]} {
  357.     rename bindLaTeXKeys ""
  358. }
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365.  
  366.  
  367.  
  368.  
  369.  
  370.  
  371.