From 5ebf5174caf1142091048fa92a42dadf44382048 Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 4 Jan 2024 16:04:52 -0700 Subject: Added early init file, fixes for cleaner start --- .config/emacs/bd-development.el | 2 ++ .config/emacs/early-init.el | 31 +++++++++++++++++++++++++++++++ .config/emacs/init.el | 26 ++++++++++---------------- 3 files changed, 43 insertions(+), 16 deletions(-) create mode 100644 .config/emacs/early-init.el (limited to '.config/emacs') diff --git a/.config/emacs/bd-development.el b/.config/emacs/bd-development.el index e47cd36..ef61f17 100644 --- a/.config/emacs/bd-development.el +++ b/.config/emacs/bd-development.el @@ -70,6 +70,8 @@ Exempt major modes are defined in `display-line-numbers-exempt-modes'." :commands magit-status :custom (magit-define-global-key-bindings 'recommended)) +; do not prompt me +(setq vc-follow-symlinks t) (use-package python :mode (("\\.py\\'" . python-ts-mode))) diff --git a/.config/emacs/early-init.el b/.config/emacs/early-init.el new file mode 100644 index 0000000..8138bb3 --- /dev/null +++ b/.config/emacs/early-init.el @@ -0,0 +1,31 @@ +;; -*- lexical-binding: t; -*- + +; external package manager +(setq package-archives nil) + + +(defun bd/display-startup-time () + (message "Emacs loaded in %s with %d garbage collections." + (format "%.2f seconds" + (float-time + (time-subtract after-init-time before-init-time))) + gcs-done)) + +(add-hook 'emacs-startup-hook #'bd/display-startup-time) + + +(push '(menu-bar-lines . 0) default-frame-alist) +(push '(tool-bar-lines . 0) default-frame-alist) +(push '(background-color . "#000000") default-frame-alist) + + +(defun bd/display-startup-time () + (message "Emacs loaded in %s with %d garbage collections." + (format "%.2f seconds" + (float-time + (time-subtract after-init-time before-init-time))) + gcs-done)) + +(add-hook 'emacs-startup-hook #'bd/display-startup-time) + +(setq frame-inhibit-implied-resize t) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 58ce2fc..e312bca 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -1,5 +1,15 @@ ;; -*- lexical-binding: t; -*- + +(require 'package) +(add-to-list 'load-path "/home/bdunahu/.guix-profile/share/emacs/site-lisp") +(guix-emacs-autoload-packages) + +(require 'use-package-ensure) +(setq use-package-always-ensure t) +;; (setq use-package-verbose t) ; for debugging + + ;; reduce the frequency of garbage collection by making it happen on ;; each 50MB of allocated data (the default is on every 0.76MB) (setq gc-cons-threshold 50000000) @@ -10,15 +20,6 @@ (setq custom-file "/home/bdunahu/.config/emacs/custom.el") (load custom-file t) -(defun bd/display-startup-time () - (message "Emacs loaded in %s with %d garbage collections." - (format "%.2f seconds" - (float-time - (time-subtract after-init-time before-init-time))) - gcs-done)) - -(add-hook 'emacs-startup-hook #'bd/display-startup-time) - (defun request-sudo () "Uses TRAMP to edit currently opened file as root." (interactive) @@ -52,13 +53,6 @@ open URL at point." (global-unset-key (kbd "C-z")) -(require 'package) -(add-to-list 'load-path "/home/bdunahu/.guix-profile/share/emacs/site-lisp") -(guix-emacs-autoload-packages) -(require 'use-package-ensure) -(setq use-package-always-ensure t) -;; (setq use-package-verbose t) ; for debugging - (load "/home/bdunahu/.config/emacs/bd-org.el") (load "/home/bdunahu/.config/emacs/bd-emms.el") (load "/home/bdunahu/.config/emacs/bd-development.el") -- cgit v1.2.3