]> crepu.dev Git - config.git/blame - djavu-asus/elpa/solarized-theme-20230816.1732/solarized.elc
Configuracion en desarrollo PC pega
[config.git] / djavu-asus / elpa / solarized-theme-20230816.1732 / solarized.elc
CommitLineData
53e6db90
DC
1;ELC\1c\0\0\0
2;;; Compiled
3;;; in Emacs version 28.2
4;;; with all optimizations.
5
6
7
8(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\320\321\310\305&\a\210\312\322\314\315\323DD\324\320\325\310\305&\a\210\312\326\314\315\327DD\330\320\325\310\305&\a\210\312\331\314\315\332DD\333\320\325\310\305&\a\210\312\334\314\315\335DD\336\320\325\310\305&\a\210\312\337\314\315\340DD\341\320\325\310\305&\a\210\312\342\314\315\343DD\344\320\325\310\305&\a\210\312\345\314\315\346DD\347\320\325\310\305&\a\210\312\350\314\315\351DD\352\320\353\310\305&\a\210\312\354\314\315\355DD\356\320\353\310\305&\a\210\312\357\314\315\360DD\361\320\353\310\305&\a\210\312\362\314\315\363DD\364\320\353\310\305&\a\210\312\365\314\315\366DD\367\320\353\310\305&\a\210\312\370\314\315\371DD\372\320\325\310\305&\a\210\312\373\314\315\374DD\375\320\325\310\305&\a\210\312\376\314\315\377DD\201@\0\320\325\310\305&\a\207" [require cl-lib color solarized-faces custom-declare-group solarized nil "Solarized theme options.\nThe theme has to be reloaded after changing anything in this group." :group faces custom-declare-variable solarized-theme-dir funcall function #[0 "\300\301!\207" [locate-user-emacs-file "themes/"] 2 #1=""] "Directory to save theme file." :type directory solarized-distinct-fringe-background #[0 "\300\207" [nil] 1 #1#] "Make the fringe background different from the normal background color.\nAlso affects `linum-mode' background." boolean solarized-distinct-doc-face #[0 "\300\207" [nil] 1 #1#] "Make `font-lock-doc-face' stand out more.\nRelated discussion: https://github.com/bbatsov/solarized-emacs/issues/158" solarized-use-variable-pitch #[0 "\300\207" [t] 1 #1#] "Use variable pitch face for some headings and titles." solarized-use-less-bold #[0 "\300\207" [nil] 1 #1#] "Use bold weight less often." solarized-use-more-italic #[0 "\300\207" [nil] 1 #1#] "Use italic slant more often." solarized-emphasize-indicators #[0 "\300\207" [t] 1 #1#] "Use more colors for indicators such as git:gutter, flycheck and similar." solarized-high-contrast-mode-line #[0 "\300\207" [nil] 1 #1#] "Make the active/inactive mode line stand out more." solarized-height-minus-1 #[0 "\300\207" [0.8] 1 #1#] "Font size -1." number solarized-height-plus-1 #[0 "\300\207" [1.1] 1 #1#] "Font size +1." solarized-height-plus-2 #[0 "\300\207" [1.15] 1 #1#] "Font size +2." solarized-height-plus-3 #[0 "\300\207" [1.2] 1 #1#] "Font size +3." solarized-height-plus-4 #[0 "\300\207" [1.3] 1 #1#] "Font size +4." solarized-scale-org-headlines #[0 "\300\207" [t] 1 #1#] "Whether `org-mode' headlines should be scaled." solarized-scale-markdown-headlines #[0 "\300\207" [nil] 1 #1#] "Whether `markdown-mode' headlines should be scaled." solarized-scale-outline-headlines #[0 "\300\207" [t] 1 #1#] "Whether `outline-mode' headlines should be scaled."] 8)
9#@68 Restricts a LAB colorspace color if it is out of bounds.
10
11(fn LAB)\1f
12(defalias 'solarized-color-clamp-lab #[257 "\211@\300]\301^\ 1A@\302]\303^\304\ 38\302]\303^E\207" [0.0 100.0 -128 127 2] 5 (#$ . 2864)])
13#@422 Return hexadecimal #RGB notation for the color specified by RED GREEN BLUE.
14RED, GREEN, and BLUE should be numbers between 0.0 and 1.0, inclusive.
15Optional argument DIGITS-PER-COMPONENT can be either 4 (the default)
16or 2; use the latter if you need a 24-bit specification of a color.
17Optional argument ROUND rounds values which probably is what you usually want.
18
19(fn RED GREEN BLUE &optional DIGITS-PER-COMPONENT ROUND)\1f
20(defalias 'solarized-color-rgb-to-hex #[1283 "\ 1\204\a\0\300\262\ 2\ 1\301U\203\11\0\302\202\12\0\303\ 2\301U\203\1c\0\304\202\1d\0\305\ 2\2039\0\306\ 1\307\ 6 \ 5_\\\307\ 6 \ 6\ 6_\\\307\ 6 \ 6\a_\\$\207\306\ 1\ 6\b\ 4_\ 6\b\ 5_\ 6\b\ 6\ 6_$\207" [4 2 255 65535 "#%02x%02x%02x" "#%04x%04x%04x" format 0.5] 14 (#$ . 3072)])
21#@373 Blends COLOR1 onto COLOR2 with ALPHA.
22
23COLOR1 and COLOR2 should be color names (e.g. "white") or RGB
24triplet strings (e.g. "#ff12ec").
25
26Alpha should be a float between 0 and 1.
27
28Optional argument DIGITS-PER-COMPONENT can be either 4 (the default) or 2;
29use the latter if you need a 24-bit specification of a color.
30
31(fn COLOR1 COLOR2 ALPHA &optional DIGITS-PER-COMPONENT)\1f
32(defalias 'solarized-color-blend #[1027 "\300\301\302\303\304\305\306\307\ 6 \"\302\310\311\ 6\f!\"\302\310\311\ 6\ e!\"#!\"\"\302\312\313\ 3\ 5\314B\"\"\207" [mapcar color-clamp apply color-lab-to-srgb solarized-color-clamp-lab cl-mapcar make-closure #[514 "\ 1\300\ 2\ 4Z_\\\207" [V0] 6 "\n\n(fn V1 V2)"] color-srgb-to-lab color-name-to-rgb solarized-color-rgb-to-hex append (t)] 16 (#$ . 3764)])
33#@137 Create color-palette from CORE-PALETTE.
34
35The Returned color-palette has the same format as `solarized-color-palette'
36
37(fn CORE-PALETTE)\1f
38(defalias 'solarized-create-color-palette #[257 "\211@\ 1A@\300\ 38\301\ 48\302\ 58\303\ 6\ 68\304\ 6\a8\305\ 6\b8\306\ 6 8\307\ 6\n8\310\311\ 6\v\ 6\v\312\300$B\313\311\ 6\f\ 6\f\314\300$B\315\311\ 6\r\ 6\r\316\300$B\317\311\ 6\ e\ 6\ e\320\300$B\321\311\ 6\ f\ 6\ f\322\300$B\323\311\ 6\10\ 6\10\324\300$B\325\311\ 6\11\ 6\11\326\300$B\327\311\ 6\12\ 6\12\330\300$B\331\ 6\10B\332\ 6\10B\333\ 6\10B\334\ 6\10B\335\ 6\10B\336\ 6\10B\337\ 6\10B\340\ 6\10B\341\311\ 6\e\ 6\1a\342\300$B\343\311\ 6\e\ 6\e\342\300$B\344\311\ 6\1d\ 6\e\342\300$B\345\311\ 6\1d\ 6\1c\342\300$B\346\311\ 6\1f\ 6\1c\342\300$B\347\311\ 6\1f\ 6\1d\342\300$B\350\311\ 6!\ 6\1d\342\300$B\351\311\ 6!\ 6\1e\342\300$B\352\311\ 6#\ 6\1e\342\300$B\353\311\ 6#\ 6\1f\342\300$B\354\311\ 6%\ 6\1f\342\300$B\355\311\ 6%\ 6 \342\300$B\356\311\ 6'\ 6 \342\300$B\357\311\ 6'\ 6!\342\300$B\360\311\ 6)\ 6!\342\300$B\361\311\ 6)\ 6\"\342\300$B\362\311\ 6+\ 6*\363\300$B\364\311\ 6,\ 6*\363\300$B\365\311\ 6-\ 6*\363\300$B\366\311\ 6.\ 6*\363\300$B\367\311\ 6/\ 6)\363\300$B\370\311\ 60\ 6)\363\300$B\371\311\ 61\ 6)\363\300$B\372\311\ 62\ 6-\363\300$B\373\311\ 62\ 62\374\300$B\375\311\ 63\ 62\374\300$B\376\311\ 64\ 62\374\300$B\377\311\ 65\ 62\374\300$B\201@\0\311\ 66\ 62\374\300$B\201A\0\311\ 67\ 62\374\300$B\201B\0\311\ 68\ 62\374\300$B\201C\0\311\ 69\ 62\374\300$B\201D\0\311\ 6;\ 6:\320\300$B\201E\0\311\ 6<\ 6:\320\300$B\201F\0\311\ 6=\ 6:\320\300$B\201G\0\311\ 6>\ 6:\320\300$B\201H\0\311\ 6?\ 6:\320\300$B\201I\0\311\ 6@\ 6:\320\300$B\201J\0\311\ 6A\ 6:\320\300$B\201K\0\311\ 6B\ 6:\320\300$B\201L\0\311\ 6B\ 6B\201M\0\300$B\201N\0\311\ 6C\ 6B\201M\0\300$B\201O\0\311\ 6D\ 6B\201M\0\300$B\201P\0\311\ 6E\ 6B\201M\0\300$B\201Q\0\311\ 6F\ 6B\201M\0\300$B\201R\0\311\ 6G\ 6B\201M\0\300$B\201S\0\311\ 6H\ 6B\201M\0\300$B\201T\0\311\ 6I\ 6B\201M\0\300$B\257@\207" [2 3 4 5 6 7 8 9 base03 solarized-color-blend 1.0 base02 0.97 base01 0.65 base00 0.6 base0 0.48 base1 0.42 base2 0.06 base3 0.0 yellow orange red magenta violet blue cyan green yellow-d 0.8 yellow-l orange-d orange-l red-d red-l magenta-d magenta-l violet-d violet-l blue-d blue-l cyan-d cyan-l green-d green-l yellow-1bg 0.85 orange-1bg red-1bg magenta-1bg blue-1bg cyan-1bg green-1bg violet-1bg yellow-1fg 0.3 orange-1fg red-1fg magenta-1fg violet-1fg blue-1fg cyan-1fg green-1fg yellow-2bg orange-2bg red-2bg magenta-2bg violet-2bg blue-2bg cyan-2bg green-2bg yellow-2fg 0.45 orange-2fg red-2fg magenta-2fg violet-2fg blue-2fg cyan-2fg green-2fg] 80 (#$ . 4524)])
39#@282 Eval `solarized-definition' in solarized COLOR-PALETTE for THEME-NAME.
40VARIANT is \='dark or \='light.
41When optional argument CHILDTHEME-SEXP sexp is supplied it\='s invoked to further
42customize the resulting theme.
43
44(fn VARIANT THEME-NAME COLOR-PALETTE &optional CHILDTHEME-SEXP)\1f
45(defalias 'solarized-with-color-variables '(macro . #[1027 "\301\ 2!\302\303\304\305\306\ 6\bD\307\ 6\nD\310\311\312\ 6 \"\313\"BBBBB\314\315\310\b\301\ 6\b!\"BBE\207" [solarized-definition eval let* (class '((class color) (min-colors 89))) (light-class (append '((background light)) class)) (dark-class (append '((background dark)) class)) theme-name variant append mapcar #[257 "\211@\ 1AD\207" [] 3 "\n\n(fn ELM)"] ((s-base03 base03) (s-base02 base02) (s-base01 base01) (s-base00 base00) (s-base3 base3) (s-base2 base2) (s-base1 base1) (s-base0 base0) (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)) (s-line (if (eq variant 'light) "#cccec4" "#284b54")) (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)) (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)) (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)) let ((custom--inhibit-theme-enable nil))] 15 (#$ . 6803)]))
46(byte-code "\300\301\302\303#\300\207" [function-put solarized-with-color-variables lisp-indent-function defun] 4)
47#@280 Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
48
49When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
50customize the resulting theme.
51
52CORE-PALETTE is core color-palette.
53
54(fn VARIANT THEME-NAME CORE-PALETTE &optional CHILDTHEME-SEXP)\1f
55(defalias 'solarized-with-color-variables-with-palette '(macro . #[1027 "\300\301\ 3!!\302\ 5\ 5\303\ 4D\ 5\257\ 5\207" [solarized-create-color-palette eval solarized-with-color-variables quote] 10 (#$ . 10732)]))
56(byte-code "\300\301\302\303#\300\207" [function-put solarized-with-color-variables-with-palette lisp-indent-function 2] 4)
57#@348 Create a VARIANT of the theme named THEME-NAME with COLOR-PALETTE.
58
59When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
60customize the resulting theme.
61
62CORE-PALETTE is core color-palette.
63If OVERWRITE is non-nil, overwrite theme file if exist.
64
65(fn VARIANT THEME-NAME COLOR-PALETTE &optional CHILDTHEME-SEXP OVERWRITE)\1f
66(defalias 'solarized-create-theme-file #[1283 "\301\302\b\"\210\303\304\305\ 6\ 6\"\b\"\306\b!\204\17\0\307\b!\210\ 1\204!\0\310\ 1!\204z\0\303\304\311\ 6\a\"\b\"\312\313\314\"\315\316\ 2\"\216r\211q\210\317\320\321\322\ 6\n\304\323\ 6\r\"E\324\325\ 6\rD\325\ 6\rD\325\ 6\rD\325\ 6\rD\257\ 5\326\325\ 6\rDD\327\325\330\304\331\ 6\11\"!DD\257\ 5\"\210)r\211q\210\332\333\211\ 4\333\334%\210*\266\ 2\207" [solarized-theme-dir add-to-list custom-theme-load-path expand-file-name format "%s.el" file-directory-p make-directory file-readable-p "%s-theme.el" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \0\302\300!\207" [V0 buffer-name kill-buffer] 2] mapc #[257 "\300\ 1!c\207" [pp-to-string] 3 "\n\n(fn ELM)"] (require 'solarized) deftheme "The %s colour theme of Solarized colour theme flavor." solarized-with-color-variables quote provide-theme provide intern "%s-theme" write-region nil 0] 20 (#$ . 11344)])
67(byte-code "\300\301\302\303#\300\207" [function-put solarized-create-theme-file lisp-indent-function 2] 4)
68#@346 Create a VARIANT of the theme named THEME-NAME with CORE-PALETTE.
69
70When optional argument CHILDTHEME-SEXP sexp is supplied it's invoked to further
71customize the resulting theme.
72
73CORE-PALETTE is core color-palette.
74If OVERWRITE is non-nil, overwrite theme file if exist.
75
76(fn VARIANT THEME-NAME CORE-PALETTE &optional CHILDTHEME-SEXP OVERWRITE)\1f
77(defalias 'solarized-create-theme-file-with-palette #[1283 "\300\ 3!\301\302\ 6\a\ 6\a\ 4\ 6\a\ 6\a\257\ 5\"\207" [solarized-create-color-palette apply solarized-create-theme-file] 13 (#$ . 12680)])
78(byte-code "\301\302\303\304#\305\306\307\310#\210\311\306\307\312#\210\313\314!\203$\0\b\203$\0\315\314\316\317\b!!\"\210\320\321!\207" [load-file-name function-put solarized-create-theme-file-with-palette lisp-indent-function 2 defalias create-solarized-theme-file solarized-create-theme-file nil make-obsolete "1.3.0" boundp custom-theme-load-path add-to-list file-name-as-directory file-name-directory provide solarized] 6)