From 707ce10be656ed76f375c721c18a3fcbd572d778 Mon Sep 17 00:00:00 2001
From: David Morgan <djm_uk@protonmail.com>
Date: Mon, 9 Aug 2021 16:44:42 +0100
Subject: Play around with modus some more, and improve startup speed

---
 emacs-prelude/personal/lisp/init-lsp.el      | 2 +-
 emacs-prelude/personal/lisp/init-modeline.el | 1 -
 emacs-prelude/personal/lisp/init-ui.el       | 7 +++++--
 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>"))
-- 
cgit 1.4.1-2-gfad0