home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / TeX-menus.el < prev    next >
Encoding:
Text File  |  1990-05-31  |  4.4 KB  |  117 lines
  1. ;;;; TeX and LaTeX mode menus.
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Thu May 12 14:02:32 1988 
  4.  
  5. ;; Conditionalise support for window-system internals.
  6. ;; Eventually need to support 'defHCImenu' macro in both worlds, made
  7. ;; difficult by lack of 'pull-right menu' concept in X at present, and
  8. ;; the heavy use made of this in the existing menu package.
  9. (if (eq window-system 'x)
  10.     (require 'x-menus)
  11.   (require 'hci-menus))
  12. (provide 'TeX-menus)
  13.  
  14. (if (eq window-system 'x)
  15.     ;; Set up single menus for X...
  16.     (progn
  17.  
  18. (defXmenu 'TeX-menu
  19.   '("TeX Menu" 
  20.     ("TeX Menu"
  21.      ("Run TeX on current buffer" TeX-buffer)
  22.      ("Run TeX on current region" call-interactively 'TeX-region)
  23.      ("Run BibTeX on current buffer" TeX-BibTeX-buffer)
  24.      ("Show the .dvi file on screen" call-interactively 'TeX-screen-print)
  25.      ("Show the printer queue" TeX-show-print-queue)
  26.      ("Show last output from the TeX process" 
  27.       call-interactively 'TeX-recenter-output-buffer)
  28.      ("Print the .dvi file" TeX-print)
  29.      ("Spell the current TeX buffer" TeX-spell-buffer)
  30.      ("Spell all TeX buffers" TeX-spell-all-TeX-buffers)
  31.      ("Kill the current TeX process" TeX-kill-job)
  32.      ("Describe TeX mode" describe-mode)
  33.      ("Other Menus" x-mouse-other-menus))))
  34.  
  35. (defXmenu 'LaTeX-menu
  36.   '("LaTeX Menu"
  37.     ("LaTeX Menu"
  38.      ("Run LaTeX on buffer" TeX-buffer)
  39.      ("Run LaTeX on region" call-interactively 'TeX-region)
  40.      ("Run BibTeX on current buffer" TeX-BibTeX-buffer))
  41.     ("Preview Menu"
  42.      ("Preview the .dvi file on screen" call-interactively 'TeX-screen-print)
  43.      ("Suspend previewer (assuming its running)" TeX-suspend-job)
  44.      ("Restart previewer (assuming its running)" TeX-continue-job))
  45.     ("Print Menu"
  46.      ("Print the .dvi file" TeX-print)
  47.      ("Show the printer queue" TeX-show-print-queue)
  48.      ("Remove job from the printer queue"
  49.       call-interactively 'TeX-remove-from-print-queue))
  50.     ("Spell Menu"
  51.      ("Spell the current LaTeX buffer" TeX-spell-buffer)
  52.      ("Spell all LaTeX buffers" TeX-spell-all-TeX-buffers))
  53.     ("Edit Menu"
  54.      ("New Chapter" TeX-new-heading "chapter")
  55.      ("New Section" TeX-new-heading "section")
  56.      ("New Subsection" TeX-new-heading "subsection")
  57.      ("New Subsubsection" TeX-new-heading "subsubsection"))
  58.     ("Typeface Menu"
  59.      ("Bold" TeX-typeface-region "bf")
  60.      ("Emphasise" TeX-typeface-region "em")
  61.      ("Italicise" TeX-typeface-region "it")
  62.      ("Slant" TeX-typeface-region "sl")
  63.      ("Sans-serif" TeX-typeface-region "sf")
  64.      ("Small Caps" TeX-typeface-region "sc")
  65.      ("Teletype" TeX-typeface-region "tt"))
  66.     ("Miscellaneous"
  67.      ("Show last output from the LaTeX process" 
  68.       call-interactively 'TeX-recenter-output-buffer)     
  69.      ("Kill the current LaTeX process" TeX-kill-job)
  70.      ("Describe LaTeX mode" describe-mode)
  71.      ("Other Menus" x-mouse-other-menus)))))
  72.  
  73. (defHCImenu TeX-menu
  74.   ("TeX Menu")
  75.   ("Run TeX on current buffer" TeX-buffer)
  76.   ("Run TeX on current region" call-interactively 'TeX-region)
  77.   ("Run BibTeX on current buffer" TeX-BibTeX-buffer)
  78.   ("Show the .dvi file on screen" call-interactively 'TeX-screen-print)
  79.   ("Show the printer queue" TeX-show-print-queue)
  80.   ("Show last output from the LaTeX process" 
  81.    call-interactively 'TeX-recenter-output-buffer)
  82.   ("Print the .dvi file" TeX-print)
  83.   ("Spell the current TeX buffer" TeX-spell-buffer)
  84.   ("Spell all TeX buffers" TeX-spell-all-TeX-buffers)
  85.   ("Kill the current TeX process" TeX-kill-job)
  86.   ("Describe TeX mode" describe-mode)
  87.   ("Other menus" . other-menus-menu)
  88.   ("Quit" . emacs-quit-menu))
  89.  
  90. (defHCImenu LaTeX-run-menu
  91.   ("LaTeX on current buffer" TeX-buffer)
  92.   ("LaTeX on current region" call-interactively 'TeX-region)
  93.   ("BibTeX on current buffer" TeX-BibTeX-buffer))
  94.  
  95. (defHCImenu LaTeX-show-menu
  96.   ("the .dvi file on screen" call-interactively 'TeX-screen-print)
  97.   ("the printer queue" TeX-show-print-queue)
  98.   ("last output from the TeX process" 
  99.    call-interactively 'TeX-recenter-output-buffer))
  100.  
  101. (defHCImenu LaTeX-spell-menu
  102.   ("the current LaTeX buffer" TeX-spell-buffer)
  103.   ("all LaTeX buffers" TeX-spell-all-TeX-buffers))
  104.  
  105. (defHCImenu LaTeX-menu
  106.   ("LaTeX Menu")
  107.   ("Run" . LaTeX-run-menu)
  108.   ("Show" . LaTeX-show-menu)
  109.   ("Spell" . LaTeX-spell-menu)
  110.   ("Print the .dvi file" TeX-print)
  111.   ("Kill the current LaTeX process" TeX-kill-job)
  112.   ("Describe LaTeX mode" describe-mode)
  113.   ("Other menus" . other-menus-menu)
  114.   ("Quit" . emacs-quit-menu))
  115.  
  116.   )
  117.