Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d

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)
@@ -131,7 +146,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
@@ -141,9 +156,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
@@ -1456,6 +1468,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")
@@ -1512,6 +1525,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
@@ -1520,7 +1534,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)
@@ -1663,7 +1677,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
      (plantuml . t)
      (C . t)
      (js . t)
-     (scheme . t)))
+     (scheme . t)
+     (dot . t)))
   ;; work with org-agenda dispatcher [c] "Today Clocked Tasks" to view today's clocked tasks.
   :custom-face
   (org-tag ((t (:weight normal :height 0.8))))