;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\311\312\313\314\315DD\316\317\320\321\322\323\324\325\326&\207" [require nnheader gnus-art custom-declare-group smiley nil "Turn :-)'s into real images." :group gnus-visual custom-declare-variable smiley-style funcall function #[0 "\3001\301\302\303\"\304Y0\202\210\202\203\305\207\306\207" [(error) face-attribute default :height 160 medium low-color] 3 ""] "Smiley style." :type (choice (const :tag "small, 3 colors" low-color) (const :tag "medium, ~10 colors" medium) (const :tag "dull, grayscale" grayscale) (const :tag "emoji, full color" emoji)) :set #[514 "\301\"\210\302 \303 \207" [smiley-data-directory set-default smiley-directory smiley-update-cache] 5 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default :version "23.1"] 12)
#@166 Return a the location of the smiley faces files.
STYLE specifies which style to use, see `smiley-style'.  If STYLE
is nil, use `smiley-style'.

(fn &optional STYLE)
(defalias 'smiley-directory #[256 "\211\204\262
\301\302\303\267\202\304\202\305\202\306\202\307P!\207" [smiley-style nnheader-find-etc-directory "images/smilies" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (low-color 15 medium 19 grayscale 23)) "" "/medium" "/grayscale" nil] 5 (#$ . 914)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\317\320\312\321\306\322\310\311&\210\300\323\302\303\324DD\325\317\326\312\327\306\330\310\311&\210\300\331\302\303\332DD\333\317\326\312\334&\207" [custom-declare-variable smiley-data-directory funcall function #[0 "\300 \207" [smiley-directory] 1 #1=""] "Location of the smiley faces files." :set #[514 "\300\"\210\301 \207" [set-default smiley-update-cache] 5 "\n\n(fn SYMBOL VALUE)"] :initialize custom-initialize-default :type directory smiley-emoji-regexp-alist #[0 "\300\207" [(("\\(;-)\\)\\W" 1 "😉") ("[^;]\\(;)\\)\\W" 1 "😉") ("\\(:-]\\)\\W" 1 "😬") ("\\(8-)\\)\\W" 1 "🥴") ("\\(:-|\\)\\W" 1 "😐") ("\\(:-[/\\]\\)\\W" 1 "😕") ("\\(:-(\\)\\W" 1 "😠") ("\\(X-)\\)\\W" 1 "😵") ("\\(:-{\\)\\W" 1 "😦") ("\\(>:-)\\)\\W" 1 "😈") ("\\(;-(\\)\\W" 1 "😢") ("\\(:-D\\)\\W" 1 "😀") ("\\(O:-)\\)\\W" 1 "😇") ("\\(\\^?:-?)\\)\\W" 1 "🙂"))] 1 #1#] "A list of regexps to map smilies to emoji.\nThe elements are (REGEXP MATCH EMOJI), where MATCH is the submatch in\nregexp to replace with EMOJI." :version "28.1" (repeat (list regexp (integer :tag "Regexp match number") (string :tag "Emoji"))) #[514 "\300\"\210\301 \207" [set-default smiley-update-cache] 5 "\n\n(fn SYMBOL VALUE)"] smiley-regexp-alist #[0 "\300\207" [(("\\(;-)\\)\\W" 1 "blink") ("[^;]\\(;)\\)\\W" 1 "blink") ("\\(:-]\\)\\W" 1 "forced") ("\\(8-)\\)\\W" 1 "braindamaged") ("\\(:-|\\)\\W" 1 "indifferent") ("\\(:-[/\\]\\)\\W" 1 "wry") ("\\(:-(\\)\\W" 1 "sad") ("\\(X-)\\)\\W" 1 "dead") ("\\(:-{\\)\\W" 1 "frown") ("\\(>:-)\\)\\W" 1 "evil") ("\\(;-(\\)\\W" 1 "cry") ("\\(:-D\\)\\W" 1 "grin") ("\\(\\^?:-?)\\)\\W" 1 "smile"))] 1 #1#] "A list of regexps to map smilies to images.\nThe elements are (REGEXP MATCH IMAGE), where MATCH is the submatch in\nregexp to replace with IMAGE.  IMAGE is the name of an image file in\n`smiley-data-directory'." "24.1" (repeat (list regexp (integer :tag "Regexp match number") (string :tag "Image name"))) #[514 "\300\"\210\301 \207" [set-default smiley-update-cache] 5 "\n\n(fn SYMBOL VALUE)"] gnus-smiley-file-types #[0 "\300C\301\302!\203
\303
B\262
\301\304!\203\305
B\262
\207" ["pbm" gnus-image-type-available-p xpm "xpm" gif "gif"] 3 #1#] "List of suffixes on smiley file names to try." (repeat string)] 12)
(defvar smiley-cached-regexp-alist nil)
(defalias 'smiley-update-cache #[0 "\306	\307=\203\f\n\211\2079\203J\202\211\205m\211@\f\306\211
\204H\211A\262\242\211\262\203H\310\311\3128\313Q
\"\211\262!\204 \306\262\202 \211\203d\314\315!\306\316\317%\211\203c@A@EB\210\266
A\266\202\202\207" [smiley-cached-regexp-alist smiley-style smiley-emoji-regexp-alist smiley-regexp-alist gnus-smiley-file-types smiley-data-directory nil emoji file-exists-p expand-file-name 2 "." gnus-create-image intern :ascent center] 11])
#@126 Replace in the region `smiley-regexp-alist' matches with corresponding images.
A list of images is returned.

(fn START END)
(defalias 'smiley-region #[514 "\301 \205\200\204\f\302 \210\212
\206e\303\211\211\211\211\203{\211@\211A@\262\304
8\262b\210\305
@	\306#\203t\307!\262\225b\210\224\225|\210\203+B\262\310\311!\2109\203g\312\311\"\210\313\311#\210\202+\314\315\316\311%c\210\202+
A\266\202\202\210
\266\205)\207" [smiley-cached-regexp-alist display-graphic-p smiley-update-cache nil 2 re-search-forward t match-string gnus-add-wash-type smiley gnus-add-image gnus-put-image propertize display gnus-image-category] 15 (#$ . 4324) "r"])
#@157 Run `smiley-region' at the BUFFER, specified in the argument or
interactively.  If there's no argument, do it at the current buffer.

(fn &optional BUFFER)
(defalias 'smiley-buffer #[256 "\212\211\203\n\300
!q\210\301ed\")\207" [get-buffer smiley-region] 4 (#$ . 5011) "bBuffer to run smiley-region: "])
#@132 Toggle displaying smiley faces in article buffer.
With arg, turn displaying on if and only if arg is positive.

(fn &optional ARG)
(defalias 'smiley-toggle-buffer #[256 "\303\304!!\205+rq\210\305\211\247\203\211\306V\202\307\n>?\203'\310ed\"\202*\311\307!*\207" [gnus-article-buffer inhibit-read-only gnus-article-wash-types buffer-live-p get-buffer t 0 smiley smiley-region gnus-delete-images] 4 (#$ . 5323) ["P" (gnus-article-mode gnus-summary-mode)]])
#@106 Toggle displaying smiley faces.
With arg, turn displaying on if and only if arg is positive.

(fn EVENT)
(defalias 'smiley-mouse-toggle-buffer #[257 "\212\300 \301\302\"\216\303!\210\304 )\262
)\207" [current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] mouse-set-point smiley-toggle-buffer] 5 (#$ . 5795) "e"])
(provide 'smiley)