Try to speed up init a bit

Shamelessly stole some bits from =use-package=.  One day, I may even end up
using it again!

1 files changed, 39 insertions, 12 deletions

@@ -339,7 +339,8 @@ someday.
 Adapted from =midnight-mode=, using suggestions from [[https://old.reddit.com/r/emacs/comments/l6jpxf/how_do_emacs_users_usually_have_multiple_files/gl2249u/][u/ndamee]].
 
 #+begin_src emacs-lisp :noweb-ref packages
-  (require 'midnight)
+  (unless (fboundp 'clean-buffer-list)
+    (autoload #'clean-buffer-list "mightnight"))
 #+end_src
 
 What time I run the clean up is a little tricky for me, since I use
@@ -514,7 +515,8 @@ So... function!
   (straight-use-package '(unicode-fonts
                           :host github
                           :repo "rolandwalker/unicode-fonts"))
-  (require 'unicode-fonts)
+  (unless (fboundp 'unicode-fonts-setup)
+    (autoload #'unicode-fonts-setup "unicode-fonts"))
 #+end_src
 
 According to [[https://github.com/rolandwalker/unicode-fonts/issues/3][Issue #3]], there can be problems with =unicode-fonts-setup=
@@ -808,19 +810,42 @@ to /hide/ those contents.
 
 #+begin_src emacs-lisp :noweb-ref packages
   (straight-use-package 'orderless)
-  (require 'orderless)
+  (unless (fboundp 'orderless)
+    (autoload #'orderless "orderless"))
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref settings
-  (setq-default
-   completion-styles '(orderless))
+  (setq-default completion-styles '(orderless))
 #+end_src
 
 *** Consult                                                         :package:
 
 #+begin_src emacs-lisp :noweb-ref modes
   (straight-use-package 'consult)
-  (require 'consult)
+  (dolist (f '(consult-history
+               consult-mode-command
+               consult-complex-command
+               consult-buffer
+               consult-buffer-other-window
+               consult-buffer-other-frame
+               consult-register
+               consult-bookmark
+               consult-line
+               consult-outline
+               consult-mark
+               consult-global-mark
+               consult-imenu
+               consult-error
+               consult-grep
+               consult-find
+               consult-line
+               consult-multi-occur
+               consult-keep-lines
+               consult-focus-lines
+               consult-yank-pop
+               consult-apropos))
+    (unless (fboundp f)
+      (autoload (function f) "consult")))
 #+end_src
 
 Consult has a lot of great bindings that work well with Emacs's
@@ -847,10 +872,10 @@ default completion system.  These all come from the [[https://github.com/minad/c
      ("M-g i" #'consult-imenu)
      ("M-g e" #'consult-error)
      ;; M-s bindings (`search-map')
-     ("M-s g" #'consult-grep)              ; alts:
+     ("M-s g" #'consult-grep)             ; alts:
                                           ; consult-git-grep,
                                           ; consult-ripgrep
-     ("M-s f" #'consult-find)              ; alts:
+     ("M-s f" #'consult-find)             ; alts:
                                           ; consult-locate
      ("M-s l" #'consult-line)
      ("M-s m" #'consult-multi-occur)
@@ -1070,7 +1095,7 @@ well as the option for some other variables.  Since storage is cheap,
 I keep all of it.
 
 #+begin_src emacs-lisp :noweb-ref requires
-  (require 'savehist)
+  (run-with-idle-timer 3 nil #'require 'savehist nil t)
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref modes
@@ -1114,7 +1139,7 @@ I also like to keep track of recently-opened files.  =recentf= helps
 with that.
 
 #+begin_src emacs-lisp :noweb-ref requires
-  (require 'recentf)
+  (run-with-idle-timer 5 nil #'require 'recentf nil t)
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref settings
@@ -2016,7 +2041,8 @@ of (I suppose) generic files.
 
 #+begin_src emacs-lisp :noweb-ref packages
   (straight-use-package 'web-mode)
-  (require 'web-mode)
+  (unless (fboundp 'web-mode)
+    (autoload #'web-mode "web-mode" nil t))
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref hooks
@@ -2890,7 +2916,8 @@ TODO, and Diary.
 
 #+begin_src emacs-lisp :noweb-ref packages
   (straight-use-package 'org-auto-tangle)
-  (require 'org-auto-tangle)
+  (with-eval-after-load 'org
+    (require 'org-auto-tangle))
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref hooks