diff options
| author | David Morgan <djm_uk@protonmail.com> | 2024-09-25 16:32:03 +0100 |
|---|---|---|
| committer | David Morgan <djm_uk@protonmail.com> | 2024-09-25 16:32:03 +0100 |
| commit | a58d9ccbd7203dce8a57c61ff3ac887f10e201fc (patch) | |
| tree | a399bfa8dfc956b7decd44262304cc14b975822a /.emacs.d/early-init.el | |
| parent | a9e3c5bf99c3ee8755a8d8a208c3ccbc5f2513cf (diff) | |
| download | dotfiles-a58d9ccbd7203dce8a57c61ff3ac887f10e201fc.tar.gz | |
Add some improvements from jamescherti/minimal-emacs.d
Diffstat (limited to '.emacs.d/early-init.el')
| -rw-r--r-- | .emacs.d/early-init.el | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/.emacs.d/early-init.el b/.emacs.d/early-init.el index 1608f02..1dd7a01 100644 --- a/.emacs.d/early-init.el +++ b/.emacs.d/early-init.el @@ -7,7 +7,9 @@ (setq load-prefer-newer t native-comp-async-report-warnings-errors nil + native-comp-warning-on-missing-source nil warning-suppress-log-types '((comp) (bytecomp)) + byte-compile-verbose nil byte-compile-warnings '(not free-vars unresolved noruntime lexical make-local obsolete)) (push '(menu-bar-lines . 0) default-frame-alist) @@ -27,8 +29,19 @@ (when window-system (tool-bar-mode -1) (scroll-bar-mode -1) + (tooltip-mode -1) (horizontal-scroll-bar-mode -1)) +;; Copied from https://github.com/jamescherti/minimal-emacs.d +;; Some features that are not represented as packages can be found in +;; `features', but this can be inconsistent. The following enforce consistency: +(if (fboundp #'json-parse-string) + (push 'jansson features)) +(if (string-match-p "HARFBUZZ" system-configuration-features) ; no alternative + (push 'harfbuzz features)) +(if (bound-and-true-p module-file-suffix) + (push 'dynamic-modules features)) + (setq package-enable-at-startup nil) ;; Some optimizations from doom.el (some of these probably don't belong here!) @@ -43,6 +56,19 @@ (setq inhibit-compacting-font-caches t) (setq redisplay-skip-fontification-on-input t) +;; Copied/modified from https://github.com/jamescherti/minimal-emacs.d +(setq ad-redefinition-action 'accept + warning-suppress-types '((lexical-binding)) + inhibit-startup-buffer-menu t + inhibit-x-resources t + use-file-dialog nil + use-dialog-box nil) +(advice-add #'display-startup-screen :override #'ignore) +(unless (eq system-type 'darwin) + (setq command-line-ns-option-alist nil)) +(unless (memq initial-window-system '(x pgtk)) + (setq command-line-x-option-alist nil)) + (define-advice load-file (:override (file) silence) (load file nil 'nomessage)) (define-advice startup--load-user-init-file (:before (&rest _) undo-silence) |