Files
emacs/lisp/my/my-theme.el
2025-06-15 17:41:53 +02:00

45 lines
1.7 KiB
EmacsLisp

;; load via (load-theme 'my t)
(require 'spacemacs-theme)
(deftheme my "A simple custom theme")
(custom-set-variables
'(custom-safe-themes (quote ("my"))))
(let ((class '((class color) (min-colors 89)))
(main-bg "#1e1e1e") ;; "#292b2e"
)
(custom-theme-set-faces
'my
`(default ((,class :background ,main-bg))) ;; "#292b2e"
`(region ((,class :background "#302e3d"))) ;; "#444155" selecting text
`(mode-line ((,class :background "#2e2e2e"))) ;; "#222226"
`(fringe ((,class :background ,main-bg))) ;; "#292b2e"
`(org-table ((,class :background "#222a30"))) ;; "#293239"
`(org-block ((,class :background "#232126"))) ;; "#2f2b33"
`(org-block-begin-line ((,class :background "#232126"
;; :background "#211f21"
;;:box (:line-width 1 :color "#373040")
))) ;; "#2d2835" "#373040"
`(org-block-end-line ((,class :background "#232126"
;; :background "#211f21"
;;:box (:line-width 1 :color "#373040")
))) ;; "#373040"
`(org-quote ((,class (:inherit org-block :slant italic))))
`(org-verse ((,class (:inherit org-block :slant italic))))
`(window-divider ((,class :foreground "#5d4d7a"))) ;; "#5d4d7a"
`(window-divider-first-pixel ((,class :foreground "#5d4d7a"))) ;;
`(window-divider-last-pixel ((,class :foreground "#5d4d7a"))) ;;
))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'my)
;; (provide 'my-theme)