 (setq package-archives '(("elpa" . "http://tromey.com/elpa/")
 			 ("gnu" . "http://elpa.gnu.org/packages/")
 			 ("melpa" . "http://melpa.milkbox.net/packages/")
-			 ("marmalade" . "http://marmalade-repo.org/packages/")
+			 ;; ("marmalade" . "http://marmalade-repo.org/packages/")
 			 ("org" . "http://orgmode.org/elpa/")))
 (package-initialize)
 

    smex smooth-scrolling undo-tree yasnippet ecb smart-forward scratch-ext
    org-bullets git-gutter+ xclip sudo-ext iy-go-to-char isearch-symbol-at-point
    idomenu ido-at-point emacs-setup boxquote git-commit-training-wheels-mode
    git-commit flx-ido jump-char smart-tab unicode-fonts
))

(defun check-and-install (list)
  (let (v)
    (dolist (p list v)
      (if (not (package-installed-p p))
          (package-install p))))
  (message "Package check and installation done."))

(check-and-install package-list)

(require 'sane-defaults)
(require 'common-init)

(when (not package-archive-contents)
    (package-refresh-contents))

(defvar packages-list '(
    whitespace fill-column-indicator paredit dropdown-list popup telepathy
    highlight-parentheses c-eldoc emamux figlet auto-complete autopair
    auto-complete-clang rainbow-mode rainbow-delimiters ace-jump-mode
