 
 ;; M-x slime calls sbcl
 (load (expand-file-name "~/.quicklisp/slime-helper.el"))
+(require 'slime-autoloads)
 (setq inferior-lisp-program "sbcl")
 (setq slime-default-lisp 'sbcl)
+(setq slime-contribs '(slime-scratch slime-editing-commands slime-fancy))
+(add-hook 'lisp-mode-hook
+          (lambda ()
+            (set (make-local-variable 'lisp-indent-function)
+                 'common-lisp-indent-function)))
+(put 'lambda 'lisp-indent-function 'defun)
+(put 'while 'lisp-indent-function 1)
+(put 'unless 'lisp-indent-function 1)
+(put 'if 'lisp-indent-function nil)
+(put 'do 'lisp-indent-function 2)
+(put 'do* 'lisp-indent-function 2)
 
 (menu-bar-mode -1)
 

  (package-refresh-contents))

(setq my-required-packages '(evil evil-collection evil-magit
                                  fill-column-indicator general hide-mode-line org-beautify-theme
                                  org-bullets org-gcal org-pdfview org-present powerline
                                  racket-mode smart-mode-line smart-mode-line-powerline-theme ssh-agency
                                  use-package yafolding))
(dolist (package my-required-packages)
  (unless (package-installed-p package)
    (package-install package)))


  (dolist (map  (list minibuffer-local-isearch-map))
    (define-key map (kbd "n") 'isearch-printing-char))

  (global-set-key [escape] 'evil-exit-emacs-state)

  (define-key evil-normal-state-map (kbd "C-k") (lambda () (interactive) (evil-scroll-up nil)))
