From 21b5d80814520540454c1167ca0495dd023c54dd Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 9 Jun 2022 09:16:50 -0500
Subject: Fix startup complaining

---
 init.el | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index f7fbe96..6c88148 100644
--- a/init.el
+++ b/init.el
@@ -115,7 +115,6 @@
     (add-to-list '+custom-variable-allowlist var))
   ;; Load customizations now, and after init (to capture other possible
   ;; variables I want to load) XXX: this is dumb
-  (+custom-load-ignoring-most-customizations)
   (+with-ensure-after-init
     (+custom-load-ignoring-most-customizations))
   (advice-add #'custom-buffer-create-internal :after #'+cus-edit-expand-widgets)
@@ -507,21 +506,21 @@
   (:require +finger)                        ; fixes `finger' to use var below
   (:option finger-X.500-host-regexps '(".") ; only send username
            )
-  (require 'transient)
-  (transient-define-prefix net-utils ()
-    "Networking utilities"
-    ["Actions"
-     ("p" "Ping" ping)
-     ("i" "Ifconfig" ifconfig)
-     ("w" "Iwconfig" iwconfig)
-     ("n" "Netstat" netstat)
-     ("a" "Arp" arp)
-     ("r" "Route" route)
-     ("h" "Nslookup host" nslookup-host)
-     ("d" "Dig" dig)
-     ("s" "Smb Client" smbclient)
-     ("t" "Traceroute" traceroute)])
-  (:+key "C-z M-n" #'net-utils))
+  (with-eval-after-load 'transient
+   (transient-define-prefix net-utils ()
+     "Networking utilities"
+     ["Actions"
+      ("p" "Ping" ping)
+      ("i" "Ifconfig" ifconfig)
+      ("w" "Iwconfig" iwconfig)
+      ("n" "Netstat" netstat)
+      ("a" "Arp" arp)
+      ("r" "Route" route)
+      ("h" "Nslookup host" nslookup-host)
+      ("d" "Dig" dig)
+      ("s" "Smb Client" smbclient)
+      ("t" "Traceroute" traceroute)])
+   (:+key "C-z M-n" #'net-utils)))
 
 (setup notmuch
   (:load-from "~/usr/share/emacs/site-lisp/")
@@ -1051,9 +1050,11 @@
 
 (setup (:straight bbdb)
   (:straight bbdb-vcard)
-  (:require bbdb-autoloads
-            bbdb)
-  (bbdb-initialize 'gnus 'message))
+  (add-hook '+custom-after-load-hook
+            (defun +bbdb-load ()
+              (:require bbdb-autoloads
+                        bbdb)
+              (bbdb-initialize 'gnus 'message))))
 
 (setup (:straight (bongo :type git
                          :flavor melpa
-- 
cgit 1.4.1-21-gabe81