summaryrefslogtreecommitdiff
path: root/theme.el
blob: b9c8d34ead72f83f73bd3e5518f652a5b76a2f05 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
;;; 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)
           ;; blue cursor
           (list 'cursor 'blue-cooler)
           ;; headings
           ;; I prefer the old color for heading 1
           (list 'heading-1 "#b6a0ff")
           ;; 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)
       (list 2 1.1 'variable-pitch)
       (list 3 1.15 'variable-pitch)
       (list 4 1.2 'variable-pitch)
       (list 5 1.3 'variable-pitch)
       (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))

;;;; 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-tinted)