From 16764da88568497c148f312157deb3de79678517 Mon Sep 17 00:00:00 2001
From: David Morgan <djm_uk@protonmail.com>
Date: Fri, 6 Aug 2021 16:04:09 +0100
Subject: Play around with some UI stuff (mainly modus themes)

---
 emacs-prelude/personal/lisp/init-clojure.el   |  3 ++-
 emacs-prelude/personal/lisp/init-dashboard.el |  2 +-
 emacs-prelude/personal/lisp/init-git.el       | 23 ++++++++++++-----------
 emacs-prelude/personal/lisp/init-ui.el        |  6 +++++-
 4 files changed, 20 insertions(+), 14 deletions(-)

diff --git a/emacs-prelude/personal/lisp/init-clojure.el b/emacs-prelude/personal/lisp/init-clojure.el
index 080b695..a69b632 100644
--- a/emacs-prelude/personal/lisp/init-clojure.el
+++ b/emacs-prelude/personal/lisp/init-clojure.el
@@ -38,6 +38,7 @@
         cider-repl-history-file "~/.emacs.d/cider-history"
         clojure-toplevel-inside-comment-form t)
   (key-chord-define-global "??" 'cider-xref-fn-refs-select)
-  (key-chord-define-global "qq" 'cider-xref-fn-refs))
+  (key-chord-define-global "qq" 'cider-xref-fn-refs)
+  :hook (cider-repl-mode . (lambda () (display-line-numbers-mode -1))))
 
 (provide 'init-clojure)
diff --git a/emacs-prelude/personal/lisp/init-dashboard.el b/emacs-prelude/personal/lisp/init-dashboard.el
index 1986271..538bc4c 100644
--- a/emacs-prelude/personal/lisp/init-dashboard.el
+++ b/emacs-prelude/personal/lisp/init-dashboard.el
@@ -6,7 +6,7 @@
         dashboard-set-footer nil
         dashboard-week-agenda t
         dashboard-projects-backend 'projectile
-        ;dashboard-projects-switch-function 'projectile-persp-switch-project
+        dashboard-projects-switch-function 'projectile-persp-switch-project
         dashboard-items '((recents  . 15)
                         (bookmarks . 5)
                         (projects . 5)
diff --git a/emacs-prelude/personal/lisp/init-git.el b/emacs-prelude/personal/lisp/init-git.el
index 7745af8..973b637 100644
--- a/emacs-prelude/personal/lisp/init-git.el
+++ b/emacs-prelude/personal/lisp/init-git.el
@@ -17,19 +17,20 @@
   :config
   (key-chord-define-global "UU" 'my/magit-set-upstream)
   (key-chord-define-global "RR" 'my/magit-refresh-state)
-  :custom-face
-  (diff-added ((t (:foreground "green4"))))
-  (magit-diff-added ((t (:foreground "green4"))))
-  (magit-diff-added-highlight ((t (:foreground "green4"))))
-  (diff-removed ((t (:foreground "red3"))))
-  (magit-diff-removed ((t (:foreground "red3"))))
-  (magit-diff-removed-highlight ((t (:foreground "red3"))))
+  ;; :custom-face
+  ;; (diff-added ((t (:foreground "green4"))))
+  ;; (magit-diff-added ((t (:foreground "green4"))))
+  ;; (magit-diff-added-highlight ((t (:foreground "green4"))))
+  ;; (diff-removed ((t (:foreground "red3"))))
+  ;; (magit-diff-removed ((t (:foreground "red3"))))
+  ;; (magit-diff-removed-highlight ((t (:foreground "red3"))))
   :custom
   (magit-diff-refine-hunk 'all)
-  (magit-diff-paint-whitespace t)
-  (magit-diff-paint-whitespace-lines 'all)
-  (magit-diff-highlight-trailing t)
-  (magit-diff-highlight-indentation t))
+  ;; (magit-diff-paint-whitespace t)
+  ;; (magit-diff-paint-whitespace-lines 'all)
+  ;; (magit-diff-highlight-trailing t)
+  ;; (magit-diff-highlight-indentation t)
+  )
 
 (prelude-require-package 'forge)
 (use-package forge
diff --git a/emacs-prelude/personal/lisp/init-ui.el b/emacs-prelude/personal/lisp/init-ui.el
index 734a710..867fd5b 100644
--- a/emacs-prelude/personal/lisp/init-ui.el
+++ b/emacs-prelude/personal/lisp/init-ui.el
@@ -5,7 +5,11 @@
 (scroll-bar-mode -1)
 
 (prelude-require-package 'solarized-theme)
-(load-theme 'solarized-dark t)
+;(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))
+(load-theme 'modus-vivendi t)
 
 (setq whitespace-line-column 120)
 
-- 
cgit 1.4.1-2-gfad0