scripts/emacs/early-init.el

52 lines
1.6 KiB
EmacsLisp

;; meta stuff
(let ((usr-backup (locate-user-emacs-file "backup"))
(usr-custom (locate-user-emacs-file "custom.el")))
(setq auto-save-default nil
backup-directory-alist `((".*" . ,usr-backup))
create-lockfiles nil
custom-file usr-custom
file-name-handler-alist nil
gc-cons-threshold (* 200 1000 1000)
global-mark-ring-max 1024
inhibit-compacting-font-caches t
inhibit-startup-screen t
initial-scratch-message nil
mark-ring-max 1024))
(defgroup agw nil
"Alison G. Watson's customizations."
:prefix "agw-"
:group 'convenience)
(if (eq system-type 'windows-nt)
(progn
(setenv "PATH" (concat "C:/emacs/bin;" (getenv "PATH")))
(defalias 'agw-flyspell-mode #'ignore)
(defalias 'agw-flyspell-prog-mode #'ignore))
(progn
(defalias 'agw-flyspell-mode #'flyspell-mode)
(defalias 'agw-flyspell-prog-mode #'flyspell-prog-mode)))
;; important ergonomics
(setq fill-column 80
sentence-end-double-space nil
ring-bell-function #'ignore)
(defalias #'yes-or-no-p #'y-or-n-p)
;; packages
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
("gnu" . "https://elpa.gnu.org/packages/")))
;; default visuals
(add-to-list 'default-frame-alist '(width . 80))
(add-to-list 'default-frame-alist '(height . 30))
(set-face-attribute 'default nil :family "JetBrains Mono"
:height 120)
(copy-face 'default 'fixed-pitch)
(copy-face 'default 'mode-line)
;; EOF