154 lines
4.8 KiB
EmacsLisp
154 lines
4.8 KiB
EmacsLisp
;;; init.el --- Init -*- no-byte-compile: t; lexical-binding: t; -*-
|
||
|
||
;; Author: James Cherti
|
||
;; URL: https://github.com/jamescherti/minimal-emacs.d
|
||
;; Package-Requires: ((emacs "29.1"))
|
||
;; Keywords: maint
|
||
;; Version: 1
|
||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||
|
||
;;; Commentary:
|
||
;; This is the main initialization file for Emacs. It configures package
|
||
;; archives, ensures essential packages like `use-package` are installed, and
|
||
;; sets up further package management and customization settings.
|
||
|
||
;;; Code:
|
||
|
||
;;; Load user-pre-init.el and init packages
|
||
(minimal-emacs-load-user-init "pre-init.el")
|
||
|
||
(use-package auto-compile
|
||
:config
|
||
(auto-compile-on-load-mode)
|
||
(auto-compile-on-save-mode))
|
||
|
||
(use-package gcmh
|
||
:custom
|
||
(gcmh-idle-delay 'auto)
|
||
(gcmh-auto-idle-delay-factor 10)
|
||
;; (gcmh-high-cons-threshold (* 16 1024 1024))
|
||
:hook
|
||
(emacs-startup . gcmh-mode))
|
||
|
||
;;; Performance
|
||
|
||
;; Don't ping things that look like domain names.
|
||
(setq ffap-machine-p-known 'reject)
|
||
|
||
;; By default, Emacs "updates" its ui more often than it needs to
|
||
(setq idle-update-delay 1.0)
|
||
|
||
;; Font compacting can be very resource-intensive, especially when rendering
|
||
;; icon fonts on Windows. This will increase memory usage.
|
||
(setq inhibit-compacting-font-caches t)
|
||
|
||
;;; Uniquify - Unique buffer name
|
||
(progn
|
||
(setq uniquify-buffer-name-style 'reverse)
|
||
(setq uniquify-separator "•")
|
||
(setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
|
||
(setq uniquify-ignore-buffers-re "^\\*"))
|
||
|
||
;;; Files
|
||
(progn
|
||
;; Do not auto-disable auto-save after deleting large chunks of text. The
|
||
;; purpose of auto-save is to provide a failsafe, and disabling it
|
||
;; contradicts this objective.
|
||
(setq auto-save-include-big-deletions t)
|
||
|
||
;; Auto save options
|
||
(setq kill-buffer-delete-auto-save-files t)
|
||
|
||
;; Do not save BackupFiles under the original name with a tilde `~’
|
||
(setq backup-by-copying t) ; Backup by copying rather renaming
|
||
(setq delete-old-versions t) ; Delete excess backup versions silently
|
||
(setq make-backup-files nil)
|
||
(setq version-control t))
|
||
|
||
;;; Subr
|
||
(progn
|
||
;; Allow for shorter responses: "y" for yes and "n" for no.
|
||
(defalias #'yes-or-no-p 'y-or-n-p)
|
||
;; Never show the hello file
|
||
(defalias #'view-hello-file #'ignore))
|
||
|
||
;;; Mule-util
|
||
(setq truncate-string-ellipsis "…")
|
||
|
||
;;; Frames and windows
|
||
|
||
(setq frame-title-format '("%b – Emacs")
|
||
icon-title-format frame-title-format)
|
||
|
||
;; Do not resize the frames in steps. It can leave gaps.
|
||
(setq frame-resize-pixelwise t)
|
||
|
||
;; However, do not resize windows pixelwise, as this can cause crashes in some
|
||
;; cases when resizing too many windows at once or rapidly.
|
||
(setq window-resize-pixelwise nil)
|
||
|
||
(setq resize-mini-windows 'grow-only)
|
||
|
||
;;; Buffer
|
||
(setq-default left-fringe-width 8)
|
||
(setq-default right-fringe-width 8)
|
||
|
||
;; Do not show an arrow at the top/bottomin the fringe and empty lines
|
||
(setq-default indicate-buffer-boundaries nil)
|
||
(setq-default indicate-empty-lines nil)
|
||
|
||
(setq-default word-wrap t)
|
||
|
||
;;; Smooth scrolling
|
||
|
||
;; Enables faster scrolling through unfontified regions. This may result in
|
||
;; brief periods of inaccurate syntax highlighting immediately after scrolling,
|
||
;; which should quickly self-correct.
|
||
(setq fast-but-imprecise-scrolling t)
|
||
|
||
(setq hscroll-margin 2
|
||
hscroll-step 1
|
||
;; Emacs spends excessive time recentering the screen when the cursor
|
||
;; moves more than N lines past the window edges (where N is the value of
|
||
;; `scroll-conservatively'). This can be particularly slow in larger
|
||
;; files during extensive scrolling. If `scroll-conservatively` is set
|
||
;; above 100, the window is never automatically recentered. The default
|
||
;; value (0) triggers recentering too aggressively, so I've set it to 10
|
||
;; to recenter the window only when scrolling significantly off-screen.
|
||
scroll-conservatively 10
|
||
scroll-margin 0
|
||
scroll-preserve-screen-position t
|
||
;; Minimize cursor lag slightly by preventing automatic adjustment of
|
||
;; `window-vscroll' for tall lines.
|
||
auto-window-vscroll nil
|
||
;; Mouse
|
||
mouse-wheel-scroll-amount '(2 ((shift) . hscroll))
|
||
mouse-wheel-scroll-amount-horizontal 2)
|
||
|
||
;;; Cursor
|
||
;; The blinking cursor is distracting and interferes with cursor settings in
|
||
;; some minor modes that try to change it buffer-locally (e.g., Treemacs).
|
||
;; Additionally, it can cause freezing, especially on macOS, for users with
|
||
;; customized and colored cursors.
|
||
(blink-cursor-mode -1)
|
||
|
||
;; Don't blink the paren matching the one at point, it's too distracting.
|
||
(setq blink-matching-paren nil)
|
||
|
||
;; Don't stretch the cursor to fit wide characters, it is disorienting,
|
||
;; especially for tabs.
|
||
(setq x-stretch-cursor nil)
|
||
|
||
;;; Annoyances
|
||
|
||
;; No beeping or blinking
|
||
(setq visible-bell nil)
|
||
(setq ring-bell-function #'ignore)
|
||
|
||
;;; Load user-pre-init.el
|
||
(minimal-emacs-load-user-init "post-init.el")
|
||
|
||
(provide 'init)
|
||
|
||
;;; init.el ends here
|