emacs
/
emacs-color-theme-solarized
mirror of https://github.com/sellout/emacs-color-theme-solarized.git
1
0
Fork 0
Code Issues Releases Wiki Activity
emacs-color-theme-solarized/solarized-theme.el

51 lines
2.0 KiB
EmacsLisp
Raw Normal View History

Eliminate create-solarized-theme macro This was a remnant from having separate solarized-dark and -light themes. We only ever produce one theme now, so use the usual theme definition mechanism.
2023-02-07 19:26:04 +01:00
;; solarized-theme.el --- Solarized custom theme -*- lexical-binding: t; -*-
Many improvements - Do a better job of setting up the right set of colors for various configurations. - Make the theme much more compact by not making duplicate face-spec elements – e.g., only generate 256-color-specific elements if we don’t use the 16-color color names for them, and only specify the background characteristic when the face differs between dark and light. - Add functions to toggle between dark and light modes (for any theme).
2023-02-02 08:05:11 +01:00
Unify light and dark themes. This also improves emacsclient support, since each theme can use its own color depth and dark/light mode.
2013-03-07 22:00:07 +01:00
(require 'solarized-definitions
(locate-file "solarized-definitions.el" custom-theme-load-path
'("c" "")))
Eliminate create-solarized-theme macro This was a remnant from having separate solarized-dark and -light themes. We only ever produce one theme now, so use the usual theme definition mechanism.
2023-02-07 19:26:04 +01:00
(deftheme solarized solarized-description)
(apply #'custom-theme-set-faces 'solarized (solarized-color-definitions))
(custom-theme-set-variables
'solarized
;; This is obsolete, but something might still be referencing it.
`(ansi-color-names-vector
,(apply #'vector
(mapcar (lambda (color-name)
(nth 1 (assoc color-name solarized-colors)))
'(base02 red green yellow blue magenta cyan base2)))))
Many improvements - Do a better job of setting up the right set of colors for various configurations. - Make the theme much more compact by not making duplicate face-spec elements – e.g., only generate 256-color-specific elements if we don’t use the 16-color color names for them, and only specify the background characteristic when the face differs between dark and light. - Add functions to toggle between dark and light modes (for any theme).
2023-02-02 08:05:11 +01:00
(cl-defun solarized-update-background-mode
(appearance &optional (frames (frame-list)))
"Set the APPEARANCE of all frames to either 'light or 'dark.
This is not specific to Solarized – it will update the appearance of any theme
that observes the background characteristic."
(setq frame-background-mode appearance)
(mapc #'frame-set-background-mode frames)
;; Supposedly #'frame-set-background-mode updates the faces, but it doesn’t
;; seem to actually., so re-enable all the themes.
(mapc #'enable-theme (reverse custom-enabled-themes))
;; For some reason, ‘enable-theme’ (or maybe ‘solarized’?) is resetting the
;; ‘frame-background-mode’, so reset it here.
(setq frame-background-mode appearance))
(defun solarized-toggle-background-mode ()
"Toggle between light and dark background modes.
This is not specific to Solarized – it will update the appearance of any theme
that observes the background characteristic."
(interactive)
(let ((new-mode (pcase frame-background-mode
('dark 'light)
(_ 'dark))))
(solarized-update-background-mode new-mode)))
Eliminate create-solarized-theme macro This was a remnant from having separate solarized-dark and -light themes. We only ever produce one theme now, so use the usual theme definition mechanism.
2023-02-07 19:26:04 +01:00
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide-theme 'solarized)
;;; solarized-theme.el ends here