From 11c1f01645b583fd6691bdddf1bb7804890d61cf Mon Sep 17 00:00:00 2001
From: Konrad Hinsen <konrad.hinsen@fastmail.net>
Date: Mon, 13 Jan 2020 21:06:21 +0100
Subject: [PATCH] =?UTF-8?q?Pas=20de=20connexion=20=C3=A0=20ELPA=20s'il=20n?=
 =?UTF-8?q?'y=20a=20plus=20rien=20=C3=A0=20installer?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Pour qu'on puisse travailler sans réseau
---
 module2/ressources/rr_org/init.el  | 19 ++++++++++++-------
 module2/ressources/rr_org/init.org | 23 ++++++++++++++---------
 2 files changed, 26 insertions(+), 16 deletions(-)

diff --git a/module2/ressources/rr_org/init.el b/module2/ressources/rr_org/init.el
index 62d3b16..eb85ea4 100644
--- a/module2/ressources/rr_org/init.el
+++ b/module2/ressources/rr_org/init.el
@@ -57,16 +57,21 @@
 		 '("melpa-stable" . "http://stable.melpa.org/packages/"))
 (add-to-list 'package-archives
 		 '("melpa" . "http://melpa.org/packages/"))
-(package-refresh-contents)
 (setq package-archive-priorities '(("gnu" . 100)
                                    ("melpa-stable" . 10)))
 
-(dolist (pkg '(ess
-               auctex
-               htmlize
-               exec-path-from-shell))
-  (when (not (package-installed-p pkg))
-    (package-install pkg)))
+(let* ((required-packages
+        '(ess
+          auctex
+          htmlize
+          exec-path-from-shell))
+       (missing-packages (remove-if #'package-installed-p required-packages)))
+  (when missing-packages
+    (message "Missing packages: %s" missing-packages)
+    (package-refresh-contents)
+    (dolist (pkg missing-packages)
+      (package-install pkg)
+      (message "Package %s has been installed" pkg))))
 
 (unless (memq system-type '(windows-nt ms-dos))
   (exec-path-from-shell-initialize)
diff --git a/module2/ressources/rr_org/init.org b/module2/ressources/rr_org/init.org
index ed90891..0df6ec7 100644
--- a/module2/ressources/rr_org/init.org
+++ b/module2/ressources/rr_org/init.org
@@ -80,18 +80,23 @@ document, simply =M-x org-babel-tangle=.
 		 '("melpa-stable" . "http://stable.melpa.org/packages/"))
 (add-to-list 'package-archives
 		 '("melpa" . "http://melpa.org/packages/"))
-(package-refresh-contents)
 (setq package-archive-priorities '(("gnu" . 100)
                                    ("melpa-stable" . 10)))
 #+END_SRC
-* Install missing packages
-#+begin_src emacs-lisp :tangle init.el
-(dolist (pkg '(ess
-               auctex
-               htmlize
-               exec-path-from-shell))
-  (when (not (package-installed-p pkg))
-    (package-install pkg)))
+* Install packages
+#+begin_src emacs-lisp :tangle init.el
+(let* ((required-packages
+        '(ess
+          auctex
+          htmlize
+          exec-path-from-shell))
+       (missing-packages (remove-if #'package-installed-p required-packages)))
+  (when missing-packages
+    (message "Missing packages: %s" missing-packages)
+    (package-refresh-contents)
+    (dolist (pkg missing-packages)
+      (package-install pkg)
+      (message "Package %s has been installed" pkg))))
 #+end_src
 * Import environment variables
 #+begin_src emacs-lisp :tangle init.el
-- 
2.18.1