2020-06-02 05:57:57 -07:00
|
|
|
;; 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
|
2020-10-02 12:41:24 -07:00
|
|
|
file-name-handler-alist nil
|
|
|
|
gc-cons-threshold (* 200 1000 1000)
|
2020-06-02 05:57:57 -07:00
|
|
|
global-mark-ring-max 1024
|
|
|
|
inhibit-compacting-font-caches t
|
|
|
|
inhibit-startup-screen t
|
|
|
|
initial-scratch-message nil
|
|
|
|
mark-ring-max 1024))
|
|
|
|
|
2020-10-02 12:40:33 -07:00
|
|
|
(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)))
|
2020-08-24 21:13:06 -07:00
|
|
|
|
2020-06-02 05:57:57 -07:00
|
|
|
;; important ergonomics
|
|
|
|
(setq fill-column 80
|
2020-06-04 13:22:05 -07:00
|
|
|
sentence-end-double-space nil
|
|
|
|
ring-bell-function #'ignore)
|
2020-06-02 05:57:57 -07:00
|
|
|
|
|
|
|
(defalias #'yes-or-no-p #'y-or-n-p)
|
|
|
|
|
|
|
|
;; packages
|
2020-02-05 21:20:36 -08:00
|
|
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
|
|
|
("gnu" . "https://elpa.gnu.org/packages/")))
|
|
|
|
|
2020-06-02 05:57:57 -07:00
|
|
|
;; 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")
|
|
|
|
|
2020-02-05 21:20:36 -08:00
|
|
|
;; EOF
|