cursor, hl mode, haskell-mode

[.emacs.d.git] / init.el

diff --git a/init.el b/init.el
index c06efafaad2661779bf916c54f8323c5b337848b..e0718b25eea01cfc416cf1edb7e9dd24351fdb5f 100644 (file)
--- a/init.el
+++ b/init.el
@@ -7,6 +7,9 @@
 (setq initial-scratch-message "")
 (setq inhibit-startup-message t)
 
+;; cursor bar
+(setq-default cursor-type '(bar . 2))
+
 ;; column number
 (column-number-mode 1)
 
@@ -38,7 +41,7 @@
   (package-refresh-contents))
 
 ;; make sure my list of packages are installed
-(setq package-list '(go-mode rust-mode haskell-mode clojure-mode ghc restclient tangotango-theme cider slime))
+(setq package-list '(go-mode rust-mode haskell-mode clojure-mode ghc restclient tangotango-theme cider fill-column-indicator paredit))
 
 ; install the missing packages
 (dolist (package package-list)
@@ -55,7 +58,7 @@
 
 (erc-autojoin-mode t)
 (setq erc-autojoin-channels-alist
-  '((".*\\.freenode.net" "#tahoe-lafs" "#inferno" "#cat-v")
+  '((".*\\.freenode.net" "#tahoe-lafs")
     (".*\\.oftc.net" "#LeastAuthority")))
 
 ;; check channels
@@ -85,6 +88,35 @@
 ;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
 
+;; haskell mode
+(custom-set-variables
+  '(haskell-process-suggest-remove-import-lines t)
+  '(haskell-process-auto-import-loaded-modules t)
+  '(haskell-process-log t))
+(eval-after-load 'haskell-mode '(progn
+  (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-or-reload)
+  (define-key haskell-mode-map (kbd "C-c C-z") 'haskell-interactive-switch)
+  (define-key haskell-mode-map (kbd "C-c C-n C-t") 'haskell-process-do-type)
+  (define-key haskell-mode-map (kbd "C-c C-n C-i") 'haskell-process-do-info)
+  (define-key haskell-mode-map (kbd "C-c C-n C-c") 'haskell-process-cabal-build)
+  (define-key haskell-mode-map (kbd "C-c C-n c") 'haskell-process-cabal)
+  (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space)))
+(eval-after-load 'haskell-cabal '(progn
+  (define-key haskell-cabal-mode-map (kbd "C-c C-z") 'haskell-interactive-switch)
+  (define-key haskell-cabal-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear)
+  (define-key haskell-cabal-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build)
+  (define-key haskell-cabal-mode-map (kbd "C-c c") 'haskell-process-cabal)))
+
+(eval-after-load 'haskell-mode
+  '(define-key haskell-mode-map (kbd "C-c C-o") 'haskell-compile))
+(eval-after-load 'haskell-cabal
+  '(define-key haskell-cabal-mode-map (kbd "C-c C-o") 'haskell-compile))
+
+(eval-after-load 'haskell-mode
+  '(define-key haskell-mode-map [f8] 'haskell-navigate-imports))
+
+(custom-set-variables '(haskell-process-type 'cabal-repl))
+
 ;; ghc-mod
 (autoload 'ghc-init "ghc" nil t)
 (autoload 'ghc-debug "ghc" nil t)
@@ -122,9 +154,25 @@
 
 ;; gofmt
 (add-hook 'before-save-hook #'gofmt-before-save)
-
-
-;; slime/CL
-;; Set your lisp system and, optionally, some contribs
-(setq inferior-lisp-program "~/.nix-profile/bin/sbcl")
-(setq slime-contribs '(slime-fancy))
+(add-hook 'go-mode-hook (lambda ()
+                          (local-set-key (kbd "C-c C-r")
+                                         'go-remove-unused-imports)))
+(add-hook 'go-mode-hook (lambda ()
+                          (local-set-key (kbd "C-c i")
+                                         'go-goto-imports)))
+
+;; asp
+(add-to-list 'load-path "~/.emacs.d/asp-mode")
+(autoload 'asp-mode "asp-mode")
+(setq auto-mode-alist
+      (cons '("\\.asp\\'" . asp-mode) auto-mode-alist))
+
+;; line-number-mode
+(global-linum-mode t)
+(global-hl-line-mode t)
+(set-face-background hl-line-face "#525252")
+
+;; fci -- fill-column-indicator
+(setq fci-rule-column 81)
+(setq fci-rule-width 1)
+(setq fci-rule-color "darkblue")