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

;; Add space after line numbers when used from terminal.
(unless window-system (setq linum-format "%d "))


;;;; Hooks
(defconst mode-hooks
  '(emacs-lisp-mode-hook
    python-mode-hook
    clojure-mode-hook))

(dolist (h mode-hooks)
  (add-hook h #'rainbow-delimiters-mode)
  (add-hook h (lambda () (column-marker-1 79))))


	((home-linuxp)
	 (find-file "/ssh:chris@192.168.1.50:/home/chris/stuff")))))

(define-key global-map (kbd "C-q C-t") (cmd (term "/bin/bash")))
(define-key global-map (kbd "C-;") 'buffer-menu)
(define-key global-map (kbd "C-'") 'find-file)

;; Bindings for highlight-symbol
(define-key global-map (kbd "C-q C-w") 'highlight-symbol)
(define-key global-map (kbd "C-q w") 'highlight-symbol-remove-all)
