system changes

1 files changed, 45 insertions, 0 deletions

diff --git a/common/.config/emacs/early-init.el.org b/common/.config/emacs/early-init.el.org
new file mode 100644
index 0000000..588ed3b
--- /dev/null
+++ b/common/.config/emacs/early-init.el.org
@@ -0,0 +1,45 @@
+#+title: Emacs Early Initialization
+
+Disable =package.el= at startup so that =elpaca= can enable it on its own.
+#+begin_src emacs-lisp
+  (setq package-enable-at-startup nil)
+#+end_src
+
+Force the use of a =custom.el= file instead of appending to =init.el=.
+#+begin_src emacs-lisp
+  (setq custom-file (concat user-emacs-directory "custom.el"))
+  (when (file-exists-p custom-file)
+    (load custom-file))
+#+end_src
+
+Disable the default startup screen so Emacs starts in the =scratch= buffer and also defaults to an empty =scratch= buffer.
+#+begin_src emacs-lisp
+  (setq inhibit-startup-screen t
+        initial-scratch-message nil)
+#+end_src
+
+Clean up interface by removing unnecessary elements.
+#+begin_src emacs-lisp
+  (add-to-list 'default-frame-alist '(vertical-scroll-bars . nil))
+  (push '(tool-bar-lines . 0) default-frame-alist)
+  (menu-bar-mode -1)
+  (setq frame-resize-pixelwise t)
+#+end_src
+
+Set up fonts. I use Source Code Pro (Nerd Font) for =monospace= and Computer Modern for /variable width/.
+#+begin_src emacs-lisp
+  (defvar jj/mono-font)
+  (defvar jj/var-font)
+  (pcase system-type
+    (`gnu/linux
+     (setq jj/mono-font "SauceCodePro Nerd Font-11"
+           jj/var-font "CMU Serif-14"))
+    (`darwin
+     (setq jj/mono-font "SauceCodePro Nerd Font-14:weight=thin"
+           jj/var-font "CMU Serif-18")))
+  (add-to-list 'default-frame-alist
+               `(font . ,jj/mono-font))
+  (custom-set-faces
+   `(variable-pitch ((t :font ,jj/var-font)))
+   `(fixed-pitch ((t :font ,jj/mono-font))))
+ #+end_src