 (ansi-term "/bin/bash")
 (other-window 1)
 
+(defun term-do (cmd)
+  (interactive)
+  (shell-command cmd))
+
+(defun term-do-line ()
+  (interactive)
+  (if (haskell-indent-in-comment (point-min) (point)) 
+      (progn 
+	(setq term-do-last-line (thing-at-point 'line))
+	(term-do term-do-last-line))
+      (term-do term-do-last-line)))
+	
+;;  (term-do (thing-at-point 'line)))
+
+(global-set-key [(f12)] 'term-do-line)
+
+;;  (save-current-buffer
+;;           ((comint-simple-send (make-comint "foo-mongo" "bash") "ls"))))
+
+;;           (send-invisible "ls")))
+
 ;; GNUS
 
 ;; (add-to-list 'gnus-secondary-select-methods '(nnimap "gmail"

(add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
(add-hook 'haskell-mode-hook 'font-lock-mode)
;;(add-hook 'haskell-mode-hook 'haskell-indentation-mode)
;;(require 'column-marker)
;;(autoload 'column-marker "/home/tomn/column-marker" "Cycle forward." t)
;;(add-hook 'find-file-hook (lambda () (interactive) (column-marker-1 80)))
(add-hook 'haskell-mode-hook (lambda () (interactive) (column-marker-1 81)))

;;       smtpmail-smtp-server "smtp.gmail.com"
;;       smtpmail-smtp-service 587
;;       smtpmail-local-domain "le.ac.uk")


;; (define-derived-mode bugpan-mode haskell-mode 
;;      "bugpan-mode" 
;;      "A variant of Haskell mode"
;;      (font-lock-add-keywords nil '(("[0-9]" . 'c3-face-1)))
;;     )