From: Ramakrishnan Muthukrishnan <ram@rkrishnan.org>
Date: Fri, 2 Sep 2016 13:52:05 +0000 (+0530)
Subject: switch to intero for haskell
X-Git-Url: https://git.rkrishnan.org/pf/content/en/seg/htmlfontify-example.html?a=commitdiff_plain;h=766e9ecea1201551674033532f545ff3f07b30fd;p=.emacs.d.git

switch to intero for haskell
---

diff --git a/init.el b/init.el
index 946b0db..a201655 100644
--- a/init.el
+++ b/init.el
@@ -19,7 +19,10 @@
 
 ;; font
 ;; (set-default-font "Inconsolata-12")
-(set-default-font "InconsolataGo-12")
+;; (set-default-font "InconsolataGo-12")
+;; set a default font
+(when (member "DejaVu Sans Mono" (font-family-list))
+  (set-face-attribute 'default nil :font "DejaVu Sans Mono-11"))
 
 ;; Don't let Emacs hurt your ears
 (setq visible-bell t)
@@ -31,13 +34,6 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
- '(flycheck-haskell-runghc-command
-   (quote
-    ("stack" "--verbosity" "silent" "runghc" "--no-ghc-package-path" "--")))
- '(haskell-process-auto-import-loaded-modules t)
- '(haskell-process-log t)
- '(haskell-process-suggest-remove-import-lines t)
- '(haskell-process-type (quote cabal-repl))
  '(initial-frame-alist (quote ((fullscreen . maximized))))
  '(send-mail-function (quote smtpmail-send-it)))
 
@@ -106,34 +102,7 @@
       c-basic-offset 4)
 
 ;; haskell
-(add-hook 'haskell-mode-hook #'hindent-mode)
-(add-hook 'haskell-mode-hook 'flyspell-prog-mode)
-
-(eval-after-load 'haskell-mode
-  '(define-key haskell-mode-map [f8] 'haskell-navigate-imports))
-
-
-
-;;; ghc-mod
-(let ((my-cabal-path (expand-file-name "~/.cabal/bin")))
-  (setenv "PATH" (concat my-cabal-path ":" (getenv "PATH")))
-  (add-to-list 'exec-path my-cabal-path))
-
-(autoload 'ghc-init "ghc" nil t)
-(autoload 'ghc-debug "ghc" nil t)
-(add-hook 'haskell-mode-hook (lambda () (ghc-init)))
-
-;; flycheck
-(eval-after-load 'flycheck
-  '(add-hook 'flycheck-mode-hook #'flycheck-haskell-setup))
-
-;; hlint
-(add-to-list 'load-path "~/.emacs.d/hs-lint")
-(require 'hs-lint)
-(defun my-haskell-mode-hook ()
-   (local-set-key "\C-cl" 'hs-lint))
-
-(add-hook 'haskell-mode-hook 'my-haskell-mode-hook)
+(add-hook 'haskell-mode-hook 'intero-mode)
 
 ;; gofmt
 (add-hook 'before-save-hook #'gofmt-before-save)
diff --git a/packages.el b/packages.el
index 9892094..c150774 100644
--- a/packages.el
+++ b/packages.el
@@ -41,6 +41,7 @@
                      markdown-mode
                      flycheck
                      flycheck-rust
+                     flycheck-haskell
                      racer
                      intero
                      debpaste))