 
 ;;;; Packages
 
-(setq package-archives '(
-                         ("gnu"       . "http://elpa.gnu.org/packages/")
+(setq package-archives '(("gnu"       . "http://elpa.gnu.org/packages/")
                          ("marmalade" . "http://marmalade-repo.org/packages/")
-                         ("melpa"     . "http://melpa.milkbox.net/packages/")
-                         ))
+                         ("melpa"     . "http://melpa.milkbox.net/packages/")))
 
 ;;;; Theme and faces
 

  (message (buffer-file-name)))

(defun kill-region-or-backward-word ()
  "If the region is active and non-empty, call `kilregion'.
Otherwise, call `backward-kill-word'."
  (interactive)
  (call-interactively
   (if (use-region-p) 'kill-region 'backward-kill-word)))

        (beginning-of-line)
        (comment-or-uncomment-region (point) end)))))

(defun semantic-unit (arg)
  "Go to the next semantic unit if arg is positive or to the previous one if negative."
  (interactive "p")
  (when (nth 3 (syntax-ppss))
    (if (> arg 0)
