erc: add #hackage

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

diff --git a/init.el b/init.el
index a201655ba911012e211d07fe32eeae866e53a3ab..6dbc88273255489f66d814c7fe0e4bf07a9dad94 100644 (file)
--- a/init.el
+++ b/init.el
@@ -3,13 +3,16 @@
 ;; y-or-n instead of yes-or-no
 (defalias 'yes-or-no-p 'y-or-n-p)
 
+;; theme
+(require 'color-theme-sanityinc-tomorrow)
+
 ;; Don't show startup msg, don't store tilde files
 (setq make-backup-files nil)
 (setq initial-scratch-message "")
 (setq inhibit-startup-message t)
 
 ;; turn OFF syntax highlighting
-(global-font-lock-mode 0)
+; (global-font-lock-mode 0)
 
 ;; cursor bar
 (setq-default cursor-type '(bar . 2))
@@ -35,8 +38,13 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(initial-frame-alist (quote ((fullscreen . maximized))))
+ '(org-todo-keywords
+   (quote
+    ((sequence "TODO(t)" "INPROGRESS(p)" "WAIT(w)" "|" "DONE(d)" "CANCELLED(c)" "REVISIT(r)"))))
  '(send-mail-function (quote smtpmail-send-it)))
 
+(setq org-agenda-files '("~/notes/"))
+
 ;; Who use the bar to scroll?
 (when (display-graphic-p)
   (progn
@@ -57,8 +65,8 @@
 
 (erc-autojoin-mode t)
 (setq erc-autojoin-channels-alist
-      '((".*\\.freenode.net" "#tahoe-lafs")
-        (".*\\.oftc.net" "#debian-uk")
+      '((".*\\.freenode.net" "#hackage" "#haskell-beginners" "#tahoe-lafs")
+        (".*\\.oftc.net" "#debian-uk" "#debian-in")
         ;; (".*\\.mozilla.org" "#rust-beginners")
         ))
 
@@ -102,7 +110,15 @@
       c-basic-offset 4)
 
 ;; haskell
-(add-hook 'haskell-mode-hook 'intero-mode)
+;; (add-hook 'haskell-mode-hook 'intero-mode)
+
+;; 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)
 
 ;; gofmt
 (add-hook 'before-save-hook #'gofmt-before-save)