exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Colorize Org clock mode-line display according to theme

Browse Source 
Do not use a custom face setting here.
This commit is contained in:
Daniel Borchmann 2025-06-07 19:23:50 +02:00
parent b16996ea51
commit fccbbd8509
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
themes/db-dark-theme.el
View File

@ -18,6 +18,7 @@ Known to work well with the `solarized-dark’ theme.")
'(org-column ((t (:strike-through nil :underline nil :slant normal :weight normal)))) '(org-column ((t (:strike-through nil :underline nil :slant normal :weight normal))))
'(org-headline-done ((t (:foreground "#859900")))) '(org-headline-done ((t (:foreground "#859900"))))
'(org-link ((t (:inherit link :weight normal)))) '(org-link ((t (:inherit link :weight normal))))
'(org-mode-line-clock ((t (:inherit default))))
'(outline-4 ((t (:inherit org-level-4)))) '(outline-4 ((t (:inherit org-level-4))))
'(flyspell-duplicate ((t (:underline (:color "orange red" :style wave))))) '(flyspell-duplicate ((t (:underline (:color "orange red" :style wave)))))
'(flyspell-incorrect ((t (:underline (:color "orange red" :style wave))))) '(flyspell-incorrect ((t (:underline (:color "orange red" :style wave)))))

1
themes/db-light-theme.el
View File

@ -18,6 +18,7 @@
'(org-column ((t (:strike-through nil :underline nil :slant normal :weight normal :height 110 :family "DejaVu Sans Mono")))) '(org-column ((t (:strike-through nil :underline nil :slant normal :weight normal :height 110 :family "DejaVu Sans Mono"))))
'(org-headline-done ((t (:foreground "#859900")))) '(org-headline-done ((t (:foreground "#859900"))))
'(org-link ((t (:inherit link :weight normal)))) '(org-link ((t (:inherit link :weight normal))))
'(org-mode-line-clock ((t (:inherit default))))
'(outline-4 ((t (:inherit org-level-4)))) '(outline-4 ((t (:inherit org-level-4))))
'(flyspell-duplicate ((t (:underline (:color "orange red" :style wave))))) '(flyspell-duplicate ((t (:underline (:color "orange red" :style wave)))))
'(flyspell-incorrect ((t (:underline (:color "orange red" :style wave))))) '(flyspell-incorrect ((t (:underline (:color "orange red" :style wave)))))