;ELC   
;;; Compiled
;;; in Emacs version 29.3
;;; with all optimizations.


(byte-code "\300\301!\210\302\303!\204 \304\303\305\"\210\306\307\310\311\312DD\313\314\315\316\317&\207" [require cl-lib fboundp color-rgb-to-hex autoload "color" custom-declare-variable colir-compose-method funcall function #[0 "\300\207" [colir-compose-alpha] 1 ""] "The method `colir-blend' uses to compose two color channels." :group ivy :type (radio (function-item colir-compose-alpha) (function-item colir-compose-overlay) (function-item colir-compose-soft-light))] 8)#@132 Compose color channels A and B in Soft Light blend mode.
See URL `https://en.wikipedia.org/wiki/Blend_modes#Soft_Light'.

(fn A B)
(defalias 'colir-compose-soft-light #[514 "\211\300W\203 \301__\211_\302ZZ_\\\207\301_\302Z_\303!\211\\S_\\\207" [0.5 2 1 sqrt] 6 (#$ . 562)])#@126 Compose color channels A and B in Overlay blend mode.
See URL `https://en.wikipedia.org/wiki/Blend_modes#Overlay'.

(fn A B)
(defalias 'colir-compose-overlay #[514 "\300W\203\f \301__\207\302\301\302Z_\302Z_Z\207" [0.5 2 1] 6 (#$ . 852)])#@279 Compose color channels A and B using alpha blending.
Optional argument ALPHA controls the influence of A on the result.
It is a number between 0.0 and 1.0, inclusive (default 0.5).
Optional argument GAMMA controls gamma correction (default 2.2).

(fn A B &optional ALPHA GAMMA)
(defalias 'colir-compose-alpha #[1026 "\206 \300\262\211\206\f \301\262\302\"_\302\"\303Z_\\\207" [0.5 2.2 expt 1] 8 (#$ . 1102)])#@126 Blend the two colors C1 and C2 using `colir-compose-method'.
C1 and C2 are triples of floats in [0.0 1.0] range.

(fn C1 C2)
(defalias 'colir-blend #[514 "\301\302\303\304\305\306\"\307=\203 \310\202 #\"\207" [colir-compose-method apply color-rgb-to-hex cl-mapcar frame-parameter nil background-mode dark colir-compose-soft-light] 8 (#$ . 1527)])#@68 Convert string COLOR to triple of floats in [0.0 1.0].

(fn COLOR)
(defalias 'colir-color-parse #[257 "\300\301\"\203 \302\303\304\305\"\304\306\"\304\307\"E\"\207\310!\207" [string-match "#\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{2\\}\\)\\([[:xdigit:]]\\{2\\}\\)" mapcar #[257 "\300\301\"\302\245\207" [string-to-number 16 255.0] 4 "\n\n(fn V)"] match-string 1 2 3 color-name-to-rgb] 8 (#$ . 1884)])#@37 

(fn START NEXT PREVN FACE OBJECT)
(defalias 'colir--blend-background #[1285 "\300!\301\302\203# \303\304\305!\305\300\306\307#!\"BB\202( D%\207" [face-background put-text-property face background-color colir-blend colir-color-parse nil t] 18 (#$ . 2300)])#@325 Append to the face property of the text from START to END the face FACE.
When the text already has a face with a non-plain background,
blend it with the background of FACE.
Optional argument OBJECT is the string or buffer containing the text.
See also `font-lock-append-text-property'.

(fn START END FACE &optional OBJECT)
(defalias 'colir-blend-face-background #[1027 "\300\211\211U?\205r \301\302	$\262\303\302#\262<\203, \304\305\"\202- \262\306\242!\204< \242:\203M \307\302B%\210\202l \310!\203a \311%\210\202l \307\302%\210\262\202 \207" [nil next-single-property-change face get-text-property cl-find-if atom keywordp put-text-property facep colir--blend-background] 13 (#$ . 2582)])
(provide 'colir)