blob: 1033e464853c61dbd774eb9c73f76966bbbf14bf (
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
;;; 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.
;; Load the theme so that the macro expansion does not complain.
(modus-themes-load-theme 'modus-vivendi)
(defun durand-custom-face (&rest _args)
"Change appearances of some themes."
(cond
((featurep 'modus-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))))))))
(add-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)
|
