.emacs

;(setq load-path (append '("~/.elisp/") load-path))
;(load "/opt/local/share/emacs/site-lisp/haskell-mode-2.4/haskell-site-file")
(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
(add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
(add-hook 'haskell-mode-hook 'font-lock-mode)
(add-hook 'haskell-mode-hook 'imenu-add-menubar-index)
;(autoload 'markdown-mode "markdown-mode"
;  "Major mode for editing Markdown files" t)
;(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
;(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
;(add-to-list 'auto-mode-alist '("\\.mdwn\\'" . markdown-mode))
(require 'package) ;; You might already have this line
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(colon-double-space nil)
 '(column-number-mode t)
 '(comment-column 48)
 '(confirm-kill-emacs (quote yes-or-no-p))
 '(current-language-environment "UTF-8")
 '(desktop-save-mode t)
 '(fill-column 78)
 '(focus-follows-mouse nil)
 '(frame-background-mode (quote dark))
 '(global-linum-mode t)
 '(ibuffer-use-other-window t)
 '(icomplete-mode t)
 '(indicate-buffer-boundaries (quote right))
 '(indicate-empty-lines t)
 '(inhibit-startup-screen t)
 '(initial-scratch-message nil)
 '(iswitchb-mode t)
 '(package-archives
   (quote
    (("gnu" . "http://elpa.gnu.org/packages/")
     ("melpa-stable" . "http://stable.melpa.org/packages/"))))
 '(package-selected-packages (quote (discover yafolding haskell-mode)))
 '(partial-completion-mode t)
 '(save-place t nil (saveplace))
 '(scalable-fonts-allowed t)
 '(sentence-end-double-space nil)
 '(show-paren-mode t)
 '(size-indication-mode t)
 '(speedbar-frame-parameters
   (quote
    ((minibuffer)
     (width . 30)
     (border-width . 0)
     (menu-bar-lines . 0)
     (tool-bar-lines . 0)
     (unsplittable . t)
     (left-fringe . 0))))
 '(speedbar-frame-plist
   (quote
    (minibuffer nil width 30 border-width 0 internal-border-width 0 unsplittable t default-toolbar-visible-p nil has-modeline-p nil menubar-visible-p nil default-gutter-visible-p nil)))
 '(speedbar-hide-button-brackets-flag t)
 '(speedbar-show-unknown-files t)
 '(speedbar-track-mouse-flag t)
 '(text-mode-hook
   (quote
    (turn-on-flyspell turn-on-auto-fill text-mode-hook-identify)))
 '(tool-bar-mode nil)
 '(tooltip-mode nil)
 '(uniquify-buffer-name-style (quote forward) nil (uniquify))
 '(visible-cursor t))
(package-initialize) ;; You might already have this line
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "black" :foreground "grey70" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :family "Source Code Variable" :foundry "ADBO"))))
 '(cursor ((t (:background "light gray"))))
 '(fixed-pitch ((t (:family "apple-monaco"))))
 '(linum ((t (:inherit (shadow default) :height 60))))
 '(mode-line ((t (:background "grey75" :foreground "#1a1a1a" :box (:line-width -1 :style released-button)))))
 '(variable-pitch ((t (:family "arial")))))

(put 'upcase-region 'disabled nil)
(setq cperl-hairy t)
; this is probably beyond evil
(require 'cperl-mode)
(fset 'perl-mode (symbol-function 'cperl-mode))

(require 'yafolding)
(add-hook 'text-mode-hook 'yafolding-mode)

;; these are *nice*
;; (will be nicer when I get around to combining them properly)
(global-set-key [3 127] 'c-hungry-backspace)
(global-set-key [3 9] '(lambda (backp)
			   (interactive "P")
			   (delete-horizontal-space backp)
			   (indent-relative)))
(setq auto-mode-alist
      (append '(("[Mm][Aa][Nn][Ii][Ff][Ee][Ss][Tt]\\.mf\\'" . conf-mode))
	      auto-mode-alist))

(server-start)
(put 'scroll-left 'disabled nil)