 ;;;; Useful Functions
 (defun print-list (list)
   (while list
-    (princ (car list))
-    (princ "\n")
+    (princ-list (car list) "\n")
     (setq list (cdr list))))



;;;; Colors
(add-to-list 'default-frame-alist '(foreground-color . "#E0E0E0"))
(add-to-list 'default-frame-alist '(background-color . "#000000"))
(set-face-attribute 'linum nil :foreground "#00cc00")

;; Rainbow delimiters colors
(set-face-attribute 'rainbow-delimiters-depth-1-face nil :foreground "#ff0000")
(set-face-attribute 'rainbow-delimiters-depth-2-face nil :foreground "#00ff00")
(set-face-attribute 'rainbow-delimiters-depth-3-face nil :foreground "#0066ff")
(set-face-attribute 'rainbow-delimiters-depth-4-face nil :foreground "#ffff00")
(set-face-attribute 'rainbow-delimiters-depth-5-face nil :foreground "#ff00ff")
(set-face-attribute 'rainbow-delimiters-depth-6-face nil :foreground "#00ffff")
(set-face-attribute 'rainbow-delimiters-depth-7-face nil :foreground "#880000")
(set-face-attribute 'rainbow-delimiters-depth-8-face nil :foreground "#008800")
(set-face-attribute 'rainbow-delimiters-depth-9-face nil :foreground "#0000ff")
(set-face-attribute 'rainbow-delimiters-mismatched-face nil
		    :foreground "white" :background "red")
(set-face-attribute 'rainbow-delimiters-unmatched-face nil
		    :foreground "white" :background "red")


;;;; Key bindings

  (other-window 1)))
(global-set-key (kbd "C-x 3") 'my-split-window-right)

(global-set-key (kbd "C-.") 'repeat)

;;; Evil-mode key bindings
(evil-define-key 'insert global-map (kbd "C-c") 'evil-esc)

;;; Clear some keys
(global-unset-key (kbd "C-z"))
