[config.git] / djavu-asus / emacs / elpa / jabber-20230715.456 / jabber-muc-nick-coloring.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\a\210\302\314\304\305\315DD\316\310\317\312\313&\a\210\302\320\304\305\321DD\322\310\317\312\313&\a\210\302\323\304\305\324DD\325\310\326\312\313&\a\210\302\327\304\305\330DD\331\310\326\312\313&\a\207" [require color custom-declare-variable jabber-muc-participant-colors funcall function #[0 "\300\207" [nil] 1 #1=""] "Alist of used colors.\nFormat is (nick . color).  Color may be\nin #RGB or textual (like red or blue) notation.  Colors will be\nadded in #RGB notation for unknown nicks." :type (alist :key-type string :value-type color) :group jabber-chat jabber-muc-colorize-local #[0 "\300\207" [nil] 1 #1#] "Colorize MUC messages from you." boolean jabber-muc-colorize-foreign #[0 "\300\207" [nil] 1 #1#] "Colorize MUC messages not from you." jabber-muc-nick-saturation #[0 "\300\207" [1.0] 1 #1#] "Default saturation for nick coloring." float jabber-muc-nick-value #[0 "\300\207" [1.0] 1 #1#] "Default value for nick coloring."] 8)
#@75 Convert color consisting of H, S and V to list of HSL values.

(fn H S V)\1f
(defalias 'jabber-muc-nick-hsv-to-hsl #[771 "\211\300\ 3\301\245Z_\211\302U\204\13\0\211\300U\203\17\0\302\202 \0\ 1\ 1Z\ 1\300\ 3Z^\245\ 4\ 1\ 3E\207" [1 2.0 0] 8 (#$ . 1088)])
#@64 Return a good enough color from the available pool.

(fn NICK)\1f
(defalias 'jabber-muc-nick-gen-color #[257 "\302\303\304\ 3!\305\306O\307\"\310\"\211\311\245\b	\312\ 3\ 3\ 3#\313\314\313\315\ 4\"\"\207" [jabber-muc-nick-saturation jabber-muc-nick-value mod string-to-number md5 0 6 16 360 360.0 jabber-muc-nick-hsv-to-hsl apply color-rgb-to-hex color-hsl-to-rgb] 11 (#$ . 1323)])
#@29 Get NICKs color.

(fn NICK)\1f
(defalias 'jabber-muc-nick-get-color #[257 "\301\ 1\b\"A\211\203\n\0\207\b\210\ 1\302\ 3!B\bB\10\301\ 2\b\"A\207" [jabber-muc-participant-colors assoc jabber-muc-nick-gen-color] 5 (#$ . 1697)])
(provide 'jabber-muc-nick-coloring)
Commit	Line	Data
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\302\303\304\305\306DD\307\310\311\312\313&\a\210\302\314\304\305\315DD\316\310\317\312\313&\a\210\302\320\304\305\321DD\322\310\317\312\313&\a\210\302\323\304\305\324DD\325\310\326\312\313&\a\210\302\327\304\305\330DD\331\310\326\312\313&\a\207" [require color custom-declare-variable jabber-muc-participant-colors funcall function #[0 "\300\207" [nil] 1 #1=""] "Alist of used colors.\nFormat is (nick . color). Color may be\nin #RGB or textual (like red or blue) notation. Colors will be\nadded in #RGB notation for unknown nicks." :type (alist :key-type string :value-type color) :group jabber-chat jabber-muc-colorize-local #[0 "\300\207" [nil] 1 #1#] "Colorize MUC messages from you." boolean jabber-muc-colorize-foreign #[0 "\300\207" [nil] 1 #1#] "Colorize MUC messages not from you." jabber-muc-nick-saturation #[0 "\300\207" [1.0] 1 #1#] "Default saturation for nick coloring." float jabber-muc-nick-value #[0 "\300\207" [1.0] 1 #1#] "Default value for nick coloring."] 8)
	9	#@75 Convert color consisting of H, S and V to list of HSL values.
	10
	11	(fn H S V)\1f
	12	(defalias 'jabber-muc-nick-hsv-to-hsl #[771 "\211\300\ 3\301\245Z_\211\302U\204\13\0\211\300U\203\17\0\302\202 \0\ 1\ 1Z\ 1\300\ 3Z^\245\ 4\ 1\ 3E\207" [1 2.0 0] 8 (#$ . 1088)])
	13	#@64 Return a good enough color from the available pool.
	14
	15	(fn NICK)\1f
	16	(defalias 'jabber-muc-nick-gen-color #[257 "\302\303\304\ 3!\305\306O\307\"\310\"\211\311\245\b \312\ 3\ 3\ 3#\313\314\313\315\ 4\"\"\207" [jabber-muc-nick-saturation jabber-muc-nick-value mod string-to-number md5 0 6 16 360 360.0 jabber-muc-nick-hsv-to-hsl apply color-rgb-to-hex color-hsl-to-rgb] 11 (#$ . 1323)])
	17	#@29 Get NICKs color.
	18
	19	(fn NICK)\1f
	20	(defalias 'jabber-muc-nick-get-color #[257 "\301\ 1\b\"A\211\203\n\0\207\b\210\ 1\302\ 3!B\bB\10\301\ 2\b\"A\207" [jabber-muc-participant-colors assoc jabber-muc-nick-gen-color] 5 (#$ . 1697)])
	21	(provide 'jabber-muc-nick-coloring)