From e17405628cf962050a6b59b4eae3a1480c6a3cba Mon Sep 17 00:00:00 2001
From: inaki <inaki@prometheus>
Date: Tue, 6 Jun 2017 12:10:37 +0200
Subject: [PATCH] maybe fixed the damn package install

---
 init.el        |  7 -------
 my-packages.el | 28 +++++++++++++++++++++++-----
 2 files changed, 23 insertions(+), 12 deletions(-)

diff --git a/init.el b/init.el
index f428908..612c531 100644
--- a/init.el
+++ b/init.el
@@ -6,13 +6,6 @@
   (byte-recompile-directory user-emacs-directory 0))
 
 (load "~/.emacs.d/my-packages.el")
-(unless (prelude-packages-installed-p)
-  (message "%s" "Emacs Prelude is now refreshing its package database...")
-  (package-refresh-contents)
-  (message "%s" " done.")
-  (dolist (p prelude-packages)
-    (when (not (package-installed-p p))
-      (package-install p))))
 (byte-compile-init-dir)
 (load "~/.emacs.d/my-loadpackages.elc")
 (add-hook 'after-init-hook
diff --git a/my-packages.el b/my-packages.el
index 9d4b737..08b4dee 100644
--- a/my-packages.el
+++ b/my-packages.el
@@ -1,10 +1,13 @@
 (require 'package)
 (add-to-list 'package-archives
              '("melpa" . "http://melpa.milkbox.net/packages/") t)
-(add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
+(add-to-list 'package-archives '("marmalade" . "https://marmalade-repo.org/packages/"))
 (add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") t
 (add-to-list 'load-path "~/.emacs.d/lisp/" t)
 
+(unless package-archive-contents
+  (package-refresh-contents))
+
 (defvar prelude-packages
   '(all-the-icons async base16-theme bind-chord bind-key counsel dash diminish
 		  epl evil evil-magit fill-column-indicator ghc git-commit
@@ -13,7 +16,22 @@
 		  web-mode with-editor)
   "A list of packages to ensure are installed at launch.")
 
-(defun prelude-packages-installed-p ()
-  (if (member nil '(mapcar 'package-installed-p prelude-packages))
-      nil
-    t))
+
+
+;; (defun prelude-packages-installed-p ()
+;;   (let lst (mapcar 'package-installed-p prelude-packages)
+;;        (if (member nil 'lst)
+;; 	   nil
+;; 	 t)))
+
+;;(unless (prelude-packages-installed-p)
+;;  (message "%s" "Emacs Prelude is now refreshing its package database...")
+;;  (package-refresh-contents)
+;;  (message "%s" " done.")
+;;  (dolist (p prelude-packages)
+;;    (when (not (package-installed-p p))
+;;      (package-install p))))
+
+(dolist (pkg prelude-packages)
+ (unless (package-installed-p pkg)
+   (package-install pkg)))