diff options
-rw-r--r-- | emacs-prelude/personal/lisp/init-lsp.el | 2 | ||||
-rw-r--r-- | emacs-prelude/personal/lisp/init-modeline.el | 1 | ||||
-rw-r--r-- | emacs-prelude/personal/lisp/init-ui.el | 7 | ||||
-rw-r--r-- | emacs-prelude/personal/personal.el | 4 |
4 files changed, 10 insertions, 4 deletions
diff --git a/emacs-prelude/personal/lisp/init-lsp.el b/emacs-prelude/personal/lisp/init-lsp.el index 9f8f1cd..6803332 100644 --- a/emacs-prelude/personal/lisp/init-lsp.el +++ b/emacs-prelude/personal/lisp/init-lsp.el @@ -3,7 +3,7 @@ :after key-chord :hook (clojure-mode . lsp) :config - (setq gc-cons-threshold (* 100 1024 1024) + (setq ;gc-cons-threshold (* 100 1024 1024) read-process-output-max (* 1024 1024) lsp-ui-doc-delay 1 lsp-lens-enable nil diff --git a/emacs-prelude/personal/lisp/init-modeline.el b/emacs-prelude/personal/lisp/init-modeline.el index 4a727d7..b95eb80 100644 --- a/emacs-prelude/personal/lisp/init-modeline.el +++ b/emacs-prelude/personal/lisp/init-modeline.el @@ -31,4 +31,3 @@ (not-checked . "○")))) (provide 'init-modeline) - diff --git a/emacs-prelude/personal/lisp/init-ui.el b/emacs-prelude/personal/lisp/init-ui.el index 867fd5b..d3806f3 100644 --- a/emacs-prelude/personal/lisp/init-ui.el +++ b/emacs-prelude/personal/lisp/init-ui.el @@ -7,8 +7,11 @@ (prelude-require-package 'solarized-theme) ;(load-theme 'solarized-dark t) (prelude-require-package 'modus-themes) -(setq modus-themes-syntax '(alt-syntax green-strings yellow-comments) - modus-themes-paren-match '(bold intense underline)) +;(setq modus-themes-syntax '(alt-syntax green-strings yellow-comments) +(setq modus-themes-syntax '(green-strings yellow-comments) + modus-themes-paren-match '(bold intense underline) + modus-themes-diffs '(desaturated) + modus-themes-lang-checkers '(text-also background)) (load-theme 'modus-vivendi t) (setq whitespace-line-column 120) diff --git a/emacs-prelude/personal/personal.el b/emacs-prelude/personal/personal.el index dd09228..b5a1284 100644 --- a/emacs-prelude/personal/personal.el +++ b/emacs-prelude/personal/personal.el @@ -15,6 +15,10 @@ (require 'init-mac) (require 'init-misc) +(add-hook 'after-init-hook '(lambda () + (setq gc-cons-threshold (* 100 1024 1024) + gc-cons-percentage 0.1))) + (global-unset-key (kbd "<left>")) (global-unset-key (kbd "<right>")) (global-unset-key (kbd "<up>")) |