53 lines
1.6 KiB
EmacsLisp
53 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
|
|
gc-cons-threshold 64000000
|
|
global-mark-ring-max 1024
|
|
inhibit-compacting-font-caches t
|
|
inhibit-startup-screen t
|
|
initial-scratch-message nil
|
|
mark-ring-max 1024))
|
|
|
|
(when (string-equal system-type "windows-nt")
|
|
(setenv "PATH" (concat "C:/emacs/bin;" (getenv "PATH"))))
|
|
|
|
;; 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 "Courier Prime Code"
|
|
:height 120 :weight 'normal :width 'normal)
|
|
|
|
(copy-face 'default 'fixed-pitch)
|
|
(copy-face 'default 'mode-line)
|
|
|
|
;; fontset usage
|
|
(dolist (range '((#x2310 . #x26bf)
|
|
(#x26c0 . #x329f)
|
|
(#x1f000 . #x1fa9f)))
|
|
(set-fontset-font t range "Noto Color Emoji"))
|
|
|
|
(set-fontset-font t '(#x2e80 . #x9fff) "Noto Sans CJK JP")
|
|
|
|
(setq agw-mode-line-family
|
|
(if (string-equal system-type "windows-nt")
|
|
"Noto Mono"
|
|
"Iosevka"))
|
|
|
|
;; EOF
|