blob: 9150bfd84c4e90abb22fc3c4ef146c8fd198b3e8 (
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
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
(setq fontaine-presets
'((default
:default-height 140
:default-family "Iosevka Comfy"
:variable-pitch-family "Iosevka Comfy"
:variable-pitch-height 1.0
:fixed-pitch-family "Iosevka Comfy"
:fixed-pitch-height 1.0
:bold-weight bold
)
(tiny
:inherit default
:default-height 135)
(wide
:default-height 135
:default-family "Iosevka Comfy Wide"
:fixed-pitch-family "Iosevka Comfy Wide"
:variable-pitch-family "Iosevka Comfy Wide Motion Duo")
(prot
:default-family "Iosevka Comfy Wide Motion"
:default-height 130
:default-weight medium
:fixed-pitch-family "Iosevka Comfy Wide Motion"
:variable-pitch-family "Iosevka Comfy Wide Duo"
:bold-weight extrabold)
(mono
:default-height 130
:default-family "monospace"
:fixed-pitch-family "monospace"
:variable-pitch-family "Baskerville"
:variable-pitch-height 140)
(mono-large
:inherit mono
:default-height 150
:variable-pitch-height 160)
(mac
:default-height 130
:default-family "Monaco"
:variable-pitch-family "Monaco"
:fixed-pitch-family "Monaco")
(large
:inherit default
:default-height 160
)
(huge
:inherit default
:default-height 180
)
(t
:default-family "Monospace"
)))
(set-fontset-font
t 'han
(font-spec :family "Noto Serif CJK JP") nil 'prepend)
;;; Switching themes
(defun bard/disable-all-themes ()
"disable all active themes."
(interactive)
(dolist (i custom-enabled-themes)
(disable-theme i)))
(defvar bard/after-theme-load-hook nil
"Hook that runs after a new theme is loaded using `bard/select-theme`.")
(dolist (hook '(bard/after-theme-load-hook))
(add-hook hook #'fontaine-apply-current-preset)
(add-hook hook #'logos-update-fringe-in-buffers))
(defun bard/select-theme (&optional theme)
"Enable the specified THEME, or prompt the user to select one if THEME is nil."
(interactive
(list
(completing-read "Select theme: "
(mapcar 'symbol-name (custom-available-themes)))))
(let* ((theme-symbol (if (symbolp theme) theme (intern theme)))
(theme-name (symbol-name theme-symbol))
(display-theme-name (if (string-suffix-p "-theme" theme-name)
(substring theme-name 0 -6)
theme-name))
(colored-theme-name (propertize display-theme-name 'face '(:weight bold))))
(bard/disable-all-themes)
(load-theme theme-symbol t)
(message "Loaded the %s theme" colored-theme-name)
(run-hooks 'bard/after-theme-load-hook)))
(defun bard/update-ryo-cursor-color ()
"Update the color variable of `ryo-modal-mode' cursor to match the ef/modus theme."
(let ((active-theme (car custom-enabled-themes))
(cursor-color nil))
(cond
((and (fboundp 'ef-themes-with-colors)
(string-prefix-p "ef-" (symbol-name active-theme)))
(ef-themes-with-colors
(setq ryo-modal-cursor-color cursor
ryo-modal-default-cursor-color cursor)))
((and (fboundp 'modus-themes-with-colors)
(string-prefix-p "modus-" (symbol-name active-theme)))
(modus-themes-with-colors
(setq ryo-modal-cursor-color cursor
ryo-modal-default-cursor-color cursor)))
(t (setq cursor-color "red"))
(setq ryo-modal-cursor-color cursor-color
ryo-modal-default-cursor-color cursor-color))))
(defvar my-last-cursor-type nil)
(defun bard/update-cursor-type ()
"Set cursor type to 'bar in text modes, 'box otherwise.
leave it alone in pdf-view-mode."
(unless (derived-mode-p 'pdf-view-mode)
(let ((new-cursor (if (derived-mode-p 'text-mode) 'bar 'box)))
(unless (eq my-last-cursor-type new-cursor)
(setq cursor-type new-cursor)
(setq my-last-cursor-type new-cursor)))))
(add-hook 'post-command-hook #'bard/update-cursor-type)
(defun bard/outline-heading-faces ()
(set-face-attribute 'org-document-title nil
:inherit '(outline-1 variable-pitch)
:weight 'light
:height 1.5)
(set-face-attribute 'org-level-1 nil
:inherit '(outline-2 variable-pitch)
:weight 'light
:height 1.3)
(set-face-attribute 'org-level-2 nil
:inherit 'outline-3
:height 1.2)
(set-face-attribute 'org-level-3 nil
:inherit '(outline-4 variable-pitch)
:height 1.1)
(set-face-attribute 'org-level-4 nil
:inherit '(outline-5 variable-pitch)
:height 1.1)
(set-face-attribute 'org-level-5 nil
:inherit '(outline-6 variable-pitch)
:height 1.1)
(set-face-attribute 'org-level-6 nil
:inherit '(outline-6 variable-pitch)
:height 1.1)
(set-face-attribute 'org-agenda-date nil
:inherit 'variable-pitch
:weight 'bold
:height 1.3)
(set-face-attribute 'org-agenda-structure nil
:inherit 'variable-pitch
:weight 'bold
:height 1.5))
(add-hook 'bard/after-theme-load-hook #'bard/outline-heading-faces)
(provide 'bard-theme)
|
