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

@@ -20,8 +20,14 @@ Configure package archives and initialise.
     (add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/"))
     (package-initialize))
 
-  ;; Plugins that still need adding / configuring: `auctex' `htmlize'
-  ;; `password-store'
+  (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
@@ -1168,8 +1174,10 @@ Configure email with iCalendar event support, to integrate with
             ([tab] . corfu-insert))
     :custom
     (corfu-cycle t)
-    (corfu-auto nil)
-    (corfu-preselect 'directory)
+    (corfu-auto t)
+    (corfu-auto-delay 0.2)
+    (corfu-auto-prefix 3)
+    (corfu-preselect 'valid)
     :config
     (require 'corfu-history)
     (when (require 'nerd-icons-corfu nil :noerror)
@@ -1322,11 +1330,10 @@ Configure email with iCalendar event support, to integrate with
            (python-base-mode . (lambda () (if (executable-find "pylsp" t) (eglot-ensure))))
            (lua-mode . (lambda () (if (executable-find "lua-language-server" t) (eglot-ensure))))
            ((rust-ts-mode rust-mode) . (lambda () (if (executable-find "rust-analyzer" t) (eglot-ensure))))
-           ((js-base-mode typescript-ts-base-mode) . (lambda () (if (executable-find "typescript-language-server" t) (eglot-ensure))))
-           )
+           ((js-base-mode typescript-ts-base-mode) . (lambda () (if (executable-find "typescript-language-server" t) (eglot-ensure)))))
     :custom
     (eglot-menu-string "lsp")
-    (eglot-send-changes-idle-time 1)
+    (eglot-send-changes-idle-time 0.5)
     (eglot-extend-to-xref t)
     (eglot-autoshutdown t)
     (eglot-sync-connect nil)
@@ -1388,7 +1395,7 @@ Configure email with iCalendar event support, to integrate with
            ("C-c C-," . flymake-goto-prev-error))
     :hook ((prog-mode yaml-ts-mode) . (lambda () (flymake-mode +1)))
     :custom
-    (flymake-no-changes-timeout 1)
+    (flymake-no-changes-timeout 0.5)
     (flymake-show-diagnostics-at-end-of-line 'short))
 
   (add-to-list 'package-selected-packages 'flymake-yamllint)
@@ -1565,6 +1572,11 @@ Configure email with iCalendar event support, to integrate with
     (doc-view-scale-internally t)
     (doc-view-image-width 850))
 
+  (add-to-list 'package-selected-packages 'auctex)
+  (use-package auctex
+    :if (package-installed-p 'auctex)
+    :defer t)
+
   (add-to-list 'package-selected-packages 'markdown-mode)
   (use-package markdown-mode
     :if (package-installed-p 'markdown-mode)

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