 
 ;; better buffer names
 (require 'uniquify)
-(setq uniquify-buffer-name-style 'forward)
-(setq uniquify-strip-common-suffix nil)
-(setq uniquify-separator "/")
-(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
-(setq uniquify-ignore-buffers-re "^\\*") ; don't muck with special buffers
-
-;; anything.el - Quicksilver for Emacs
-(require 'anything)
-(require 'anything-config)
-(setq anything-sources
-      (list anything-c-source-buffers
-            anything-c-source-file-name-history
-            anything-c-source-emacs-commands
-            anything-c-source-locate))
+(setq uniquify-buffer-name-style   'forward
+      uniquify-strip-common-suffix nil
+      uniquify-separator           "/"
+      uniquify-after-kill-buffer-p t
+      uniquify-ignore-buffers-re   "^\\*")
 
 ;; ido.el - better buffer and filename completion
 (autoload 'ido-mode "ido")

(add-hook 'haskell-mode-hook 'turn-on-haskell-decl-scan)

;; org mode
(setq org-agenda-files (list "~/wiki/Work.org" "~/wiki/Work.org_archive"))
(setq org-hide-leading-stars t)
(setq org-log-done t)
(setq org-agenda-skip-archived-trees nil)
(setq org-highlight-sparse-tree-matches nil)
(global-set-key "\C-ca" 'org-agenda)
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
;; persist the "anything" keybinding in org-mode
(defun org-mode-setup ()
  (define-key org-mode-map (kbd "C-<return>") 'anything)
  (define-key org-mode-map (kbd "C-M-<return>") 'org-meta-return))
(add-hook 'org-mode-hook 'org-mode-setup)

;; restructured text
(autoload 'rst-mode "rst" "restructured text" t)

(autoload 'gist-region-private "gist" "Gist" t)
(autoload 'gist-region-or-buffer "gist" "Gist" t)
(autoload 'gist-region-or-buffer-private "gist" "Gist" t)

;; Highlight the current line
(global-hl-line-mode t)
(set-face-background 'hl-line "#eeeeee")

;; Rebind keys
(global-set-key (kbd "C-!") 'shell-command)
(global-set-key (kbd "C-|") 'shell-command-on-region)
(global-set-key (kbd "C-c C-r") 'sudo-edit-current-file)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cl" 'org-store-link)
;; Hippie expansion
(global-set-key (kbd "C-SPC") (make-hippie-expand-function
                             '(try-complete-file-name-partially
                               try-complete-file-name
                               try-expand-dabbrev) t))
;; New ergonomic bindings
;;://xahlee.org/emacs/ergonomic_emacs_keybinding.html
(load "ergonomic_keybinding_qwerty")
;; I don't like all of them
(global-set-key (kbd "C-n") 'make-frame-command)
(global-set-key (kbd "C-b") 'switch-to-buffer)
(global-set-key
     "\M-a"
     (lambda ()
       (interactive)
       (call-interactively
        (intern
         (ido-completing-read
          "M-a "
          (all-completions "" obarray 'commandp))))))

;; add a column of numbers
(defun sum-column()
