home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / MouseAndMenuEmacs / BibTeX-menus.el next >
Encoding:
Text File  |  1990-05-31  |  3.6 KB  |  80 lines
  1. ;;;; BibTeX mode menus
  2. ;;;; Russell Ritchie, Scottish HCI Centre, <russell@uk.ac.strath.hci>.
  3. ;;;; Mon Oct  3 11:42:40 1988 
  4.  
  5. (if (eq window-system 'x)
  6.     (require 'x-menus)
  7.   (require 'hci-menus))
  8. (provide 'BibTeX-menus)
  9.  
  10. (if (eq window-system 'x)
  11.     (defXmenu 'BibTeX-menu
  12.       '("BibTeX Menu"
  13.         ("Insert BibTeX entry" 
  14.          ("Article in Conference Proceedings" bibtex-InProceedings)
  15.          ("        Article in journal       " bibtex-Article)
  16.          ("               Book              " bibtex-Book)
  17.          ("             Booklet             " bibtex-Booklet)
  18.          ("         Master's Thesis         " bibtex-MastersThesis)
  19.          ;; Dipl\^{o}me d'etudes Approfondies (French thing sort of like an M.Sc).
  20.          ;;  ("            DEA Thesis           " bibtex-DEAthesis)
  21.          ("            Phd. Thesis          " bibtex-PhdThesis)
  22.          ("         Technical Report        " bibtex-TechReport)
  23.          ("         Technical Manual        " bibtex-Manual)
  24.          ("      Conference Proceedings     " bibtex-Proceedings)
  25.          ("        Chapter in a Book        " bibtex-InBook)
  26.          ("    Article in a Collection      " bibtex-InCollection)
  27.          ("           Miscellaneous         " bibtex-Misc)
  28.          ("            Unpublished          " bibtex-Unpublished)
  29.          ("              String             " bibtex-string))
  30.         ("Edit BibTeX entry" 
  31.          ("            next field      " bibtex-next-field)
  32.          ("          to end of field   " bibtex-find-it)
  33.          ("copy similar preceding Field" 
  34.           call-interactively 'bibtex-pop-previous)
  35.          ("copy similar following field" 
  36.            call-interactively 'bibtex-pop-next)
  37.          ("            remove OPT      " bibtex-remove-OPT)
  38.          ("           remove quotes    " bibtex-remove-double-quotes)
  39.          ("          clean up entry    " bibtex-clean-entry))
  40.         ("Miscellaneous"
  41.          ("Describe BibTeX mode" describe-mode)
  42.          ("Describe Key Bindings" describe-bindings)
  43.          ("Other Menus" x-mouse-other-menus))))
  44.  
  45.   (defHCImenu BibTeX-menu
  46.     ("BibTeX menu")
  47.     ("Insert BibTeX entry" . BibTeX-insert-menu)
  48.     ("Edit BibTeX entry"   . BibTeX-edit-menu)
  49.     ("Describe BibTeX mode"  describe-mode)
  50.     ("Other Menus"         . other-menus-menu)
  51.     ("Quit"            . emacs-quit-menu))
  52.   
  53.   (defHCImenu BibTeX-insert-menu
  54.     ("Article in Conference Proceedings" bibtex-InProceedings)
  55.     ("        Article in journal       " bibtex-Article)
  56.     ("               Book              " bibtex-Book)
  57.     ("             Booklet             " bibtex-Booklet)
  58.     ("         Master's Thesis         " bibtex-MastersThesis)
  59.     ;; Dipl\^{o}me d'etudes Approfondies (French thing sort of like an M.Sc).
  60.     ;;  ("            DEA Thesis           " bibtex-DEAthesis)
  61.     ("            Phd. Thesis          " bibtex-PhdThesis)
  62.     ("         Technical Report        " bibtex-TechReport)
  63.     ("         Technical Manual        " bibtex-Manual)
  64.     ("      Conference Proceedings     " bibtex-Proceedings)
  65.     ("        Chapter in a Book        " bibtex-InBook)
  66.     ("    Article in a Collection      " bibtex-InCollection)
  67.     ("           Miscellaneous         " bibtex-Misc)
  68.     ("            Unpublished          " bibtex-Unpublished)
  69.     ("              String             " bibtex-string))
  70.  
  71.   (defHCImenu BibTeX-edit-menu
  72.     ("            next field      " bibtex-next-field)
  73.     ("          to end of field   " bibtex-find-it)
  74.     ("copy similar preceding field" call-interactively 'bibtex-pop-previous)
  75.     ("copy similar following field" call-interactively 'bibtex-pop-next)
  76.     ("            remove OPT      " bibtex-remove-OPT)
  77.     ("           remove quotes    " bibtex-remove-double-quotes)
  78.     ("          clean up entry    " bibtex-clean-entry))
  79.   )
  80.