;;; bibtex-menus.el -- add GNU-like menus to Xemacs bibtex mode
;; Created: Wed Jul 10 12:22:27 1996 by jamesri@cogs.susx.ac.uk
;; Revised: Thu Aug  8 10:28:45 1996 by jamesri@cogs.susx.ac.uk
;;
;; To use this file, add the following text to your .emacs.  This
;; add-hook must appear after (require 'tex-site) because tex-site
;; sets bibtex-mode-hook to nil
;;
;; (add-hook 'bibtex-mode-hook
;;          '(lambda ()
;;             (require 'bibtex-menus)
;;             (bibtex-install-menubar)))
;;
(defconst bibtex-mode-menu
  '("BibTeX Commands"
    ("Entries"
     ["Article in Conference Proceedings" bibtex-InProceedings          t]
     ["Article in Journal"              bibtex-Article                  t]
     ["Book"                            bibtex-Book                     t]
     ["Booklet"                         bibtex-Booklet                  t]
     ["Conference"                      bibtex-InProceedings            t]
     ["Master's Thesis"                 bibtex-MastersThesis            t]
     ["DEA Thesis"                      bibtex-DEAthesis                t]
     ["Phd. Thesis"                     bibtex-PhdThesis                t]
     ["Technical Report"                bibtex-TechReport               t]
     ["Technical Manual"                bibtex-Manual                   t]
     ["Conference Proceedings"          bibtex-Proceedings              t]
     ["A Chapter in a Book"             bibtex-InBook                   t]
     ["An Article in a Collection"      bibtex-InCollection             t]
     ["Miscellaneous"                   bibtex-Misc                     t]
     ["Unpublished"                     bibtex-Unpublished              t]
     ["String"                          bibtex-string                   t]
     ["Preamble"                        bibtex-preamble                 t])
    ("Bibtex"
     ["Next Field"                      bibtex-next-field               t]
     ["To End of Field"                 bibtex-find-text                t]
     ["Snatch From Similar Preceding Field"     bibtex-pop-previous     t]
     ["Snatch From Similar Following Field"     bibtex-pop-next         t]
     ["Remove OPT"                      bibtex-remove-OPT               t]
     ["Remove Quotes"                   bibtex-remove-double-quotes     t]
     ["Clean Up Entry"                  bibtex-clean-entry              t]
     ["Find Duplicates"                 find-bibtex-duplicates          t]
     ["Sort Entries"                    sort-bibtex-entries             t]
     ["Validate Entries"                validate-bibtex-buffer          t])
    ))

;; copied from outline.el
(defun bibtex-install-menubar (&optional remove)
  (interactive)
  ;; install or remove the outline menus
  (let ((menus (cdr bibtex-mode-menu)) path)
    (and (not remove)
        (set-buffer-menubar (copy-sequence current-menubar)))
    (while menus
      (setq path (list (car (car menus))))
      (if (and remove (find-menu-item current-menubar path))
          (delete-menu-item path)
        (or (car (find-menu-item current-menubar path))
            (add-menu nil (car (car menus)) (cdr (car menus)) nil)))
      (setq menus (cdr menus)))))

;(add-hook 'bibtex-mode-hook 'bibtex-install-menubar)

(provide 'bibtex-menus)