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



(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317&\207" [require erc custom-declare-variable erc-sound-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Erc-Sound mode is enabled.\nSee the `erc-sound-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `erc-sound-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group erc-sound] 12)
#@296 Toggle ERC sound mode.
With a prefix argument ARG, enable sound if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
In ERC sound mode, the client will respond to CTCP SOUND requests
and play sound files as requested.

(fn &optional ARG)
(defalias 'erc-sound-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203z\323\301!\210\302 \203j\211\302 \232\203z\324\325\305\301!\203v\326\202w\327\330#\210\210\331 \210\305\301!\207" [global-minor-modes erc-sound-mode current-message set-default toggle default-value 1 nil t boundp delq erc-sound-enable erc-sound-disable run-hooks erc-sound-mode-hook erc-sound-mode-on-hook erc-sound-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Sound mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 642) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar erc-sound-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [erc-sound-mode-map erc-sound-mode-hook variable-documentation put "Hook run after entering or leaving `erc-sound-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode erc-sound-mode boundp] 6)
#@24 Enable ERC sound mode.
(defalias 'erc-sound-enable #[0 "\302\303\304\"\210\305\306\307\310\"\210\311	\312\313#\207" [erc-sound-mode erc-mode-map add-to-list erc-modules sound t add-hook erc-ctcp-query-SOUND-hook erc-ctcp-query-SOUND define-key "" erc-toggle-sound] 4 (#$ . 2257) nil])
#@25 Disable ERC sound mode.
(defalias 'erc-sound-disable #[0 "\303\304\"\305\306\307\310\"\210\311\n\312\313#\207" [erc-modules erc-sound-mode erc-mode-map delq sound nil remove-hook erc-ctcp-query-SOUND-hook erc-ctcp-query-SOUND define-key "" undefined] 4 (#$ . 2551) nil])
(byte-code "\300\301\302\"\210\303\302\304\305#\210\303\306\304\305#\210\303\307\304\305#\210\310\311\312\313#\210\314\315\316\317\320\321%\210\322\323\324\325\326DD\327\330\331%\210\322\332\324\325\333DD\334\330\335%\210\322\336\324\325\337DD\340\330\341%\207" [defalias erc-ctcp-sound-mode erc-sound-mode put definition-name sound erc-sound-enable erc-sound-disable erc-define-catalog-entry english CTCP-SOUND "%n (%u@%h) plays %s:%m" custom-declare-group erc-sound nil "Make ERC play bells and whistles while chatting with people." :group erc custom-declare-variable erc-play-sound funcall function #[0 "\300\207" [t] 1 #1=""] "Play sounds when you receive CTCP SOUND requests." :type boolean erc-sound-path #[0 "\300\207" [nil] 1 #1#] "List of directories that contain sound samples to play on SOUND events." (repeat directory) erc-default-sound #[0 "\300\207" [nil] 1 #1#] "Play this sound if the requested file was not found.\nIf this is set to nil or the file doesn't exist a beep will sound." (choice (const nil) file)] 6)
#@51 Hook to run after receiving a CTCP SOUND request.
(defvar erc-ctcp-query-SOUND-hook nil (#$ . 3864))
#@222 Send a CTCP SOUND message to the default target.
If `erc-play-sound' is non-nil, play the sound as well.

/sound filename optional-message-text

LINE is the text entered, including the command.

(fn LINE &optional FORCE)
(defalias 'erc-cmd-SOUND #[513 "\301\302\"\203I\303\304\"\303\305\"\306 
\204\307\262\202!
\304\310O\262\211\203>\311
\312\313##\210\203E\300!\266\202G\314\310\315p\316$\210\266\317\207\310\207" [erc-play-sound string-match "^\\s-*\\(\\S-+\\)\\(\\s-.*\\)?$" match-string 1 2 erc-default-target "" nil erc-send-ctcp-message format "SOUND %s %s" erc-display-message error no-target t] 11 (#$ . 3972)])
#@111 Display a CTCP SOUND message and play sound if `erc-play-sound' is non-nil.

(fn PROC NICK LOGIN HOST TO MSG)
(defalias 'erc-ctcp-query-SOUND #[1542 "\301\302\"\203/\303\304\"\303\305\"\203\300!\210\306\307\310\307\311\312\f\313
\314\315
\316&\266\307\207" [erc-play-sound string-match "^SOUND\\s-+\\(\\S-+\\)\\(\\(\\s-+.*\\)\\|\\(\\s-*\\)\\)$" match-string 1 2 erc-display-message nil notice CTCP-SOUND 110 117 104 115 109] 23 (#$ . 4622)])
#@113 Play a sound file located in one of the directories in `erc-sound-path'.
See also `play-sound-file'.

(fn FILE)
(defalias 'erc-play-sound #[257 "\303
\"\211\204	\203	\262
\211\203 \304
!\203 \305
!\210\202#\306 \210\n\205-\307\310\311\"!\207" [erc-sound-path erc-default-sound erc-log-p erc-find-file file-exists-p play-sound-file beep erc-log-aux format "Playing sound file %S"] 6 (#$ . 5088)])
#@137 Toggle playing sounds on and off.
With positive argument, turns them on.  With any other argument
turns sounds off.

(fn &optional ARG)
(defalias 'erc-toggle-sound #[256 "\211\247\203\211\301V\203\302\202\211\203\303\202?\304\305\203&\306\202'\307\"\207" [erc-play-sound 0 t nil message "ERC sound is %s" "ON" "OFF"] 4 (#$ . 5501) "P"])
(provide 'erc-sound)