ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/erc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/erc/erc-desktop-notifications.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 688))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\313\314\304\305\306\315& \207" [custom-declare-variable erc-notifications-icon nil "Icon to use for notification." :group erc-notifications :type (choice (const :tag "No icon" nil) file) erc-notifications-bus :session "D-Bus bus to use for notification." :version "25.1" (choice (const :tag "Session bus" :session) string)] 10)
#@98 Notify that NICK send some MSG.
This will replace the last notification sent with this function.
(defalias 'erc-notifications-notify #[(nick msg) "\3061 \307\310\311\312 !\313\312\n!\314 \315\f&\n\2110\207 \205% \316
@
A\")\207" [erc-notifications-bus nick msg erc-notifications-last-notification erc-notifications-icon err (dbus-error) notifications-notify :bus :title xml-escape-string :body :replaces-id :app-icon signal dbus-debug] 11 (#$ . 1171)])
(defalias 'erc-notifications-PRIVMSG #[(proc parsed) "\306\307H >\204 \310\311\312D\"\210\313H!@\307H >\204$ \310\311\312D\"\210\314H@\307H >\2047 \310\311\312D\"\210\315H \316 !\203Z \317\305!\203O \f
\235\204Z \320\n!\204Z \321\f\n\"\210+\322\207" [parsed cl-struct-erc-response-tags msg target nick erc-track-exclude erc-parse-user 0 signal wrong-type-argument erc-response 2 4 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=\205- \307 !@\310\n\311\312\313#)\266\203\206$ \314\304!\205$ \n\f\235?\205, \315\n
\")\207" [match-type nickuserhost nick inhibit-changing-match-data erc-track-exclude msg current-nick erc-parse-user "^Server:" nil t string-match boundp erc-notifications-notify] 7])
#@287 Non-nil if Erc-Notifications mode is enabled.
See the `erc-notifications-mode' command
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 '(#$ . 2485) :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) "\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-notifications-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 4 (#$ . 2953) (list (or current-prefix-arg 'toggle))])
#@187 Hook run after entering or leaving `erc-notifications-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar erc-notifications-mode-hook nil (#$ . 3989))
(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 (#$ . 4371) 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 (#$ . 4717) 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)
Kontol Shell Bypass