[config.git] / djavu-asus / elpa / solarized-theme-20230816.1732 / solarized.el

;;; solarized.el --- Solarized theme  -*- lexical-binding: t -*-

;; Copyright (C) 2011-2021 Bozhidar Batsov

;; Author: Bozhidar Batsov <bozhidar@batsov.dev>
;; Author: Thomas Frössman <thomasf@jossystem.se>

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Main solarized file

;;; Code:

(require 'cl-lib)
(require 'color)
(require 'solarized-faces)

;;; Options

(defgroup solarized nil
  "Solarized theme options.
The theme has to be reloaded after changing anything in this group."
  :group 'faces)

(defcustom solarized-theme-dir (locate-user-emacs-file "themes/")
  "Directory to save theme file."
  :type 'directory
  :group 'solarized)

(defcustom solarized-distinct-fringe-background nil
  "Make the fringe background different from the normal background color.
Also affects `linum-mode' background."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-distinct-doc-face nil
  "Make `font-lock-doc-face' stand out more.
Related discussion: https://github.com/bbatsov/solarized-emacs/issues/158"
  :type 'boolean
  :group 'solarized)

(defcustom solarized-use-variable-pitch t
  "Use variable pitch face for some headings and titles."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-use-less-bold nil
  "Use bold weight less often."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-use-more-italic nil
  "Use italic slant more often."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-emphasize-indicators t
  "Use more colors for indicators such as git:gutter, flycheck and similar."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-high-contrast-mode-line nil
  "Make the active/inactive mode line stand out more."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-height-minus-1 0.8
  "Font size -1."
  :type 'number
  :group 'solarized)

(defcustom solarized-height-plus-1 1.1
  "Font size +1."
  :type 'number
  :group 'solarized)

(defcustom solarized-height-plus-2 1.15
  "Font size +2."
  :type 'number
  :group 'solarized)

(defcustom solarized-height-plus-3 1.2
  "Font size +3."
  :type 'number
  :group 'solarized)

(defcustom solarized-height-plus-4 1.3
  "Font size +4."
  :type 'number
  :group 'solarized)

(defcustom solarized-scale-org-headlines t
  "Whether `org-mode' headlines should be scaled."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-scale-markdown-headlines nil
  "Whether `markdown-mode' headlines should be scaled."
  :type 'boolean
  :group 'solarized)

(defcustom solarized-scale-outline-headlines t
  "Whether `outline-mode' headlines should be scaled."
  :type 'boolean
  :group 'solarized)

;;; Utilities

(defun solarized-color-clamp-lab (lab)
  "Restricts a LAB colorspace color if it is out of bounds."
  (list (min (max (nth 0 lab) 0.0) 100.0)
        (min (max (nth 1 lab) -128) 127)
        (min (max (nth 2 lab) -128) 127)))

(defun solarized-color-rgb-to-hex (red green blue &optional digits-per-component round)
  "Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE.
RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive.
Optional argument DIGITS-PER-COMPONENT can be either 4 (the default)
or 2; use the latter if you need a 24-bit specification of a color.
Optional argument ROUND rounds values which probably is what you usually want."
  (or digits-per-component (setq digits-per-component 4))
  (let* ((maxval (if (= digits-per-component 2) 255 65535))
         (fmt (if (= digits-per-component 2) "#%02x%02x%02x" "#%04x%04x%04x")))
    (if round
        (format fmt (+ 0.5 (* red maxval)) (+ 0.5 (* green maxval)) (+ 0.5(* blue maxval)))
        (format fmt (* red maxval) (* green maxval) (* blue maxval)))))

;;;###autoload
(defun solarized-color-blend (color1 color2 alpha &optional digits-per-component)
  "Blends COLOR1 onto COLOR2 with ALPHA.

COLOR1 and COLOR2 should be color names (e.g. \"white\") or RGB
triplet strings (e.g. \"#ff12ec\").

Alpha should be a float between 0 and 1.

Optional argument DIGITS-PER-COMPONENT can be either 4 (the default) or 2;
use the latter if you need a 24-bit specification of a color."
  (let ((args (mapcar 'color-clamp
                      (apply 'color-lab-to-srgb
                             (solarized-color-clamp-lab
                              (cl-mapcar
                               (lambda (v1 v2) (+ v1 (* alpha (- v2 v1))))
                               (apply 'color-srgb-to-lab (color-name-to-rgb color2))
                               (apply 'color-srgb-to-lab (color-name-to-rgb color1))))))))
    (apply 'solarized-color-rgb-to-hex `(,@args ,digits-per-component t))))

;;;###autoload
(defun solarized-create-color-palette (core-palette)
  "Create color-palette from CORE-PALETTE.

The Returned color-palette has the same format as `solarized-color-palette'"
  (let ((darkest-base   (nth 0 core-palette))
        (brightest-base (nth 1 core-palette))
        (yellow         (nth 2 core-palette))
        (orange         (nth 3 core-palette))
        (red            (nth 4 core-palette))
        (magenta        (nth 5 core-palette))
        (violet         (nth 6 core-palette))
        (blue           (nth 7 core-palette))
        (cyan           (nth 8 core-palette))
        (green          (nth 9 core-palette)))

    `((base03  . ,(solarized-color-blend darkest-base brightest-base 1.00 2))
      (base02  . ,(solarized-color-blend darkest-base brightest-base 0.97 2))
      (base01  . ,(solarized-color-blend darkest-base brightest-base 0.65 2))
      (base00  . ,(solarized-color-blend darkest-base brightest-base 0.60 2))
      (base0   . ,(solarized-color-blend darkest-base brightest-base 0.48 2))
      (base1   . ,(solarized-color-blend darkest-base brightest-base 0.42 2))
      (base2   . ,(solarized-color-blend darkest-base brightest-base 0.06 2))
      (base3   . ,(solarized-color-blend darkest-base brightest-base 0.00 2))

      ;; Solarized accented colors
      (yellow    . ,yellow)
      (orange    . ,orange)
      (red       . ,red)
      (magenta   . ,magenta)
      (violet    . ,violet)
      (blue      . ,blue)
      (cyan      . ,cyan)
      (green     . ,green)

      ;; Darker and lighter accented colors
      ;; Only use these in exceptional circumstances!
      (yellow-d  . ,(solarized-color-blend darkest-base   yellow  0.80 2))
      (yellow-l  . ,(solarized-color-blend brightest-base yellow  0.80 2))
      (orange-d  . ,(solarized-color-blend darkest-base   orange  0.80 2))
      (orange-l  . ,(solarized-color-blend brightest-base orange  0.80 2))
      (red-d     . ,(solarized-color-blend darkest-base   red     0.80 2))
      (red-l     . ,(solarized-color-blend brightest-base red     0.80 2))
      (magenta-d . ,(solarized-color-blend darkest-base   magenta 0.80 2))
      (magenta-l . ,(solarized-color-blend brightest-base magenta 0.80 2))
      (violet-d  . ,(solarized-color-blend darkest-base   violet  0.80 2))
      (violet-l  . ,(solarized-color-blend brightest-base violet  0.80 2))
      (blue-d    . ,(solarized-color-blend darkest-base   blue    0.80 2))
      (blue-l    . ,(solarized-color-blend brightest-base blue    0.80 2))
      (cyan-d    . ,(solarized-color-blend darkest-base   cyan    0.80 2))
      (cyan-l    . ,(solarized-color-blend brightest-base cyan    0.80 2))
      (green-d   . ,(solarized-color-blend darkest-base   green   0.80 2))
      (green-l   . ,(solarized-color-blend brightest-base green   0.80 2))

      (yellow-1bg  . ,(solarized-color-blend darkest-base yellow  0.85 2))
      (orange-1bg  . ,(solarized-color-blend darkest-base orange  0.85 2))
      (red-1bg     . ,(solarized-color-blend darkest-base red     0.85 2))
      (magenta-1bg . ,(solarized-color-blend darkest-base magenta 0.85 2))
      (blue-1bg    . ,(solarized-color-blend darkest-base blue    0.85 2))
      (cyan-1bg    . ,(solarized-color-blend darkest-base cyan    0.85 2))
      (green-1bg   . ,(solarized-color-blend darkest-base green   0.85 2))
      (violet-1bg  . ,(solarized-color-blend darkest-base violet  0.85 2))

      (yellow-1fg  . ,(solarized-color-blend brightest-base yellow  0.30 2))
      (orange-1fg  . ,(solarized-color-blend brightest-base orange  0.30 2))
      (red-1fg     . ,(solarized-color-blend brightest-base red     0.30 2))
      (magenta-1fg . ,(solarized-color-blend brightest-base magenta 0.30 2))
      (violet-1fg  . ,(solarized-color-blend brightest-base violet  0.30 2))
      (blue-1fg    . ,(solarized-color-blend brightest-base blue    0.30 2))
      (cyan-1fg    . ,(solarized-color-blend brightest-base cyan    0.30 2))
      (green-1fg   . ,(solarized-color-blend brightest-base green   0.30 2))

      (yellow-2bg  . ,(solarized-color-blend darkest-base yellow  0.60 2))
      (orange-2bg  . ,(solarized-color-blend darkest-base orange  0.60 2))
      (red-2bg     . ,(solarized-color-blend darkest-base red     0.60 2))
      (magenta-2bg . ,(solarized-color-blend darkest-base magenta 0.60 2))
      (violet-2bg  . ,(solarized-color-blend darkest-base violet  0.60 2))
      (blue-2bg    . ,(solarized-color-blend darkest-base blue    0.60 2))
      (cyan-2bg    . ,(solarized-color-blend darkest-base cyan    0.60 2))
      (green-2bg   . ,(solarized-color-blend darkest-base green   0.60 2))

      (yellow-2fg  . ,(solarized-color-blend brightest-base yellow  0.45 2))
      (orange-2fg  . ,(solarized-color-blend brightest-base orange  0.45 2))
      (red-2fg     . ,(solarized-color-blend brightest-base red     0.45 2))
      (magenta-2fg . ,(solarized-color-blend brightest-base magenta 0.45 2))
      (violet-2fg  . ,(solarized-color-blend brightest-base violet  0.45 2))
      (blue-2fg    . ,(solarized-color-blend brightest-base blue    0.45 2))
      (cyan-2fg    . ,(solarized-color-blend brightest-base cyan    0.45 2))
      (green-2fg   . ,(solarized-color-blend brightest-base green   0.45 2)))))

;;; Setup Start
(defmacro solarized-with-color-variables (variant theme-name color-palette &optional childtheme-sexp)
  "Eval `solarized-definition' in solarized COLOR-PALETTE for THEME-NAME.
VARIANT is \\='dark or \\='light.
When optional argument CHILDTHEME-SEXP sexp is supplied it\\='s invoked to further
customize the resulting theme."
  (declare (indent defun))
  (let ((color-palette* (eval color-palette)))
    `(let* ((class '((class color) (min-colors 89)))
            (light-class (append '((background light)) class))
            (dark-class (append '((background dark)) class))
            (theme-name ,theme-name)
            (variant ,variant)
            ,@(mapcar (lambda (elm) `(,(car elm) ,(cdr elm))) color-palette*)

            (s-base03 base03)
            (s-base02 base02)
            (s-base01 base01)
            (s-base00 base00)
            (s-base3 base3)
            (s-base2 base2)
            (s-base1 base1)
            (s-base0 base0)

            ;; Solarized palette names, use these instead of -fg -bg...
            (base03 (if (eq variant 'light) s-base3 s-base03))
            (base02 (if (eq variant 'light) s-base2 s-base02))
            (base01 (if (eq variant 'light) s-base1 s-base01))
            (base00 (if (eq variant 'light) s-base0 s-base00))
            (base0 (if (eq variant 'light) s-base00 s-base0))
            (base1 (if (eq variant 'light) s-base01 s-base1))
            (base2 (if (eq variant 'light) s-base02 s-base2))
            (base3 (if (eq variant 'light) s-base03 s-base3))

            ;; Line drawing color
            ;;
            ;; NOTE only use this for very thin lines that are hard to see using base02, in low
            ;; color displayes base02 might be used instead
            (s-line (if (eq variant 'light) "#cccec4" "#284b54"))

            ;; Light/Dark adaptive higher/lower contrast accented colors
            ;;
            ;; NOTE Only use these in exceptional cirmumstances!
            (yellow-hc (if (eq variant 'light) yellow-d yellow-l))
            (yellow-lc (if (eq variant 'light) yellow-l yellow-d))
            (orange-hc (if (eq variant 'light) orange-d orange-l))
            (orange-lc (if (eq variant 'light) orange-l orange-d))
            (red-hc (if (eq variant 'light) red-d red-l))
            (red-lc (if (eq variant 'light) red-l red-d))
            (magenta-hc (if (eq variant 'light) magenta-d magenta-l))
            (magenta-lc (if (eq variant 'light) magenta-l magenta-d))
            (violet-hc (if (eq variant 'light) violet-d violet-l))
            (violet-lc (if (eq variant 'light) violet-l violet-d))
            (blue-hc (if (eq variant 'light) blue-d blue-l))
            (blue-lc (if (eq variant 'light) blue-l blue-d))
            (cyan-hc (if (eq variant 'light) cyan-d cyan-l))
            (cyan-lc (if (eq variant 'light) cyan-l cyan-d))
            (green-hc (if (eq variant 'light) green-d green-l))
            (green-lc (if (eq variant 'light) green-l green-d))

            ;; customize based face properties
            (s-maybe-bold (if solarized-use-less-bold
                              'unspecified 'bold))
            (s-maybe-italic (if solarized-use-more-italic
                                'italic 'normal))
            (s-variable-pitch (if solarized-use-variable-pitch
                                  'variable-pitch 'default))
            (s-fringe-bg (if solarized-distinct-fringe-background
                             base02 base03))
            (s-fringe-fg base01)

            (s-header-line-fg (if solarized-high-contrast-mode-line
                                  base1 base0))
            (s-header-line-bg (if solarized-high-contrast-mode-line
                                  base02 base03))
            (s-header-line-underline (if solarized-high-contrast-mode-line
                                         nil base02))

            (s-mode-line-fg (if solarized-high-contrast-mode-line
                                base03 base0))
            (s-mode-line-bg (if solarized-high-contrast-mode-line
                                base0 base02))
            (s-mode-line-underline (if solarized-high-contrast-mode-line
                                       nil s-line))

            (s-mode-line-buffer-id-fg (if solarized-high-contrast-mode-line
                                          'unspecified base1))
            (s-mode-line-inactive-fg (if solarized-high-contrast-mode-line
                                         base0 base01))
            (s-mode-line-inactive-bg (if solarized-high-contrast-mode-line
                                         base02 base03))
            (s-mode-line-inactive-bc (if solarized-high-contrast-mode-line
                                         base02 base02))

            ;; diff colors
            (s-diff-A-bg red-1bg)
            (s-diff-A-fg red-1fg)
            (s-diff-fine-A-bg red-2bg)
            (s-diff-fine-A-fg red-2fg)

            (s-diff-B-bg green-1bg)
            (s-diff-B-fg green-1fg)
            (s-diff-fine-B-bg green-2bg)
            (s-diff-fine-B-fg green-2fg)

            (s-diff-Ancestor-bg yellow-1bg)
            (s-diff-Ancestor-fg yellow-1fg)
            (s-diff-fine-Ancestor-bg yellow-2bg)
            (s-diff-fine-Ancestor-fg yellow-2fg)

            (s-diff-C-bg blue-1bg)
            (s-diff-C-fg blue-1fg)
            (s-diff-fine-C-bg blue-2bg)
            (s-diff-fine-C-fg blue-2fg)
            (s-diff-context-fg base0)
            (s-diff-heading-bg base02)

            (s-diffstat-added-fg green)
            (s-diffstat-changed-fg blue)
            (s-diffstat-removed-fg red))

       ;; NOTE: `custom--inhibit-theme-enable' turn-off needed
       ;;       childtheme works well disscussed in #352
       (let ((custom--inhibit-theme-enable nil))
         ,@solarized-definition
         ,@(eval childtheme-sexp)))))

(defmacro solarized-with-color-variables-with-palette (variant theme-name core-palette &optional childtheme-sexp)
  "Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.

When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
customize the resulting theme.

CORE-PALETTE is core color-palette."
  (declare (indent 2))
  (let ((color-palette (solarized-create-color-palette (eval core-palette))))
    `(solarized-with-color-variables ,variant ,theme-name ',color-palette ,childtheme-sexp)))

(defun solarized-create-theme-file (variant theme-name color-palette &optional childtheme-sexp overwrite)
  "Create a VARIANT of the theme named THEME-NAME with COLOR-PALETTE.

When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
customize the resulting theme.

CORE-PALETTE is core color-palette.
If OVERWRITE is non-nil, overwrite theme file if exist."
  (declare (indent 2))
  (add-to-list 'custom-theme-load-path solarized-theme-dir)
  (let ((path (expand-file-name (format "%s.el" theme-name)
                                solarized-theme-dir)))
    (unless (file-directory-p solarized-theme-dir)
      (make-directory solarized-theme-dir))
    (when (or overwrite (not (file-readable-p path)))
      (with-temp-file (expand-file-name (format "%s-theme.el" theme-name)
                                        solarized-theme-dir)
        (mapc (lambda (elm)
                (insert (pp-to-string elm)))
              `((require 'solarized)
                (deftheme ,theme-name
                  ,(format "The %s colour theme of Solarized colour theme flavor." theme-name))
                (solarized-with-color-variables ',variant ',theme-name ',color-palette ',childtheme-sexp)
                (provide-theme ',theme-name)
                (provide ',(intern (format "%s-theme" theme-name)))))))
    path))

(defun solarized-create-theme-file-with-palette (variant theme-name core-palette &optional childtheme-sexp overwrite)
  "Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.

When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
customize the resulting theme.

CORE-PALETTE is core color-palette.
If OVERWRITE is non-nil, overwrite theme file if exist."
  (declare (indent 2))
  (let ((color-palette (solarized-create-color-palette core-palette)))
    (apply #'solarized-create-theme-file (list variant theme-name color-palette childtheme-sexp overwrite))))

(define-obsolete-function-alias 'create-solarized-theme-file 'solarized-create-theme-file "1.3.0")

;;; Footer

;;;###autoload
(when (and (boundp 'custom-theme-load-path) load-file-name)
  (add-to-list 'custom-theme-load-path
               (file-name-as-directory (file-name-directory load-file-name))))

(provide 'solarized)

;; Local Variables:
;; indent-tabs-mode: nil
;; End:

;;; solarized.el ends here
Commit	Line	Data
53e6db90 DC	1	;;; solarized.el --- Solarized theme -- lexical-binding: t --
	2
	3	;; Copyright (C) 2011-2021 Bozhidar Batsov
	4
	5	;; Author: Bozhidar Batsov <bozhidar@batsov.dev>
	6	;; Author: Thomas Frössman <thomasf@jossystem.se>
	7
	8	;; This program is free software; you can redistribute it and/or modify
	9	;; it under the terms of the GNU General Public License as published by
	10	;; the Free Software Foundation, either version 3 of the License, or
	11	;; (at your option) any later version.
	12
	13	;; This program is distributed in the hope that it will be useful,
	14	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	;; GNU General Public License for more details.
	17
	18	;; You should have received a copy of the GNU General Public License
	19	;; along with this program. If not, see <http://www.gnu.org/licenses/>.
	20
	21	;;; Commentary:
	22
	23	;; Main solarized file
	24
	25	;;; Code:
	26
	27	(require 'cl-lib)
	28	(require 'color)
	29	(require 'solarized-faces)
	30
	31	;;; Options
	32
	33	(defgroup solarized nil
	34	"Solarized theme options.
	35	The theme has to be reloaded after changing anything in this group."
	36	:group 'faces)
	37
	38	(defcustom solarized-theme-dir (locate-user-emacs-file "themes/")
	39	"Directory to save theme file."
	40	:type 'directory
	41	:group 'solarized)
	42
	43	(defcustom solarized-distinct-fringe-background nil
	44	"Make the fringe background different from the normal background color.
	45	Also affects `linum-mode' background."
	46	:type 'boolean
	47	:group 'solarized)
	48
	49	(defcustom solarized-distinct-doc-face nil
	50	"Make `font-lock-doc-face' stand out more.
	51	Related discussion: https://github.com/bbatsov/solarized-emacs/issues/158"
	52	:type 'boolean
	53	:group 'solarized)
	54
	55	(defcustom solarized-use-variable-pitch t
	56	"Use variable pitch face for some headings and titles."
	57	:type 'boolean
	58	:group 'solarized)
	59
	60	(defcustom solarized-use-less-bold nil
	61	"Use bold weight less often."
	62	:type 'boolean
	63	:group 'solarized)
	64
65	(defcustom solarized-use-more-italic nil
66	"Use italic slant more often."
67	:type 'boolean
68	:group 'solarized)
69
70	(defcustom solarized-emphasize-indicators t
71	"Use more colors for indicators such as git:gutter, flycheck and similar."
72	:type 'boolean
73	:group 'solarized)
74
75	(defcustom solarized-high-contrast-mode-line nil
76	"Make the active/inactive mode line stand out more."
77	:type 'boolean
78	:group 'solarized)
79
80	(defcustom solarized-height-minus-1 0.8
81	"Font size -1."
82	:type 'number
83	:group 'solarized)
84
85	(defcustom solarized-height-plus-1 1.1
86	"Font size +1."
87	:type 'number
88	:group 'solarized)
89
90	(defcustom solarized-height-plus-2 1.15
91	"Font size +2."
92	:type 'number
93	:group 'solarized)
94
95	(defcustom solarized-height-plus-3 1.2
96	"Font size +3."
97	:type 'number
98	:group 'solarized)
99
100	(defcustom solarized-height-plus-4 1.3
101	"Font size +4."
102	:type 'number
103	:group 'solarized)
104
105	(defcustom solarized-scale-org-headlines t
106	"Whether `org-mode' headlines should be scaled."
107	:type 'boolean
108	:group 'solarized)
109
110	(defcustom solarized-scale-markdown-headlines nil
111	"Whether `markdown-mode' headlines should be scaled."
112	:type 'boolean
113	:group 'solarized)
114
115	(defcustom solarized-scale-outline-headlines t
116	"Whether `outline-mode' headlines should be scaled."
117	:type 'boolean
118	:group 'solarized)
119
120	;;; Utilities
121
122	(defun solarized-color-clamp-lab (lab)
123	"Restricts a LAB colorspace color if it is out of bounds."
124	(list (min (max (nth 0 lab) 0.0) 100.0)
125	(min (max (nth 1 lab) -128) 127)
126	(min (max (nth 2 lab) -128) 127)))
127
128	(defun solarized-color-rgb-to-hex (red green blue &optional digits-per-component round)
129	"Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE.
130	RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive.
131	Optional argument DIGITS-PER-COMPONENT can be either 4 (the default)
132	or 2; use the latter if you need a 24-bit specification of a color.
133	Optional argument ROUND rounds values which probably is what you usually want."
134	(or digits-per-component (setq digits-per-component 4))
135	(let* ((maxval (if (= digits-per-component 2) 255 65535))
136	(fmt (if (= digits-per-component 2) "#%02x%02x%02x" "#%04x%04x%04x")))
137	(if round
138	(format fmt (+ 0.5 (* red maxval)) (+ 0.5 (* green maxval)) (+ 0.5(* blue maxval)))
139	(format fmt (* red maxval) (* green maxval) (* blue maxval)))))
140
141	;;;###autoload
142	(defun solarized-color-blend (color1 color2 alpha &optional digits-per-component)
143	"Blends COLOR1 onto COLOR2 with ALPHA.
144
145	COLOR1 and COLOR2 should be color names (e.g. \"white\") or RGB
146	triplet strings (e.g. \"#ff12ec\").
147
148	Alpha should be a float between 0 and 1.
149
150	Optional argument DIGITS-PER-COMPONENT can be either 4 (the default) or 2;
151	use the latter if you need a 24-bit specification of a color."
152	(let ((args (mapcar 'color-clamp
153	(apply 'color-lab-to-srgb
154	(solarized-color-clamp-lab
155	(cl-mapcar
156	(lambda (v1 v2) (+ v1 (* alpha (- v2 v1))))
157	(apply 'color-srgb-to-lab (color-name-to-rgb color2))
158	(apply 'color-srgb-to-lab (color-name-to-rgb color1))))))))
159	(apply 'solarized-color-rgb-to-hex `(,@args ,digits-per-component t))))
160
161	;;;###autoload
162	(defun solarized-create-color-palette (core-palette)
163	"Create color-palette from CORE-PALETTE.
164
165	The Returned color-palette has the same format as `solarized-color-palette'"
166	(let ((darkest-base (nth 0 core-palette))
167	(brightest-base (nth 1 core-palette))
168	(yellow (nth 2 core-palette))
169	(orange (nth 3 core-palette))
170	(red (nth 4 core-palette))
171	(magenta (nth 5 core-palette))
172	(violet (nth 6 core-palette))
173	(blue (nth 7 core-palette))
174	(cyan (nth 8 core-palette))
175	(green (nth 9 core-palette)))
176
177	`((base03 . ,(solarized-color-blend darkest-base brightest-base 1.00 2))
178	(base02 . ,(solarized-color-blend darkest-base brightest-base 0.97 2))
179	(base01 . ,(solarized-color-blend darkest-base brightest-base 0.65 2))
180	(base00 . ,(solarized-color-blend darkest-base brightest-base 0.60 2))
181	(base0 . ,(solarized-color-blend darkest-base brightest-base 0.48 2))
182	(base1 . ,(solarized-color-blend darkest-base brightest-base 0.42 2))
183	(base2 . ,(solarized-color-blend darkest-base brightest-base 0.06 2))
184	(base3 . ,(solarized-color-blend darkest-base brightest-base 0.00 2))
185
186	;; Solarized accented colors
187	(yellow . ,yellow)
188	(orange . ,orange)
189	(red . ,red)
190	(magenta . ,magenta)
191	(violet . ,violet)
192	(blue . ,blue)
193	(cyan . ,cyan)
194	(green . ,green)
195
196	;; Darker and lighter accented colors
197	;; Only use these in exceptional circumstances!
198	(yellow-d . ,(solarized-color-blend darkest-base yellow 0.80 2))
199	(yellow-l . ,(solarized-color-blend brightest-base yellow 0.80 2))
200	(orange-d . ,(solarized-color-blend darkest-base orange 0.80 2))
201	(orange-l . ,(solarized-color-blend brightest-base orange 0.80 2))
202	(red-d . ,(solarized-color-blend darkest-base red 0.80 2))
203	(red-l . ,(solarized-color-blend brightest-base red 0.80 2))
204	(magenta-d . ,(solarized-color-blend darkest-base magenta 0.80 2))
205	(magenta-l . ,(solarized-color-blend brightest-base magenta 0.80 2))
206	(violet-d . ,(solarized-color-blend darkest-base violet 0.80 2))
207	(violet-l . ,(solarized-color-blend brightest-base violet 0.80 2))
208	(blue-d . ,(solarized-color-blend darkest-base blue 0.80 2))
209	(blue-l . ,(solarized-color-blend brightest-base blue 0.80 2))
210	(cyan-d . ,(solarized-color-blend darkest-base cyan 0.80 2))
211	(cyan-l . ,(solarized-color-blend brightest-base cyan 0.80 2))
212	(green-d . ,(solarized-color-blend darkest-base green 0.80 2))
213	(green-l . ,(solarized-color-blend brightest-base green 0.80 2))
214
215	(yellow-1bg . ,(solarized-color-blend darkest-base yellow 0.85 2))
216	(orange-1bg . ,(solarized-color-blend darkest-base orange 0.85 2))
217	(red-1bg . ,(solarized-color-blend darkest-base red 0.85 2))
218	(magenta-1bg . ,(solarized-color-blend darkest-base magenta 0.85 2))
219	(blue-1bg . ,(solarized-color-blend darkest-base blue 0.85 2))
220	(cyan-1bg . ,(solarized-color-blend darkest-base cyan 0.85 2))
221	(green-1bg . ,(solarized-color-blend darkest-base green 0.85 2))
222	(violet-1bg . ,(solarized-color-blend darkest-base violet 0.85 2))
223
224	(yellow-1fg . ,(solarized-color-blend brightest-base yellow 0.30 2))
225	(orange-1fg . ,(solarized-color-blend brightest-base orange 0.30 2))
226	(red-1fg . ,(solarized-color-blend brightest-base red 0.30 2))
227	(magenta-1fg . ,(solarized-color-blend brightest-base magenta 0.30 2))
228	(violet-1fg . ,(solarized-color-blend brightest-base violet 0.30 2))
229	(blue-1fg . ,(solarized-color-blend brightest-base blue 0.30 2))
230	(cyan-1fg . ,(solarized-color-blend brightest-base cyan 0.30 2))
231	(green-1fg . ,(solarized-color-blend brightest-base green 0.30 2))
232
233	(yellow-2bg . ,(solarized-color-blend darkest-base yellow 0.60 2))
234	(orange-2bg . ,(solarized-color-blend darkest-base orange 0.60 2))
235	(red-2bg . ,(solarized-color-blend darkest-base red 0.60 2))
236	(magenta-2bg . ,(solarized-color-blend darkest-base magenta 0.60 2))
237	(violet-2bg . ,(solarized-color-blend darkest-base violet 0.60 2))
238	(blue-2bg . ,(solarized-color-blend darkest-base blue 0.60 2))
239	(cyan-2bg . ,(solarized-color-blend darkest-base cyan 0.60 2))
240	(green-2bg . ,(solarized-color-blend darkest-base green 0.60 2))
241
242	(yellow-2fg . ,(solarized-color-blend brightest-base yellow 0.45 2))
243	(orange-2fg . ,(solarized-color-blend brightest-base orange 0.45 2))
244	(red-2fg . ,(solarized-color-blend brightest-base red 0.45 2))
245	(magenta-2fg . ,(solarized-color-blend brightest-base magenta 0.45 2))
246	(violet-2fg . ,(solarized-color-blend brightest-base violet 0.45 2))
247	(blue-2fg . ,(solarized-color-blend brightest-base blue 0.45 2))
248	(cyan-2fg . ,(solarized-color-blend brightest-base cyan 0.45 2))
249	(green-2fg . ,(solarized-color-blend brightest-base green 0.45 2)))))
250
251	;;; Setup Start
252	(defmacro solarized-with-color-variables (variant theme-name color-palette &optional childtheme-sexp)
253	"Eval `solarized-definition' in solarized COLOR-PALETTE for THEME-NAME.
254	VARIANT is \\='dark or \\='light.
255	When optional argument CHILDTHEME-SEXP sexp is supplied it\\='s invoked to further
256	customize the resulting theme."
257	(declare (indent defun))
258	(let ((color-palette* (eval color-palette)))
259	`(let* ((class '((class color) (min-colors 89)))
260	(light-class (append '((background light)) class))
261	(dark-class (append '((background dark)) class))
262	(theme-name ,theme-name)
263	(variant ,variant)
264	,@(mapcar (lambda (elm) `(,(car elm) ,(cdr elm))) color-palette*)
265
266	(s-base03 base03)
267	(s-base02 base02)
268	(s-base01 base01)
269	(s-base00 base00)
270	(s-base3 base3)
271	(s-base2 base2)
272	(s-base1 base1)
273	(s-base0 base0)
274
275	;; Solarized palette names, use these instead of -fg -bg...
276	(base03 (if (eq variant 'light) s-base3 s-base03))
277	(base02 (if (eq variant 'light) s-base2 s-base02))
278	(base01 (if (eq variant 'light) s-base1 s-base01))
279	(base00 (if (eq variant 'light) s-base0 s-base00))
280	(base0 (if (eq variant 'light) s-base00 s-base0))
281	(base1 (if (eq variant 'light) s-base01 s-base1))
282	(base2 (if (eq variant 'light) s-base02 s-base2))
283	(base3 (if (eq variant 'light) s-base03 s-base3))
284
285	;; Line drawing color
286	;;
287	;; NOTE only use this for very thin lines that are hard to see using base02, in low
288	;; color displayes base02 might be used instead
289	(s-line (if (eq variant 'light) "#cccec4" "#284b54"))
290
291	;; Light/Dark adaptive higher/lower contrast accented colors
292	;;
293	;; NOTE Only use these in exceptional cirmumstances!
294	(yellow-hc (if (eq variant 'light) yellow-d yellow-l))
295	(yellow-lc (if (eq variant 'light) yellow-l yellow-d))
296	(orange-hc (if (eq variant 'light) orange-d orange-l))
297	(orange-lc (if (eq variant 'light) orange-l orange-d))
298	(red-hc (if (eq variant 'light) red-d red-l))
299	(red-lc (if (eq variant 'light) red-l red-d))
300	(magenta-hc (if (eq variant 'light) magenta-d magenta-l))
301	(magenta-lc (if (eq variant 'light) magenta-l magenta-d))
302	(violet-hc (if (eq variant 'light) violet-d violet-l))
303	(violet-lc (if (eq variant 'light) violet-l violet-d))
304	(blue-hc (if (eq variant 'light) blue-d blue-l))
305	(blue-lc (if (eq variant 'light) blue-l blue-d))
306	(cyan-hc (if (eq variant 'light) cyan-d cyan-l))
307	(cyan-lc (if (eq variant 'light) cyan-l cyan-d))
308	(green-hc (if (eq variant 'light) green-d green-l))
309	(green-lc (if (eq variant 'light) green-l green-d))
310
311	;; customize based face properties
312	(s-maybe-bold (if solarized-use-less-bold
313	'unspecified 'bold))
314	(s-maybe-italic (if solarized-use-more-italic
315	'italic 'normal))
316	(s-variable-pitch (if solarized-use-variable-pitch
317	'variable-pitch 'default))
318	(s-fringe-bg (if solarized-distinct-fringe-background
319	base02 base03))
320	(s-fringe-fg base01)
321
322	(s-header-line-fg (if solarized-high-contrast-mode-line
323	base1 base0))
324	(s-header-line-bg (if solarized-high-contrast-mode-line
325	base02 base03))
326	(s-header-line-underline (if solarized-high-contrast-mode-line
327	nil base02))
328
329	(s-mode-line-fg (if solarized-high-contrast-mode-line
330	base03 base0))
331	(s-mode-line-bg (if solarized-high-contrast-mode-line
332	base0 base02))
333	(s-mode-line-underline (if solarized-high-contrast-mode-line
334	nil s-line))
335
336	(s-mode-line-buffer-id-fg (if solarized-high-contrast-mode-line
337	'unspecified base1))
338	(s-mode-line-inactive-fg (if solarized-high-contrast-mode-line
339	base0 base01))
340	(s-mode-line-inactive-bg (if solarized-high-contrast-mode-line
341	base02 base03))
342	(s-mode-line-inactive-bc (if solarized-high-contrast-mode-line
343	base02 base02))
344
345	;; diff colors
346	(s-diff-A-bg red-1bg)
347	(s-diff-A-fg red-1fg)
348	(s-diff-fine-A-bg red-2bg)
349	(s-diff-fine-A-fg red-2fg)
350
351	(s-diff-B-bg green-1bg)
352	(s-diff-B-fg green-1fg)
353	(s-diff-fine-B-bg green-2bg)
354	(s-diff-fine-B-fg green-2fg)
355
356	(s-diff-Ancestor-bg yellow-1bg)
357	(s-diff-Ancestor-fg yellow-1fg)
358	(s-diff-fine-Ancestor-bg yellow-2bg)
359	(s-diff-fine-Ancestor-fg yellow-2fg)
360
361	(s-diff-C-bg blue-1bg)
362	(s-diff-C-fg blue-1fg)
363	(s-diff-fine-C-bg blue-2bg)
364	(s-diff-fine-C-fg blue-2fg)
365	(s-diff-context-fg base0)
366	(s-diff-heading-bg base02)
367
368	(s-diffstat-added-fg green)
369	(s-diffstat-changed-fg blue)
370	(s-diffstat-removed-fg red))
371
372	;; NOTE: `custom--inhibit-theme-enable' turn-off needed
373	;; childtheme works well disscussed in #352
374	(let ((custom--inhibit-theme-enable nil))
375	,@solarized-definition
376	,@(eval childtheme-sexp)))))
377
378	(defmacro solarized-with-color-variables-with-palette (variant theme-name core-palette &optional childtheme-sexp)
379	"Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
380
381	When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
382	customize the resulting theme.
383
384	CORE-PALETTE is core color-palette."
385	(declare (indent 2))
386	(let ((color-palette (solarized-create-color-palette (eval core-palette))))
387	`(solarized-with-color-variables ,variant ,theme-name ',color-palette ,childtheme-sexp)))
388
389	(defun solarized-create-theme-file (variant theme-name color-palette &optional childtheme-sexp overwrite)
390	"Create a VARIANT of the theme named THEME-NAME with COLOR-PALETTE.
391
392	When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
393	customize the resulting theme.
394
395	CORE-PALETTE is core color-palette.
396	If OVERWRITE is non-nil, overwrite theme file if exist."
397	(declare (indent 2))
398	(add-to-list 'custom-theme-load-path solarized-theme-dir)
399	(let ((path (expand-file-name (format "%s.el" theme-name)
400	solarized-theme-dir)))
401	(unless (file-directory-p solarized-theme-dir)
402	(make-directory solarized-theme-dir))
403	(when (or overwrite (not (file-readable-p path)))
404	(with-temp-file (expand-file-name (format "%s-theme.el" theme-name)
405	solarized-theme-dir)
406	(mapc (lambda (elm)
407	(insert (pp-to-string elm)))
408	`((require 'solarized)
409	(deftheme ,theme-name
410	,(format "The %s colour theme of Solarized colour theme flavor." theme-name))
411	(solarized-with-color-variables ',variant ',theme-name ',color-palette ',childtheme-sexp)
412	(provide-theme ',theme-name)
413	(provide ',(intern (format "%s-theme" theme-name)))))))
414	path))
415
416	(defun solarized-create-theme-file-with-palette (variant theme-name core-palette &optional childtheme-sexp overwrite)
417	"Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
418
419	When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
420	customize the resulting theme.
421
422	CORE-PALETTE is core color-palette.
423	If OVERWRITE is non-nil, overwrite theme file if exist."
424	(declare (indent 2))
425	(let ((color-palette (solarized-create-color-palette core-palette)))
426	(apply #'solarized-create-theme-file (list variant theme-name color-palette childtheme-sexp overwrite))))
427
428	(define-obsolete-function-alias 'create-solarized-theme-file 'solarized-create-theme-file "1.3.0")
429
430	;;; Footer
431
432	;;;###autoload
433	(when (and (boundp 'custom-theme-load-path) load-file-name)
434	(add-to-list 'custom-theme-load-path
435	(file-name-as-directory (file-name-directory load-file-name))))
436
437	(provide 'solarized)
438
439	;; Local Variables:
440	;; indent-tabs-mode: nil
441	;; End:
442
443	;;; solarized.el ends here