1 ;;; haskell-menu.el -- support for Haskell menubar functions
3 ;;; author : Sandra Loosemore
8 ;;; Add an entry to the main menu bar
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))
19 ;;; Define the functions. They get listed on the menu in the reverse
20 ;;; order that they're defined.
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))
43 (provide 'haskell-menu)