 (defvar intero-mode-map (make-sparse-keymap)
   "Intero minor mode's map.")
 
+(defvar intero-lighter " Intero"
+  "Lighter for the intero minor mode.")
+(make-variable-buffer-local 'intero-lighter)
+
 ;;;###autoload
 (define-minor-mode intero-mode
   "Minor mode for Intero
 
 \\{intero-mode-map}"
-  :lighter " Intero"
+  :lighter intero-lighter
   :keymap intero-mode-map
   (when (bound-and-true-p interactive-haskell-mode)
     (when (fboundp 'interactive-haskell-mode)

(defvar intero-hoogle-port nil
  "Port that hoogle server is listening on.")
(make-variable-buffer-local 'intero-hoogle-port)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Interactive commands

(define-key intero-mode-map (kbd "C-c C-i") 'intero-info)
(define-key intero-mode-map (kbd "M-.") 'intero-goto-definition)
(define-key intero-mode-map (kbd "C-c C-l") 'intero-repl-load)
(define-key intero-mode-map (kbd "C-c C-r") 'intero-apply-suggestions)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Global variables/state
