From 4977dd574ba494dfae9d976fe02e0b90aa0c35a7 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 20 Sep 2024 08:36:37 +0200
Subject: [PATCH] Try to optimize things

---
 init.el | 24 +++++++++++++++++++-----
 1 file changed, 19 insertions(+), 5 deletions(-)

diff --git a/init.el b/init.el
index 53bda627..88dc6d54 100755
--- a/init.el
+++ b/init.el
@@ -1,9 +1,24 @@
+(setq package-quickstart t)
+
+;; (add-hook 'emacs-startup-hook
+;;           (lambda ()
+;;             (message "Emacs loaded in %s with %d garbage collections."
+;;                      (format "%.2f seconds"
+;;                              (float-time
+;;                               (time-subtract after-init-time before-init-time)))
+;;                      gcs-done)))
+
+;; (setq gc-cons-threshold 100000000)
+;; (add-hook 'after-init-hook (lambda () (setq gc-cons-threshold 800000)))
+
 ;; (require 'server)
 ;; (or (eq (server-running-p) t)
 ;;     (server-start))
 
 ;; (load "bundle--general")
 
+(tool-bar-mode -1)
+(menu-bar-mode -1)
 (global-hl-line-mode 1)
 (display-time-mode 1)
 (global-prettify-symbols-mode -1)
@@ -125,7 +140,7 @@
   (package-refresh-contents))
 (unless (package-installed-p 'use-package)
   (package-install 'use-package))
-(require 'use-package)
+(eval-when-compile (require 'use-package))
 (setq use-package-always-ensure t)
 
 (use-package doom-themes
@@ -135,9 +150,6 @@
   (setq doom-themes-enable-bold t
         doom-themes-enable-italic t))
 
-(tool-bar-mode -1)
-(menu-bar-mode -1)
-
 ;; (load "bundle--gui")
 
 (setq-default mode-line-format
@@ -1444,6 +1456,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
 (setq message-send-mail-function 'smtpmail-send-it)
 
 (use-package gnus
+  :defer t
   :custom
   (gnus-use-full-window nil)
   (gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n")
@@ -1500,6 +1513,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
 
 (use-package org
   :ensure nil
+  :defer t
   :hook ((org-mode . turn-on-auto-fill))
   :init (org-clock-persistence-insinuate)
   :bind
@@ -1508,7 +1522,7 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
    ("C-c c" . org-capture)
    ("C-c b" . org-switchb))
   :init
-  (org-babel-lob-ingest "~/.emacs.d/library-of-babel.org")
+  ;; (org-babel-lob-ingest "~/.emacs.d/library-of-babel.org")
   (setq org-capture-templates '())
   :custom
   (abbrev-suggest t)