inconsolata

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

diff --git a/init.el b/init.el
index 8a4d472187ee6e6eec4aa36e6ab52a74cc7b57e6..e176516441f39f5501068dadcf213be5f80ee2e2 100644 (file)
--- a/init.el
+++ b/init.el
@@ -7,9 +7,15 @@
 (setq initial-scratch-message "")
 (setq inhibit-startup-message t)
 
+;; cursor bar
+(setq-default cursor-type '(bar . 2))
+
 ;; column number
 (column-number-mode 1)
 
+;; font
+(set-default-font "Inconsolata-12")
+
 ;; Don't let Emacs hurt your ears
 (setq visible-bell t)
 
@@ -38,7 +44,17 @@
   (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))
+(setq package-list '(go-mode
+                     rust-mode
+                     haskell-mode
+                     clojure-mode
+                     ghc
+                     restclient
+                     tangotango-theme
+                     cider
+                     fill-column-indicator
+                     paredit
+                     leuven-theme))
 
 ; install the missing packages
 (dolist (package package-list)
@@ -47,6 +63,7 @@
 
 ;; tangotango
 (load-theme 'tangotango t)
+;; (load-theme 'leuven t)
 
 ;; erc
 (require 'erc)
@@ -55,7 +72,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 +102,32 @@
 ;(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
 (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
 
+;; haskell mode
+(require 'haskell-interactive-mode)
+(require 'haskell-process)
+(add-hook 'haskell-mode-hook 'interactive-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-`") 'haskell-interactive-bring)
+     (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type)
+     (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info)
+     (define-key haskell-mode-map (kbd "C-c C-c") 'haskell-process-cabal-build)
+     (define-key haskell-mode-map (kbd "C-c C-k") 'haskell-interactive-mode-clear)
+     (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal)
+     (define-key haskell-mode-map (kbd "SPC") 'haskell-mode-contextual-space)
+
+     (define-key haskell-cabal-mode-map (kbd "C-`") 'haskell-interactive-bring)
+     (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)))
+
 ;; ghc-mod
 (autoload 'ghc-init "ghc" nil t)
 (autoload 'ghc-debug "ghc" nil t)
@@ -122,3 +165,27 @@
 
 ;; gofmt
 (add-hook 'before-save-hook #'gofmt-before-save)
+(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 0)
+
+;; fci -- fill-column-indicator
+(setq fci-rule-column 81)
+(setq fci-rule-width 1)
+(setq fci-rule-color "darkblue")
+
+;; turn off electric-indent-mode
+(when (fboundp 'electric-indent-mode) (electric-indent-mode -1))