From 3941e179e7716bb8168c1412d45ff2c8af0674b7 Mon Sep 17 00:00:00 2001
From: Kentaro Ohkouchi <nanasess@fsm.ne.jp>
Date: Thu, 8 Aug 2024 09:33:50 +0900
Subject: [PATCH] Use modus-theme

---
 .emacs.d/init.el | 35 +++++++++++++++++++++++------------
 1 file changed, 23 insertions(+), 12 deletions(-)

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 711d73c..b2f81d6 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -258,19 +258,30 @@
 
 ;;; face settings
 (setq visible-bell t)
+(el-get-bundle modus-themes
+  :type github
+  :pkgname "protesilaos/modus-themes")
+(add-to-list 'load-path "~/.emacs.d/el-get/modus-themes")
+(require 'modus-themes)
+(setopt modus-themes-common-palette-overrides
+        modus-themes-preset-overrides-warmer)
+(setopt modus-themes-italic-constructs t
+        modus-themes-bold-constructs nil)
+(load-theme 'modus-operandi-tinted t)
+
 (el-get-bundle doom-themes)
-(add-hook
- 'emacs-startup-hook
- #'(lambda ()
-     (require 'doom-themes)
-     ;; use solarized.
-     (load-theme 'doom-solarized-light t)
-     (with-eval-after-load 'vertico
-       (custom-set-faces
-        `(vertico-group-title ((t (:foreground ,(doom-color 'base7)))))))
-     (with-eval-after-load 'corfu
-       (custom-set-faces
-        `(corfu-annotations ((t (:foreground ,(doom-color 'green)))))))))
+;; (add-hook
+;;  'emacs-startup-hook
+;;  #'(lambda ()
+;;      (require 'doom-themes)
+;;      ;; use solarized.
+;;      (load-theme 'doom-solarized-light t)
+;;      (with-eval-after-load 'vertico
+;;        (custom-set-faces
+;;         `(vertico-group-title ((t (:foreground ,(doom-color 'base7)))))))
+;;      (with-eval-after-load 'corfu
+;;        (custom-set-faces
+;;         `(corfu-annotations ((t (:foreground ,(doom-color 'green)))))))))
 
 (require 'whitespace)
 (setq whitespace-style