Optimize for init speed, proper deferring

diff --git a/early-init.el b/early-init.el
index ec168c0fc43fa1952e6d9e40eb0b91847e471525..bc7b0417e4a1cf3142c6cf41a49cadbe89438de9 100644 (file)
--- a/early-init.el
+++ b/early-init.el
@@ -11,7 +11,14 @@
                                         gc-cons-percentage 0.1
                                         garbage-collection-messages t)))
 
-(setq default-directory "~/")
+;; Startup options
+(setq inhibit-startup-screen t
+      inhibit-startup-buffer-menu t
+      server-client-instructions nil
+      frame-resize-pixelwise t
+      default-directory "~/"
+      initial-scratch-message (message ";;; Emacs loaded in %s.\n\n"
+                                      (emacs-init-time)))
 
 (provide 'early-init)
 ;;; hic terminatur early-init.el

diff --git a/init.el b/init.el
index 4063e17edac3461166968a65d788924318eec1f2..fbc9ed04c808dd9741111515a7fb38c0331571b1 100644 (file)
--- a/init.el
+++ b/init.el
@@ -4,14 +4,6 @@
 
 ;; Code:
 
-;; Startup options
-(setq inhibit-startup-screen t
-      inhibit-startup-buffer-menu t
-      server-client-instructions nil
-      frame-resize-pixelwise t
-      initial-scratch-message (message ";;; Emacs loaded in %s.\n\n"
-                                      (emacs-init-time)))
-
 ;; Load External Libraries
 (add-to-list 'load-path (concat user-emacs-directory "re/"))
 (add-to-list 'load-path (concat user-emacs-directory "acme-mouse/"))
@@ -147,6 +139,9 @@
 (setq abbrev-file-name (expand-file-name "abbrev_defs" user-emacs-directory)
       save-abbrevs 'silently)
 
+(add-hook 'org-mode-hook (lambda ()
+                          #'abbrev-mode))
+
 ;; Customize System
 (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
 (when (not (file-exists-p custom-file))

diff --git a/re/re-org.el b/re/re-org.el
index 37de94144e2de277743a8f1da224fc0f492e8c3d..e17d457194acdb3a3843d99cde05b21000d0fae6 100644 (file)
--- a/re/re-org.el
+++ b/re/re-org.el
@@ -2,9 +2,6 @@
 ;; Haec pars Emacs non est.
 ;; Code:
 
-(add-hook 'org-mode-hook (lambda ()
-                          #'abbrev-mode))
-
 (setq org-startup-folded t
       org-startup-indented t)
 

diff --git a/re/re-packages.el b/re/re-packages.el
index 9e6bbf0c759fcfc6975ddd0d41e428cfdd19c00d..f656661b5cf21d2d951d924eb5166d1f069a9f9b 100644 (file)
--- a/re/re-packages.el
+++ b/re/re-packages.el
@@ -55,7 +55,6 @@
 
 (use-package openwith
   :ensure t
-  :defer t
   :config
   (openwith-mode t)
   (setq openwith-associations (list ; Set these up for linux - windows falls back to system default
@@ -79,25 +78,24 @@
   :ensure t
   :defer t)
 
-(let ((slime-help "~/quicklisp/slime-helper.el"))
-  (when (file-exists-p slime-help)
-    (use-package slime
-      :ensure t
-      :defer t
-      :init
-      (load (expand-file-name slime-help))
-      :config
-      (setq inferior-lisp-program "sbcl")
-      :custom
-      (slime-net-coding-system 'utf-8-unix))
-    (when (file-exists-p "~/lisp/sbcl.core-for-slime")
-      (setq slime-lisp-implementations
-           '((sbcl ("sbcl" "--core" "sbcl.core-for-slime")
-                   :directory "~/lisp"))))
-    (add-hook 'slime-mode-hook
-             (lambda ()
-               (unless (slime-connected-p)
-                 (save-excursion (slime)))))))
+(use-package slime
+  :ensure t
+  :defer t
+  :init
+  (load (expand-file-name "~/quicklisp/slime-helper.el"))
+  :config
+  (setq inferior-lisp-program "sbcl")
+  (when (file-exists-p "~/lisp/sbcl.core-for-slime")
+    (setq slime-lisp-implementations
+         '((sbcl ("sbcl" "--core" "sbcl.core-for-slime")
+                 :directory "~/lisp"))))
+  :custom
+  (slime-net-coding-system 'utf-8-unix))
+
+(add-hook 'slime-mode-hook
+         (lambda ()
+           (unless (slime-connected-p)
+             (save-excursion (slime)))))
 
 (provide 're-packages)
 ;;; Hic terminatur re-packages.el