 (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"

(menu-bar-mode -1)
(toggle-scroll-bar -1)
(global-set-key "\C-j" 'inferior-haskell-load-file)
(global-set-key [(f12)] 'compile)
(global-set-key [(f11)] 'infhask-load-main)
(global-set-key [(shift f11)] 'infhask-quit)
;;(global-set-key "\C-t" 'infhask-insert-type)

(add-hook 'haskell-mode-hook 'turn-on-haskell-simple-indent)
(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)))
