| Current Path : /usr/share/emacs/24.3/lisp/erc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/erc/erc-sound.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:46 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-sound.el ;;; in Emacs version 24.3.1 ;;; 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 command `erc-sound-mode' for 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) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307 \210\202! \310 \210\311\312\n\203+ \313\202, \314\"\210\315\316!\203Q \317\302!\210\303 \203D \303 \232\203Q \320\321\n\203N \322\202O \323\"\210)\324 \210\n\207" [#1=#:last-message arg erc-sound-mode current-message toggle 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" "en" "dis" force-mode-line-update] 4 (#$ . 1063) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [erc-sound-mode-map 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 (#$ . 2096) 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 (#$ . 2392) 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 (#$ . 3605)) #@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\" \n\311\315O \203; \316 \317\320 \n#\f#\210 \203B \305 !\210\202B \321\315\322p\323$\210+\324\207\315\207" [line tgt msg file force 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] 6 (#$ . 3713)]) #@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 (#$ . 4366)]) #@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) "\306 \"\211\204 \203 \n\203 \307\n!\203 \310\n!\210\202# \311 \210\312\313\n\" \205/ \314\f!*\207" [file erc-sound-path filepath erc-default-sound string erc-log-p erc-find-file file-exists-p play-sound-file beep format "Playing sound file %S" erc-log-aux] 4 (#$ . 4857)]) #@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 (#$ . 5284) "P"]) (provide 'erc-sound)