Compare commits
4 Commits
2d3f863341
...
d9ef6acfda
Author | SHA1 | Date |
---|---|---|
Alison G. Watson | d9ef6acfda | |
Alison G. Watson | 787f98342f | |
Alison G. Watson | 19717e5cb0 | |
Alison G. Watson | 7aa1d3af2a |
|
@ -5,15 +5,22 @@
|
||||||
backup-directory-alist `((".*" . ,usr-backup))
|
backup-directory-alist `((".*" . ,usr-backup))
|
||||||
create-lockfiles nil
|
create-lockfiles nil
|
||||||
custom-file usr-custom
|
custom-file usr-custom
|
||||||
gc-cons-threshold 64000000
|
file-name-handler-alist nil
|
||||||
|
gc-cons-threshold (* 200 1000 1000)
|
||||||
global-mark-ring-max 1024
|
global-mark-ring-max 1024
|
||||||
inhibit-compacting-font-caches t
|
inhibit-compacting-font-caches t
|
||||||
inhibit-startup-screen t
|
inhibit-startup-screen t
|
||||||
initial-scratch-message nil
|
initial-scratch-message nil
|
||||||
mark-ring-max 1024))
|
mark-ring-max 1024))
|
||||||
|
|
||||||
(when (string-equal system-type "windows-nt")
|
(if (eq system-type 'windows-nt)
|
||||||
(setenv "PATH" (concat "C:/emacs/bin;" (getenv "PATH"))))
|
(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
|
;; important ergonomics
|
||||||
(setq fill-column 80
|
(setq fill-column 80
|
||||||
|
@ -45,7 +52,7 @@
|
||||||
(set-fontset-font t '(#x2e80 . #x9fff) "Noto Sans CJK JP")
|
(set-fontset-font t '(#x2e80 . #x9fff) "Noto Sans CJK JP")
|
||||||
|
|
||||||
(setq agw-mode-line-family
|
(setq agw-mode-line-family
|
||||||
(if (string-equal system-type "windows-nt")
|
(if (eq system-type 'windows-nt)
|
||||||
"Noto Mono"
|
"Noto Mono"
|
||||||
"Iosevka"))
|
"Iosevka"))
|
||||||
|
|
||||||
|
|
|
@ -21,13 +21,13 @@
|
||||||
(set-scroll-bar-mode nil)
|
(set-scroll-bar-mode nil)
|
||||||
|
|
||||||
;; `prog-mode'
|
;; `prog-mode'
|
||||||
(add-hook 'prog-mode-hook #'flyspell-prog-mode)
|
(add-hook 'prog-mode-hook #'agw-flyspell-prog-mode)
|
||||||
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
||||||
(add-hook 'prog-mode-hook #'subword-mode)
|
(add-hook 'prog-mode-hook #'subword-mode)
|
||||||
(add-hook 'prog-mode-hook #'agw-prog-mode)
|
(add-hook 'prog-mode-hook #'agw-prog-mode)
|
||||||
|
|
||||||
;; `text-mode'
|
;; `text-mode'
|
||||||
(add-hook 'text-mode-hook #'flyspell-prog-mode)
|
(add-hook 'text-mode-hook #'agw-flyspell-prog-mode)
|
||||||
(add-hook 'text-mode-hook #'subword-mode)
|
(add-hook 'text-mode-hook #'subword-mode)
|
||||||
(add-hook 'text-mode-hook #'agw-prog-mode)
|
(add-hook 'text-mode-hook #'agw-prog-mode)
|
||||||
|
|
||||||
|
@ -152,7 +152,7 @@
|
||||||
|
|
||||||
(use-package markdown-mode
|
(use-package markdown-mode
|
||||||
:ensure t
|
:ensure t
|
||||||
:hook ((markdown-mode . flyspell-mode))
|
:hook ((markdown-mode . agw-flyspell-mode))
|
||||||
:mode (("\\.mdwn\\'" . markdown-mode)))
|
:mode (("\\.mdwn\\'" . markdown-mode)))
|
||||||
|
|
||||||
(use-package ninja-mode
|
(use-package ninja-mode
|
||||||
|
@ -171,7 +171,7 @@
|
||||||
|
|
||||||
;; org-mode
|
;; org-mode
|
||||||
(use-package org
|
(use-package org
|
||||||
:hook ((org-mode . flyspell-mode)
|
:hook ((org-mode . agw-flyspell-mode)
|
||||||
(org-mode . agw-org-mode))
|
(org-mode . agw-org-mode))
|
||||||
:init
|
:init
|
||||||
(setq org-fontify-whole-heading-line t
|
(setq org-fontify-whole-heading-line t
|
||||||
|
@ -333,16 +333,17 @@
|
||||||
:ensure t)
|
:ensure t)
|
||||||
|
|
||||||
;; input
|
;; input
|
||||||
(use-package mule
|
(unless (eq system-type 'windows-nt)
|
||||||
:init
|
(use-package mule
|
||||||
(setq current-language-environment "UTF-8"
|
:init
|
||||||
keyboard-coding-system 'utf-8-unix))
|
(setq current-language-environment "UTF-8"
|
||||||
|
keyboard-coding-system 'utf-8-unix))
|
||||||
|
|
||||||
(use-package mozc
|
(use-package mozc
|
||||||
:ensure t
|
:ensure t
|
||||||
:after mule
|
:after mule
|
||||||
:config
|
:config
|
||||||
(setq default-input-method "japanese-mozc"))
|
(setq default-input-method "japanese-mozc")))
|
||||||
|
|
||||||
(use-package evil
|
(use-package evil
|
||||||
:ensure t
|
:ensure t
|
||||||
|
@ -400,4 +401,7 @@
|
||||||
:config
|
:config
|
||||||
(fringe-mode 0))
|
(fringe-mode 0))
|
||||||
|
|
||||||
|
;; end of init
|
||||||
|
(setq gc-cons-threshold (* 1 1000 1000))
|
||||||
|
|
||||||
;; EOF
|
;; EOF
|
||||||
|
|
Loading…
Reference in New Issue