From a544811fae1f7ca2a7083165d062ec4e8540c325 Mon Sep 17 00:00:00 2001
From: jdormit <jeremy.dormitzer@gmail.com>
Date: Sat, 4 May 2024 23:05:38 -0400
Subject: [PATCH] Benchmark init and optimize it a bit

---
 emacs/.emacs.d/config/init-dashboard.el | 4 +++-
 emacs/.emacs.d/config/init-email.el     | 5 +++--
 emacs/.emacs.d/config/init-mermaid.el   | 3 ++-
 emacs/.emacs.d/config/init-ui.el        | 7 ++-----
 emacs/.emacs.d/init.el                  | 6 ++++++
 5 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/emacs/.emacs.d/config/init-dashboard.el b/emacs/.emacs.d/config/init-dashboard.el
index 368f279..d8ef6b9 100644
--- a/emacs/.emacs.d/config/init-dashboard.el
+++ b/emacs/.emacs.d/config/init-dashboard.el
@@ -1,7 +1,7 @@
 ;; -*- lexical-binding: t; -*-
 
 ;; Icons!
-(use-package all-the-icons)
+(use-package nerd-icons)
 
 ;; A neat dashboard when you open Emacs
 (use-package dashboard
@@ -12,6 +12,8 @@
       (setq dashboard-startup-banner pic)))
   (dashboard-setup-startup-hook)
   :custom
+  (dashboard-display-icons-p t)
+  (dashboard-icon-type 'nerd-icons)
   (dashboard-items '((projects . 5) (recents . 5)))
   (dashboard-set-heading-icons t)
   (dashboard-set-file-icons t)
diff --git a/emacs/.emacs.d/config/init-email.el b/emacs/.emacs.d/config/init-email.el
index 8d8b757..cde23b6 100644
--- a/emacs/.emacs.d/config/init-email.el
+++ b/emacs/.emacs.d/config/init-email.el
@@ -1,9 +1,9 @@
 ;; Email in Emacs via mu4e
 (use-package mu4e
   :straight `(:local-repo ,(directory-file-name (file-name-directory (locate-library "mu4e"))) :type built-in)
+  :defer 2
   :if (locate-library "mu4e")
   :commands (mu4e mu4e-update-mail-and-index)
-  :hook (after-init . (lambda () (mu4e t)))
   :config
   (setq
    ;; General
@@ -509,6 +509,7 @@ If given prefix arg ARG, skips markdown conversion."
       "t" #'mu4e-view-mark-thread
       "s" mu4e-search-map))
   (add-hook 'mu4e-headers-mode-hook #'my-mu4e-headers-mode-setup)
-  (add-hook 'mu4e-view-mode-hook #'my-mu4e-view-mode-setup))
+  (add-hook 'mu4e-view-mode-hook #'my-mu4e-view-mode-setup)
+  (mu4e t))
 
 (provide 'init-email)
diff --git a/emacs/.emacs.d/config/init-mermaid.el b/emacs/.emacs.d/config/init-mermaid.el
index e7b5527..13bb80e 100644
--- a/emacs/.emacs.d/config/init-mermaid.el
+++ b/emacs/.emacs.d/config/init-mermaid.el
@@ -1,5 +1,6 @@
 ;; -*- lexical-binding: t; -*-
 
-(use-package mermaid-mode)
+(use-package mermaid-mode
+  :defer t)
 
 (provide 'init-mermaid)
diff --git a/emacs/.emacs.d/config/init-ui.el b/emacs/.emacs.d/config/init-ui.el
index 7bcb8c6..05b7065 100644
--- a/emacs/.emacs.d/config/init-ui.el
+++ b/emacs/.emacs.d/config/init-ui.el
@@ -14,8 +14,8 @@
 ;; Doom themes are the best themes!
 (use-package doom-themes)
 (use-package doom-modeline
-  :config
-  (doom-modeline-mode 1)
+  :hook
+  (after-init . doom-modeline-mode)
   :custom
   (doom-modeline-env-version nil)
   (doom-modeline-env-enable-python nil)
@@ -25,9 +25,6 @@
   (doom-modeline-env-enable-elixir nil)
   (doom-modeline-env-enable-rust nil))
 
-;; Load custom themes
-(add-to-list 'custom-theme-load-path (expand-file-name "config/themes" user-emacs-directory))
-
 ;; A small package to hide the mode line
 (use-package hide-mode-line
   :commands hide-mode-line-mode)
diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el
index 850998d..8742505 100644
--- a/emacs/.emacs.d/init.el
+++ b/emacs/.emacs.d/init.el
@@ -37,6 +37,12 @@
 (straight-use-package 'use-package)
 (setq straight-use-package-by-default t)
 
+(use-package benchmark-init
+  :ensure t
+  :config
+  ;; To disable collection of benchmark data after init is done.
+  (add-hook 'after-init-hook 'benchmark-init/deactivate))
+
 ;; "Garbage Collection Magic Hack"
 (use-package gcmh
   :demand t