;;; theme

(use-package "protesilaos/modus-themes" 'modus-themes)

;;; No fringe

(fringe-mode 0)

;;; palette

(mapc
 (lambda (theme)
   (let ((symbol (intern (format "%s-palette-overrides" theme))))
     (set symbol
          (list
           ;; borders
           ;; (list 'border-mode-line-active 'bg-mode-line-active)
           ;; (list 'border-mode-line-inactive 'bg-mode-line-inactive)
           ;; subtle line numbers
           (list 'bg-line-number-inactive 'bg-dim)
           (list 'fg-line-number-inactive 'fg-dim)
           (list 'bg-line-number-active 'bg-main)
           (list 'fg-line-number-active 'fg-main)
           ;; comment
           (list 'comment 'yellow-faint)
           ;; blue cursor
           (list 'cursor 'fg-main)
           ;; I prefer the old color for heading 1
           (list 'fg-heading-1 "#b6a0ff")
           ;; link background and bold
           (list 'bg-link 'bg-dim)
           (list 'bg-link-visited 'bg-cyan-nuanced)
           (list 'bg-link-symbolic 'bg-red-nuanced)
           (list 'underline-link t)
           ;; Trying to imitate the old line numbers color
           (list 'fg-line-number-active 'blue-warmer)))))
 (list "modus-vivendi" "modus-vivendi-tinted"))

;;; converted settings
(setq modus-themes-region (list 'bg-only))

;; It seems the default style already has rainbow effect.  Let's see
;; what will happen.
;;
;; But agenda settings are transferred here.
(setq modus-themes-headings
      (list
       (list 0 'variable-pitch 'ultrabold 1.3)
       (list 1 1.05 'variable-pitch 'ultrabold)
       (list 2 1.1 'variable-pitch 'extrabold)
       (list 3 1.15 'variable-pitch 'extrabold)
       (list 4 1.2 'variable-pitch 'bold)
       (list 5 1.3 'variable-pitch 'bold)
       (list 'agenda-date 'ultrabold)
       (list 'agenda-structure 'variable-pitch 'ultrabold)))

;; (setq modus-themes-org-agenda
;;       '((header-block . (variable-pitch scale-title))
;;         (header-date . (gray-scale))
;;         (scheduled . rainbow)
;;         ()))

;; (setq modus-themes-scale-headings t)
;; (setq modus-themes-scale-1 1.05)
;; (setq modus-themes-scale-2 1.1)
;; (setq modus-themes-scale-3 1.15)
;; (setq modus-themes-scale-4 1.2)
;; (setq modus-themes-scale-5 1.3)

;; (setq modus-themes-variable-pitch-headings t)

;; Comment
;; 
;; This is fine, as the new comment color already looks good.
;; (setq modus-themes-syntax '(yellow-comments))

;; HL-LINE
;; 
;; This does not seem to have a big difference.

;; (setq modus-themes-hl-line '(intense accented))

;; Subtle line numbers
;; I try to imitate this effect by setting the palette, but am not
;; satisfied.
;; 
;; (setq modus-themes-subtle-line-numbers t)

;;; I like the default style
(setq modus-themes-completions nil)

;;; Glad these options remain
(setq modus-themes-bold-constructs t)
(setq modus-themes-italic-constructs t)
(setq modus-themes-org-blocks 'gray-background)
(setq modus-themes-variable-pitch-ui nil)

;;; How to convert these settings?

;;;; Mode-line
;; I can delete the mode line border via the palette.
;;
;; But I am not sure about the 3d effect.
;;
;; I am not sure about the padding either.

;; (setq modus-themes-mode-line '(3d borderless padded))

;; To change the mode-line face via a hook.

(defun durand-custom-face (&rest _args)
  "Change appearances of some themes."
  (modus-themes-with-colors
    (custom-set-faces
     (list 'mode-line
           (list
            (list
             t
             :box (list :line-width 4
                        :color bg-mode-line-active
                        :style 'released-button)
             :background bg-mode-line-active
             :foreground fg-mode-line-active)))
     (list 'mode-line-inactive
           (list
            (list
             t
             :box (list :line-width 4
                        :color bg-mode-line-inactive
                        :style 'released-button)
             :background bg-mode-line-inactive
             :foreground fg-mode-line-inactive))))))

(remove-hook 'modus-themes-after-load-theme-hook #'durand-custom-face)

;;;; Links
;; Fine, but I cannot set the background color now?
;; (setq modus-themes-links '(background bold))

;;; Load the theme

(modus-themes-load-theme 'modus-vivendi)