Files
.emacs.d/lisp/my-base16-dark-theme.el
trogloxene 311aefe6f9 添加 dirvish 配置和其他调整
- 新增 init-dired.el 基础配置
- 调整 corfu 初始化方式
- 修改 dashboard 显示设置和快捷键
- 更新键位绑定
- 调整 org-journal 格式
- 修复 scratch buffer 模式设置
- 更新主题颜色
2026-04-03 19:01:03 +08:00

39 lines
1.4 KiB
EmacsLisp

;;; my-base16-dark-theme.el --- Base16 Dark Theme -*- lexical-binding: t -*-
;;; Commentary:
;; A green base16 dark theme base on solarized-theme
;;; Code:
(require 'solarized)
(require 'my-base16-palette)
(eval-when-compile
(require 'solarized-palettes))
(deftheme my-base16-dark "A Base16 dark theme using Solarized framework.")
(solarized-with-color-variables-with-palette
'dark
'my-base16-dark
my-base16-dark-core-palette
'((custom-theme-set-faces
theme-name
`(org-level-2 ((,class (:foreground ,green :height 1.05))))
`(org-level-3 ((,class (:foreground ,blue))))
`(org-level-6 ((,class (:foreground ,green))))
`(org-level-8 ((,class (:foreground ,blue))))
`(org-done ((,class (:foreground ,green :weight bold))))
`(org-headline-done ((,class (:foreground ,green))))
`(org-priority ((,class (:foreground ,green :weight bold))))
`(font-lock-keyword-face ((,class (:foreground ,cyan :weight bold))))
`(font-lock-doc-face ((,class (:foreground ,green :slant normal))))
`(font-lock-string-face ((,class (:foreground ,green))))
`(dashboard-footer-face ((,class (:foreground ,blue))))
`(dashboard-text-banner ((,class (:foreground ,green))))
`(dashboard-heading ((,class (:foreground ,green :weight bold))))
`(vertico-current ((,class (:background ,base02 :extend t :underline nil)))))))
(provide-theme 'my-base16-dark)
;;; my-base16-dark-theme.el ends here