From 1dec1f8f4dac44a22fa6ed5a31fd2dbb9e11dad9 Mon Sep 17 00:00:00 2001
From: Evie Litherland-Smith <evie.litherland-smith@ukaea.uk>
Date: Fri, 16 Aug 2024 09:16:11 +0100
Subject: [PATCH] Add my/package-ensure-installed

Does the job of install.el but is available within an Emacs
session. install.el simply calls my/package-ensure-installed
---
 README.org | 9 +++++++++
 install.el | 4 +---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 367bc6c..be040d0 100644
--- a/README.org
+++ b/README.org
@@ -19,6 +19,15 @@ Configure package archives and initialise.
     :config
     (add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/"))
     (package-initialize))
+
+  (defun my/package-ensure-installed ()
+    "Ensure packages in `package-selected-packages' are installed."
+    (interactive)
+    (require 'package)
+    (package-refresh-contents)
+    (package-install-selected-packages t)
+    (package-autoremove)
+    (package-upgrade-all nil))
 #+end_src
 ** Defaults
 Set some useful defaults. Some of these should be moved to relevant
diff --git a/install.el b/install.el
index 5a14034..a2c345d 100644
--- a/install.el
+++ b/install.el
@@ -3,8 +3,6 @@
 ;;; Code:
 ;; Configure packages archives with priority
 (load-file (locate-user-emacs-file "init.el"))
-(package-refresh-contents)
-(package-install-selected-packages t)
-(package-autoremove)
+(my/package-ensure-installed)
 (provide 'install)
 ;;; install.el ends here