;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307DD\310\311\312\313\314&\207" [require cl-lib color custom-declare-variable colir-compose-method funcall function #[0 "\300\207" [colir-compose-alpha] 1] "Select a method 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) #@37 Compose A and B channels. (fn A B) (defalias 'colir-compose-soft-light #[514 "\211\300W\203\301__\211_\302ZZ_\\\207\301_\302Z_\303!\301_S_\\\207" [0.5 2 1 sqrt] 6 (#$ . 492)]) #@37 Compose A and B channels. (fn A B) (defalias 'colir-compose-overlay #[514 "\300W\203\f\301__\207\302\301\302Z_\302Z_Z\207" [0.5 2 1] 6 (#$ . 686)]) #@270 Compose A and B channels. Optional argument ALPHA is a number between 0.0 and 1.0 which corresponds to the influence of A on the result. Default value is 0.5. Optional argument GAMMA is used for gamma correction. Default value is 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 (#$ . 848)]) #@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 (#$ . 1264)]) #@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 (#$ . 1622)]) #@37 (fn START NEXT PREVN FACE OBJECT) (defalias 'colir--blend-background #[1285 "\300!\301\302\203#\303\304\305!\305\300 \306\307#!\"BB\202(D%\207" [face-background put-text-property face background-color colir-blend colir-color-parse nil t] 18 (#$ . 2039)]) #@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\211U?\205r\301\302 $\262\303\302#\262<\203,\304\305\"\202-\262\306\242!\204<\242:\203M\307\302B%\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 (#$ . 2322)]) (provide 'colir)