Permalink
Browse files

New major mode: GHC-core

Ignore-this: 401e49d80f56239386334715bdaace4b

darcs-hash:20100702115521-f57bf-dace7506bd906c88438c636a365798f5a85bb577.gz
  • Loading branch information...
1 parent 76f8816 commit 1da641299428f9c7d0da6df73649c368a4646fb9 @Baughn Baughn committed Jul 2, 2010
Showing with 36 additions and 9 deletions.
  1. +1 −0 Makefile
  2. +2 −0 haskell-mode.el
  3. +31 −8 haskell-site-file.el
  4. +2 −1 inf-haskell.el
View
@@ -12,6 +12,7 @@ ELFILES = \
haskell-indentation.el \
haskell-mode.el \
haskell-simple-indent.el \
+ ghc-core.el \
inf-haskell.el
ELCFILES = $(ELFILES:.el=.elc)
View
@@ -272,6 +272,8 @@ be set to the preferred literate style."
["Start interpreter" switch-to-haskell]
["Load file" inferior-haskell-load-file]
"---"
+ ["Load tidy core" ghc-core-create-core]
+ "---"
,(if (default-boundp 'eldoc-documentation-function)
["Doc mode" eldoc-mode
:style toggle :selected (bound-and-true-p eldoc-mode)]
View
@@ -1,4 +1,22 @@
+;;;### (autoloads (ghc-core-mode ghc-core-create-core) "ghc-core"
+;;;;;; "ghc-core.el" (19501 53915))
+;;; Generated autoloads from ghc-core.el
+
+(autoload 'ghc-core-create-core "ghc-core" "\
+Not documented
+
+\(fn)" t nil)
+
+(add-to-list 'auto-mode-alist '("\\.hcr\\'" . ghc-core-mode))
+
+(autoload 'ghc-core-mode "ghc-core" "\
+Major mode for GHC Core files.
+
+\(fn)" t nil)
+
+;;;***
+
;;;### (autoloads (haskell-c-mode) "haskell-c" "haskell-c.el" (18170
;;;;;; 47169))
;;; Generated autoloads from haskell-c.el
@@ -13,7 +31,7 @@ Major mode for Haskell FFI files.
;;;***
;;;### (autoloads (haskell-cabal-mode) "haskell-cabal" "haskell-cabal.el"
-;;;;;; (19222 37798))
+;;;;;; (19501 51598))
;;; Generated autoloads from haskell-cabal.el
(add-to-list 'auto-mode-alist '("\\.cabal\\'" . haskell-cabal-mode))
@@ -131,7 +149,7 @@ Invokes `haskell-indent-hook' if not nil.
;;;***
;;;### (autoloads (haskell-indentation-mode) "haskell-indentation"
-;;;;;; "haskell-indentation.el" (19222 37798))
+;;;;;; "haskell-indentation.el" (19291 17344))
;;; Generated autoloads from haskell-indentation.el
(autoload 'haskell-indentation-mode "haskell-indentation" "\
@@ -145,7 +163,7 @@ autofill-mode.
;;;***
;;;### (autoloads (haskell-hayoo haskell-hoogle literate-haskell-mode
-;;;;;; haskell-mode) "haskell-mode" "haskell-mode.el" (19222 37798))
+;;;;;; haskell-mode) "haskell-mode" "haskell-mode.el" (19501 53079))
;;; Generated autoloads from haskell-mode.el
(add-to-list 'load-path (or (file-name-directory load-file-name) (car load-path)))
@@ -214,9 +232,9 @@ Do a Hayoo search for QUERY.
;;;***
;;;### (autoloads (inferior-haskell-find-haddock inferior-haskell-find-definition
-;;;;;; inferior-haskell-info inferior-haskell-type inferior-haskell-load-file
-;;;;;; switch-to-haskell) "inf-haskell" "inf-haskell.el" (19222
-;;;;;; 37798))
+;;;;;; inferior-haskell-info inferior-haskell-type inferior-haskell-load-and-run
+;;;;;; inferior-haskell-load-file switch-to-haskell) "inf-haskell"
+;;;;;; "inf-haskell.el" (19501 52491))
;;; Generated autoloads from inf-haskell.el
(defalias 'run-haskell 'switch-to-haskell)
@@ -232,6 +250,11 @@ If prefix arg \\[universal-argument] is given, just reload the previous file.
\(fn &optional RELOAD)" t nil)
+(autoload 'inferior-haskell-load-and-run "inf-haskell" "\
+Pass the current buffer's file to haskell and then run a COMMAND.
+
+\(fn COMMAND)" t nil)
+
(autoload 'inferior-haskell-type "inf-haskell" "\
Query the haskell process for the type of the given expression.
If optional argument `insert-value' is non-nil, insert the type above point
@@ -270,8 +293,8 @@ we load it.
;;;***
;;;### (autoloads nil nil ("haskell-font-lock.el" "haskell-ghci.el"
-;;;;;; "haskell-hugs.el" "haskell-simple-indent.el" "test.el") (19222
-;;;;;; 37817 315467))
+;;;;;; "haskell-hugs.el" "haskell-simple-indent.el" "test.el") (19501
+;;;;;; 53924 514127))
;;;***
View
@@ -348,7 +348,7 @@ If prefix arg \\[universal-argument] is given, just reload the previous file."
(set-marker compilation-parsing-end parsing-end)
(setq compilation-parsing-end parsing-end))))
(with-selected-window (display-buffer (current-buffer) nil 'visible)
- (goto-char (point-max)))
+ (end-of-buffer))
;; Use compilation-auto-jump-to-first-error if available.
;; (if (and (boundp 'compilation-auto-jump-to-first-error)
;; compilation-auto-jump-to-first-error
@@ -362,6 +362,7 @@ If prefix arg \\[universal-argument] is given, just reload the previous file."
(defvar inferior-haskell-run-command ":main")
+;;;###autoload
(defun inferior-haskell-load-and-run (command)
"Pass the current buffer's file to haskell and then run a COMMAND."
(interactive

0 comments on commit 1da6412

Please sign in to comment.