init.el

   1 ;; Prevent the cursor from blinking
   2 (blink-cursor-mode 0)
   3
   4 ;; Don't use messages that you don't rea
   5 (setq make-backup-files nil)
   6 (setq initial-scratch-message "")
   7 (setq inhibit-startup-message t)
   8 ;; Don't let Emacs hurt your ears
   9 (setq visible-bell t)
  10
  11 ;; This is bound to f11 in Emacs 24.4
  12 ;; (toggle-frame-fullscreen)
  13 (custom-set-variables
  14  '(initial-frame-alist (quote ((fullscreen . maximized)))))
  15 ;; Who use the bar to scroll?
  16 (scroll-bar-mode 0)
  17
  18 (tool-bar-mode 0)
  19 (menu-bar-mode 0)
  20
  21 ; my-packages.el
  22 (require 'package)
  23 (add-to-list 'package-archives
  24              '("melpa" . "http://melpa.milkbox.net/packages/") t)
  25 (add-to-list 'package-archives
  26              '("marmalade" . "http://marmalade-repo.org/packages/") t)
  27 (package-initialize)
  28
  29 ; fetch the list of packages available
  30 (unless package-archive-contents
  31   (package-refresh-contents))
  32
  33 ;; make sure my list of packages are installed
  34 (setq package-list '(rust-mode haskell-mode monokai-theme racket-mode clojure-mode cider paredit go-mode))
  35
  36 ; install the missing packages
  37 (dolist (package package-list)
  38   (unless (package-installed-p package)
  39     (package-install package)))
  40
  41 ;; monokai
  42 (load-theme 'monokai t)
  43
  44 ;; erc
  45 (require 'erc)
  46
  47 (erc-autojoin-mode t)
  48 (setq erc-autojoin-channels-alist
  49   '((".*\\.freenode.net" "#tahoe-lafs")
  50     (".*\\.oftc.net" "#LeastAuthority")))
  51
  52 ;; check channels
  53 (erc-track-mode t)
  54 (setq erc-track-exclude-types '("JOIN" "NICK" "PART" "QUIT" "MODE"
  55
  56                                  "324" "329" "332" "333" "353" "477"))
  57 ;; don't show any of this
  58 (setq erc-hide-list '("JOIN" "PART" "QUIT" "NICK"))
  59
  60 (defun start-erc ()
  61   "Connect to IRC."
  62   (interactive)
  63   (when (y-or-n-p "Do you want to start IRC? ")
  64     (erc :server "irc.freenode.net" :port 6667 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan")
  65     (erc :server "irc.oftc.net" :port 6667 :nick "rkrishnan" :full-name "Ramakrishnan Muthukrishnan")))
  66
  67 ;; switch to ERC with Ctrl+c e
  68 (global-set-key (kbd "C-c e") 'start-erc) ;; ERC
  69
  70 ;; haskell mode
  71 (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)