 (setq use-package-verbose t)
 (require 'use-package)
 
+(use-package ace-window
+  :bind ("M-p" . ace-window)
+  :init (progn
+          (setq aw-keys '(?a ?r ?s ?t ?n ?e ?i ?o))
+          (ace-window-display-mode)))
+
 (use-package avy
   :bind (("C-=" . avy-goto-word-1)
          ("M-g g" . avy-goto-line))

(use-package sh-script
  :init (add-shell-extension "zsh"))

(use-package whitespace
  :bind ("C-c w" . whitespace-mode))


(use-package company
  :init (global-company-mode))

(use-package counsel
  :bind (("M-x" . counsel-M-x)
         ("C-h b" . counsel-descbinds)
         ("C-x C-f" . counsel-find-file)))

(use-package dante
  :init  (add-hook 'haskell-mode-hook 'dante-mode))
