diff --git a/lain/.emacs.d/config.org b/lain/.emacs.d/config.org index 80f9f34..73df382 100644 --- a/lain/.emacs.d/config.org +++ b/lain/.emacs.d/config.org @@ -354,6 +354,14 @@ Print more stuff when running =C-x C-e= or =(eval-last-sexp)= #+BEGIN_SRC emacs-lisp (setq eval-expression-print-level 100) #+END_SRC +*** GC in Minibuffer +Don't garbage collect while the minibuffer is open, as heavy +things like completion and searches are happening and will +slow down with many garbage collections. +#+BEGIN_SRC emacs-lisp + (add-hook 'minibuffer-setup-hook #'jf-inhibit-gc) + (add-hook 'minibuffer-exit-hook #'jf-resume-gc) +#+END_SRC ** UI *** Font Engage a nice coding font. @@ -414,7 +422,10 @@ Show a cool custom dashboard buffer on startup. :custom (dashboard-startup-banner 'logo) - (dashboard-banner-logo-title "Welcome to Electronic Macs") + (dashboard-banner-logo-title + (format "Welcome to Electronic Macs. Ready in %.2f seconds with %d GCs." + (float-time (time-subtract after-init-time before-init-time)) + gcs-done)) (dashboard-items '((recents . 5) (agenda) diff --git a/lain/.emacs.d/init.el b/lain/.emacs.d/init.el index 38de94a..6ee2991 100755 --- a/lain/.emacs.d/init.el +++ b/lain/.emacs.d/init.el @@ -4,6 +4,19 @@ (defvar jf-config-file (expand-file-name "config.org" user-emacs-directory)) (defvar jf-init-file (expand-file-name "init.el" user-emacs-directory)) (defvar jf-load-path (expand-file-name "lisp/" user-emacs-directory)) +(defvar jf-gc-threshold 20000000) ; 20MB up from 800KB -(message "Initializing Electronic Macs...") +(defun jf-inhibit-gc () + (setq gc-cons-threshold most-positive-fixnum)) +(defun jf-resume-gc () + (setq gc-cons-threshold jf-gc-threshold)) + + +(message "-> Initializing Electronic Macs...") + +;; Don't garbage collect during init +(jf-inhibit-gc) (org-babel-load-file jf-config-file) +(jf-resume-gc) + +(message "-> Initialized in %s" (emacs-init-time))