init.el

;;; init.el -- NixOS-specific init file

;;; Commentary:
;; seriously, fuck computers

;;; Code:

(add-to-list 'default-frame-alist '(height . 55))
(add-to-list 'default-frame-alist '(width . 188))

(require 'package)

(add-to-list 'package-archives '("melpa" . "http://melpa-stable.milkbox.net/packages/") t)

(package-initialize)

(global-set-key (kbd "C-c a") 'nil)

(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)

(package-install 'use-package)

(eval-when-compile
  (require 'use-package))

(require 'bind-key)
(require 'diminish)

(load-theme 'deeper-blue)

(use-package smart-mode-line
  :ensure t
  :init (sml/setup)
  :config (setq sml/theme 'respectful))

(use-package exec-path-from-shell
  :ensure t
  :init (exec-path-from-shell-initialize))

(use-package recentf
  :init (recentf-mode t)
  :config
  (add-to-list 'recentf-exclude "\\.emacs.d"))

(use-package nix-mode
  :ensure t
  :mode ("\\.nix$" . nix-mode))

(use-package helm
  :ensure t
  :init (progn
	  (require 'helm-command)
	  (helm-mode t))

  :bind (("C-c ;" . helm-M-x)
	 ("C-c r" . helm-recentf)
	 ("C-c y" . helm-show-kill-ring))
  :config (setq-default helm-M-x-fuzzy-match t)
  :diminish helm-mode)

(use-package projectile
  :ensure t
  :bind (("C-c f" . projectile-find-file)
         ("C-x f" . projectile-find-file) ; overwrites set-fill-column
         ("C-c c" . projectile-compile-project))
  :init (projectile-global-mode)
  :config (setq projectile-completion-system 'helm
		projectile-enable-caching t)
  :diminish projectile-mode)

(use-package company
  :ensure t
  :init (global-company-mode 1)
  :bind (("M-/" . company-complete))
  :config (setq company-minimum-prefix-length 2)
  :diminish company-mode)

(use-package prodigy
  :ensure t
  :bind (("C-c p" . prodigy))
  :config
  (progn
    (prodigy-define-service
      :name "PostgreSQL"
      :command "postgres"
      :args '("-D" "/usr/local/var/postgres"))))

(use-package linum
  :init (global-linum-mode t)
  :config (setq linum-format "%d"))

(use-package magit
  :ensure t
  :bind (("C-c g" . magit-status))
  :init (setq-default magit-last-seen-setup-instructions "1.4.0")
  :diminish magit-auto-revert-mode)

(use-package eshell
  :bind (("C-c s" . eshell)
	 ("C-r" . helm-eshell-history)))

(use-package markdown-mode
  :mode ("\\.md$" . markdown-mode)
  :ensure t)

(use-package haskell-mode
  :ensure t
  :init (progn
	  (add-hook 'haskell-mode-hook 'interactive-haskell-mode)
	  (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode))

  :bind (("C-c c" . haskell-process-cabal-build)
	 ("C-c a c" . haskell-cabal-visit-file)
	 ("C-c a f " . haskell-interactive-bring)
	 ("C-c a F " . haskell-session-kill))
  :mode ("\\.hs$" . haskell-mode)
  :config (setq
	   haskell-process-suggest-remove-import-lines t
	   haskell-ask-also-kill-buffers nil
	   haskell-process-log t))

(use-package hi2
  :ensure t
  :init
  (add-hook 'haskell-mode-hook 'turn-on-hi2))

(use-package ghc
  :ensure t)

;; NOTE THAT ghc DOES NOT WORK WITH use-package.
(require 'ghc)
(defvar ghc-interactive-command "ghc-modi")
(autoload 'ghc-init "ghc" nil t)
(autoload 'ghc-debug "ghc" nil t)
(add-hook 'haskell-mode-hook 'ghc-init)
(setq ghc-debug t)

(use-package company-ghc
  :ensure t
  :init (add-to-list 'company-backends 'company-ghc))

(add-hook 'emacs-lisp-mode 'flycheck-mode)
(add-hook 'emacs-lisp-mode 'eldoc-mode)
(add-hook 'emacs-lisp-mode 'electric-pair-mode)
(add-hook 'before-save-hook 'delete-trailing-whitespace)

(defadvice isearch-search (after isearch-no-fail activate)
  (unless isearch-success
    (ad-disable-advice 'isearch-search 'after 'isearch-no-fail)
    (ad-activate 'isearch-search)
    (isearch-repeat (if isearch-forward 'forward))
    (ad-enable-advice 'isearch-search 'after 'isearch-no-fail)
    (ad-activate 'isearch-search)))

(defun open-init-file ()
  "Open this very file."
  (interactive)
  (find-file user-init-file))

(bind-key "C-c e" 'open-init-file)

(defun split-right-and-enter ()
  "Split the window to the right and enter it."
  (interactive)
  (split-window-right)
  (other-window 1))

(bind-key "C-c 3" 'split-right-and-enter)

(defun switch-to-previous-buffer ()
  "Switch to previously open buffer.  Repeated invocations toggle between the two most recently open buffers."
  (interactive)
  (switch-to-buffer (other-buffer (current-buffer) 1)))

(bind-key "C-c '" 'switch-to-previous-buffer)

(global-hl-line-mode t)
(show-paren-mode t)
(delete-selection-mode t)
(column-number-mode t)

(setq mouse-wheel-scroll-amount '(1 ((shift) . 1)))

(defalias 'yes-or-no-p 'y-or-n-p)

(setq
 make-backup-files nil
 inhibit-startup-screen t
 initial-scratch-message nil
 blink-matching-paren t
 require-final-newline t
 ring-bell-function 'ignore
 use-dialog-box nil
 make-backup-files nil
 indent-tabs-mode nil
 compilation-always-kill t
 create-lockfiles nil
 require-final-newline t)


(setq-default
 cursor-type 'bar)

(provide 'init)

;;; init.el ends here