emacs: move some stuff (mainly fonts) to early-init.el
parent
f19bea148e
commit
7fcd05709a
|
@ -2,6 +2,3 @@
|
||||||
*Menu.background: Black
|
*Menu.background: Black
|
||||||
*Menu.foreground: White
|
*Menu.foreground: White
|
||||||
Oneko.reverse: true
|
Oneko.reverse: true
|
||||||
Emacs.font: -*-Courier Prime Code-*-r-normal-*-*-120-*-*-m-*-iso10646-1
|
|
||||||
Emacs.width: 80
|
|
||||||
Emacs.height: 30
|
|
||||||
|
|
|
@ -1,4 +1,46 @@
|
||||||
|
;; 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))
|
||||||
|
|
||||||
|
;; important ergonomics
|
||||||
|
(setq fill-column 80
|
||||||
|
sentence-end-double-space nil)
|
||||||
|
|
||||||
|
(defalias #'yes-or-no-p #'y-or-n-p)
|
||||||
|
|
||||||
|
;; packages
|
||||||
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
|
||||||
("gnu" . "https://elpa.gnu.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)
|
||||||
|
|
||||||
|
(set-face-attribute 'variable-pitch nil :family "Source Sans Pro"
|
||||||
|
: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")
|
||||||
|
|
||||||
;; EOF
|
;; EOF
|
||||||
|
|
|
@ -1,43 +1,16 @@
|
||||||
;; startup
|
;; startup
|
||||||
(let ((usr-backup (locate-user-emacs-file "backup"))
|
(let ((usr-data (locate-user-emacs-file "data.el")))
|
||||||
(usr-custom (locate-user-emacs-file "custom.el"))
|
|
||||||
(usr-data (locate-user-emacs-file "data.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)
|
|
||||||
|
|
||||||
(load custom-file)
|
(load custom-file)
|
||||||
(load usr-data))
|
(load usr-data))
|
||||||
|
|
||||||
(defalias #'yes-or-no-p #'y-or-n-p)
|
|
||||||
|
|
||||||
(setq fill-column 80
|
|
||||||
sentence-end-double-space nil)
|
|
||||||
|
|
||||||
(set-face-attribute 'variable-pitch nil :height 140 :family "Source Sans Pro")
|
|
||||||
(set-face-attribute 'fixed-pitch nil :height 140 :family "Source Code Pro")
|
|
||||||
|
|
||||||
(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")
|
|
||||||
|
|
||||||
;; mode line
|
;; mode line
|
||||||
(setq-default mode-line-format
|
(setq-default mode-line-format
|
||||||
'("%+"
|
'("%+"
|
||||||
mode-line-buffer-identification
|
mode-line-buffer-identification
|
||||||
mode-line-modes
|
mode-line-modes
|
||||||
"%5l↑%3c→%6i⇆"
|
"%5l↑%3c→%6i⇆"
|
||||||
(:eval (number-to-string (count-lines (point-min) (point-max))))
|
(:eval
|
||||||
|
(number-to-string (count-lines (point-min) (point-max))))
|
||||||
"↓"
|
"↓"
|
||||||
mode-line-percent-position))
|
mode-line-percent-position))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue