ghc/CONTRIB/haskell-modes/yale/original/haskell-menu.el

   1 ;;; haskell-menu.el -- support for Haskell menubar functions
   2 ;;;
   3 ;;; author :  Sandra Loosemore
   4 ;;; date   :  15 Jun 1994
   5 ;;;
   6
   7
   8 ;;; Add an entry to the main menu bar
   9
  10 (defvar menu-bar-haskell-menu (make-sparse-keymap "Haskell"))
  11 (define-key haskell-mode-map [menu-bar haskell]
  12   (cons "Haskell" menu-bar-haskell-menu))
  13 (define-key inferior-haskell-mode-map [menu-bar haskell]
  14   (cons "Haskell" menu-bar-haskell-menu))
  15 (define-key ht-mode-map [menu-bar haskell]
  16   (cons "Haskell" menu-bar-haskell-menu))
  17
  18
  19 ;;; Define the functions.  They get listed on the menu in the reverse
  20 ;;; order that they're defined.
  21
  22 (define-key menu-bar-haskell-menu [haskell-tutorial]
  23   '("Tutorial" . haskell-tutorial))
  24 (define-key menu-bar-haskell-menu [haskell-optimizers]
  25   '("Optimizers..." . haskell-optimizers))
  26 (define-key menu-bar-haskell-menu [haskell-printers]
  27   '("Printers..." . haskell-printers))
  28 (define-key menu-bar-haskell-menu [haskell-get-pad]
  29   '("Scratch Pad" . haskell-get-pad))
  30 (define-key menu-bar-haskell-menu [haskell-compile]
  31   '("Compile File..." . haskell-compile))
  32 (define-key menu-bar-haskell-menu [haskell-run-file]
  33   '("Run File..." . haskell-run-file))
  34 (define-key menu-bar-haskell-menu [haskell-load]
  35   '("Load File..." . haskell-load))
  36 (define-key menu-bar-haskell-menu [haskell-report-type]
  37   '("Type Check Expression..." . haskell-report-type))
  38 (define-key menu-bar-haskell-menu [haskell-run]
  39   '("Run Dialogue..." . haskell-run))
  40 (define-key menu-bar-haskell-menu [haskell-eval]
  41   '("Eval Expression..." . haskell-eval))
  42
  43 (provide 'haskell-menu)