Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-sound.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [require erc custom-declare-variable erc-sound-mode nil "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 :group erc-sound :type boolean] 12)
#@276 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.
(defalias 'erc-sound-mode #[(&optional arg) "\304 \305\302 \306=\203 \307\302!?\202 \310 !\311V\"\210\n\203# \312 \210\202& \313 \210\314\315\307\302!\2032 \316\2023 \317\"\210\320\321!\203^ \322\302!\210\304 \203K \304 \232\203^ \323\324\325\307\302!\203Y \326\202Z \327 #\210))\330 \210\307\302!\207" [#1=#:last-message arg erc-sound-mode local current-message set-default toggle default-value prefix-numeric-value 0 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] 4 (#$ . 916) (list (or current-prefix-arg 'toggle))])
(defvar erc-sound-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode erc-sound-mode nil boundp] 6)
#@24 Enable ERC sound mode.
(defalias 'erc-sound-enable #[nil "\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 (#$ . 2328) nil])
#@25 Disable ERC sound mode.
(defalias 'erc-sound-disable #[nil "\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 (#$ . 2624) 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\320\315\326\327&\210\322\330\316\331\320\315\326\332&\210\322\333\316\334\320\315\326\335&\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 t "Play sounds when you receive CTCP SOUND requests." :type boolean erc-sound-path "List of directories that contain sound samples to play on SOUND events." (repeat directory) erc-default-sound "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)] 8)
#@51 Hook to run after receiving a CTCP SOUND request.
(defvar erc-ctcp-query-SOUND-hook nil (#$ . 3837))
#@195 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.
(defalias 'erc-cmd-SOUND #[(line &optional force) "\306\307\"\203E \310\311\"\310\312\"\313 \n\204 \314\202\" \315\n\311\" \203; \316 \317\320 \n#\f#\210
\203B \305 !\210\202B \321\322\323p\324$\210+\325\207\322\207" [line tgt msg file force erc-play-sound string-match "^\\s-*\\(\\S-+\\)\\(\\s-.*\\)?$" match-string 1 2 erc-default-target "" substring erc-send-ctcp-message format "SOUND %s %s" erc-display-message nil error no-target t] 6 (#$ . 3945)])
#@77 Display a CTCP SOUND message and play sound if `erc-play-sound' is non-nil.
(defalias 'erc-ctcp-query-SOUND #[(proc nick login host to msg) "\306\307\"\203- \310\311\"\310\312\" \203 \303\n!\210\313\314\315\314\316\317\f\320
\321\322\n\323 &\210*\314\207" [msg comment sound erc-play-sound nick login string-match "^SOUND\\s-+\\(\\S-+\\)\\(\\(\\s-+.*\\)\\|\\(\\s-*\\)\\)$" match-string 1 2 erc-display-message nil notice CTCP-SOUND 110 117 104 115 109 host] 15 (#$ . 4609)])
#@102 Play a sound file located in one of the directories in `erc-sound-path'.
See also `play-sound-file'.
(defalias 'erc-play-sound #[(file) "\305 \"\211\204 \203 \n\203 \306\n!\203 \307\n!\210\202# \310 \210\f\205- \311\312\313\n\"!)\207" [file erc-sound-path filepath erc-default-sound erc-log-p erc-find-file file-exists-p play-sound-file beep erc-log-aux format "Playing sound file %S"] 5 (#$ . 5100)])
#@121 Toggles playing sounds on and off. With positive argument,
turns them on. With any other argument turns sounds off.
(defalias 'erc-toggle-sound #[(&optional arg) "\247\203 \302V\203 \303\202 \203 \304\202 ?\305\306 \203& \307\202' \310\"\207" [arg erc-play-sound 0 t nil message "ERC sound is %s" "ON" "OFF"] 3 (#$ . 5518) "P"])
(provide 'erc-sound)
Mini Shell