From 41a4f068b7478457157f05ebb0feaa531d370918 Mon Sep 17 00:00:00 2001
From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
Date: Tue, 16 Jun 2020 12:30:37 +0200
Subject: Avoid rebuilding packages after using emacs-helm.sh

When restarting main Emacs after using helm.sh, straight rebuild async and
maybe packages loaded with --load-packages.

So only add async to load-path and only use straight-use-package for packages
specified in --load-packages if autoload file doesn't exists, otherwise load
autoload file.
---
 emacs-helm.sh | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'emacs-helm.sh')

diff --git a/emacs-helm.sh b/emacs-helm.sh
index 4c3724bc..7b886d1d 100755
--- a/emacs-helm.sh
+++ b/emacs-helm.sh
@@ -189,10 +189,17 @@ cat > $CONF_FILE <<EOF
   (when (file-exists-p bootstrap-file)
     (setq default-package-manager 'straight)
     (load bootstrap-file nil 'nomessage)
-    (straight-use-package 'async)
+    (add-to-list 'load-path async-path)
     (when pkg-list
       (dolist (pkg pkg-list)
-        (straight-use-package (intern pkg))))))
+        (let* ((pkg-path (expand-file-name pkg straight-path))
+               (autoload-file (expand-file-name
+                               (format "%s-autoloads.el" pkg)
+                               pkg-path)))
+          (add-to-list 'load-path pkg-path)
+          (if (file-exists-p autoload-file)
+              (load autoload-file nil 'nomessage)
+            (straight-use-package (intern pkg))))))))
 
 (unless (eq default-package-manager 'straight)
   (require 'package)
-- 
cgit v1.2.3