Current File : //usr/share/emacs/24.3/lisp/erc/erc-desktop-notifications.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:36 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/erc/erc-desktop-notifications.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\301&\207" [require erc xml notifications erc-match dbus custom-declare-group erc-notifications nil "Send notifications on PRIVMSG or mentions." :version "24.3" :group] 8)
#@23 Last notification id.
(defvar erc-notifications-last-notification nil (#$ . 850))
#@31 Icon to use for notification.
(custom-declare-variable 'erc-notifications-icon nil '(#$ . 938) :group 'erc-notifications :type 'file)
#@98 Notify that NICK send some MSG.
This will replace the last notification sent with this function.
(defalias 'erc-notifications-notify #[(nick msg) "\300\301\302\217\207" [err (byte-code "\304\305\306!\307\306	!\310\n\311&\211\207" [nick msg erc-notifications-last-notification erc-notifications-icon notifications-notify :title xml-escape-string :body :replaces-id :app-icon] 9) ((dbus-error (byte-code "\205\n\302	@	A\"\207" [dbus-debug err signal] 3)))] 3 (#$ . 1078)])
(defalias 'erc-notifications-PRIVMSG #[(proc parsed) "\306\307H	>\204\310\311\312\313#\210\314H!@\307H	>\204\"\310\311\315\313#\210\316H@\307H	>\2044\310\311\317\313#\210\320H\321!\203W\322\305!\203L\f
\235\204W\323\n!\204W\324\f\n\"\210+\325\207" [parsed cl-struct-erc-response-tags msg target nick erc-track-exclude erc-parse-user 0 error "%s accessing a non-%s" erc-response\.sender erc-response 2 erc-response\.command-args 4 erc-response\.contents 5 erc-current-nick-p boundp erc-is-message-ctcp-and-not-action-p erc-notifications-notify nil] 6])
(defalias 'erc-notifications-notify-on-match #[(match-type nickuserhost msg) "\306=\2051\307	!@\310\n\311\312\313
\f#,\206'\314\315!\205'\n
\235?\2050\316\n\")\207" [match-type nickuserhost nick start string regexp current-nick erc-parse-user "^Server:" nil t string-match boundp erc-track-exclude erc-notifications-notify inhibit-changing-match-data msg] 4])
#@287 Non-nil if Erc-Notifications mode is enabled.
See the command `erc-notifications-mode' for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `erc-notifications-mode'.
(custom-declare-variable 'erc-notifications-mode nil '(#$ . 2507) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'erc-notifications :type 'boolean)
#@253 Toggle ERC notifications mode.
With a prefix argument ARG, enable notifications if ARG is positive,
and disable it otherwise.  If called from Lisp, enable the mode
if ARG is omitted or nil.
Send notifications on private message reception and mentions.
(defalias 'erc-notifications-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-notifications-mode current-message toggle prefix-numeric-value 0 erc-notifications-enable erc-notifications-disable run-hooks erc-notifications-mode-hook erc-notifications-mode-on-hook erc-notifications-mode-off-hook called-interactively-p any customize-mark-as-set message "Erc-Notifications mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 2975) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n\303\211%\207" [erc-notifications-mode-map add-minor-mode erc-notifications-mode nil boundp] 6)
#@32 Enable ERC notifications mode.
(defalias 'erc-notifications-enable #[nil "\301\302\303\"\210\304\305\306\307\"\210\305\310\311\"\207" [erc-notifications-mode add-to-list erc-modules notifications t add-hook erc-server-PRIVMSG-functions erc-notifications-PRIVMSG erc-text-matched-hook erc-notifications-notify-on-match] 3 (#$ . 4065) nil])
#@33 Disable ERC notifications mode.
(defalias 'erc-notifications-disable #[nil "\302\303\"\304\305\306\307\"\210\305\310\311\"\207" [erc-modules erc-notifications-mode delq notifications nil remove-hook erc-server-PRIVMSG-functions erc-notifications-PRIVMSG erc-text-matched-hook erc-notifications-notify-on-match] 3 (#$ . 4411) nil])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307!\207" [put erc-notifications-mode definition-name notifications erc-notifications-enable erc-notifications-disable provide erc-desktop-notifications] 4)