X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2FCONTRIB%2Fhaskell-modes%2Fyale%2Foriginal%2Fhaskell-menu.el;fp=ghc%2FCONTRIB%2Fhaskell-modes%2Fyale%2Foriginal%2Fhaskell-menu.el;h=9f851c683ca2833621b6813f04ce342bbc1bf44b;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=0000000000000000000000000000000000000000;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/CONTRIB/haskell-modes/yale/original/haskell-menu.el b/ghc/CONTRIB/haskell-modes/yale/original/haskell-menu.el
new file mode 100644
index 0000000..9f851c6
--- /dev/null
+++ b/ghc/CONTRIB/haskell-modes/yale/original/haskell-menu.el
@@ -0,0 +1,43 @@
+;;; haskell-menu.el -- support for Haskell menubar functions
+;;;
+;;; author :  Sandra Loosemore
+;;; date   :  15 Jun 1994
+;;;
+
+
+;;; Add an entry to the main menu bar
+
+(defvar menu-bar-haskell-menu (make-sparse-keymap "Haskell"))
+(define-key haskell-mode-map [menu-bar haskell]
+  (cons "Haskell" menu-bar-haskell-menu))
+(define-key inferior-haskell-mode-map [menu-bar haskell]
+  (cons "Haskell" menu-bar-haskell-menu))
+(define-key ht-mode-map [menu-bar haskell]
+  (cons "Haskell" menu-bar-haskell-menu))
+
+
+;;; Define the functions.  They get listed on the menu in the reverse
+;;; order that they're defined.
+
+(define-key menu-bar-haskell-menu [haskell-tutorial]
+  '("Tutorial" . haskell-tutorial))
+(define-key menu-bar-haskell-menu [haskell-optimizers]
+  '("Optimizers..." . haskell-optimizers))
+(define-key menu-bar-haskell-menu [haskell-printers]
+  '("Printers..." . haskell-printers))
+(define-key menu-bar-haskell-menu [haskell-get-pad]
+  '("Scratch Pad" . haskell-get-pad))
+(define-key menu-bar-haskell-menu [haskell-compile]
+  '("Compile File..." . haskell-compile))
+(define-key menu-bar-haskell-menu [haskell-run-file]
+  '("Run File..." . haskell-run-file))
+(define-key menu-bar-haskell-menu [haskell-load]
+  '("Load File..." . haskell-load))
+(define-key menu-bar-haskell-menu [haskell-report-type]
+  '("Type Check Expression..." . haskell-report-type))
+(define-key menu-bar-haskell-menu [haskell-run]
+  '("Run Dialogue..." . haskell-run))
+(define-key menu-bar-haskell-menu [haskell-eval]
+  '("Eval Expression..." . haskell-eval))
+
+(provide 'haskell-menu)