%PDF- %PDF- Mini Shell
Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/erc/
Current File : //usr/local/share/emacs/27.2/lisp/erc/erc-desktop-notifications.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\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 (#$ . 686))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\315\316\306\307\310\317&	\207" [custom-declare-variable erc-notifications-icon funcall function #[0 "\300\207" [nil] 1] "Icon to use for notification." :group erc-notifications :type (choice (const :tag "No icon" nil) file) erc-notifications-bus #[0 "\300\207" [:session] 1] "D-Bus bus to use for notification." :version "25.1" (choice (const :tag "Session bus" :session) string)] 10)
#@173 Notify that NICK send some MSG, where PRIVP should be non-nil for PRIVMSGs.
This will replace the last notification sent with this function.

(fn NICK MSG &optional PRIVP)
(defalias 'erc-notifications-notify #[770 "\3041=\211\203\305!\202p\306\307\310\311\312\313\n!#\314\313	!\315	\316\n\317\320\321\322\323\324\325\326!\327\"\330\331%&\262\2110\207\205G\332@A\"\207" [erc-notifications-bus erc-notifications-last-notification erc-notifications-icon dbus-debug (dbus-error) erc-get-buffer notifications-notify :bus :title format "%s in %s" xml-escape-string :body :replaces-id :app-icon :actions ("default" "Switch to buffer") :on-action make-byte-code 128 "\301\300!\207" vconcat vector [pop-to-buffer] 3 "\n\n(fn &rest _)" signal] 24 (#$ . 1247)])
#@20 

(fn PROC PARSED)
(defalias 'erc-notifications-PRIVMSG #[514 "\302\303!>\204\304\305\306D\"\210\307H!@\303!>\204$\304\305\306D\"\210\310H@\303!>\2047\304\305\306D\"\210\311H\312!\203X\313\301!\203L	\235\204X\314!\204X\315\316#\210\266\317\207" [cl-struct-erc-response-tags erc-track-exclude erc-parse-user type-of 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 t nil] 9 (#$ . 2024)])
#@36 

(fn MATCH-TYPE NICKUSERHOST MSG)
(defalias 'erc-notifications-notify-on-match #[771 "\302=\205-\303!@\304\305\306\307#)\266\203\206#\310\301!\205#\211	\235?\205+\311\"\262\207" [inhibit-changing-match-data erc-track-exclude current-nick erc-parse-user "^Server:" nil t string-match boundp erc-notifications-notify] 11 (#$ . 2528)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable erc-notifications-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Erc-Notifications mode is enabled.\nSee the `erc-notifications-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-notifications-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group erc-notifications :type boolean] 12)
#@273 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.

(fn &optional ARG)
(defalias 'erc-notifications-mode #[256 "\301 \302\300\303=\203\304\300!?\202\305!\306V\"\210\203\"\307 \210\202%\310 \210\311\312\304\300!\2031\313\2022\314\"\210\315\316!\203\\\317\300!\210\301 \203J\211\301 \232\203\\\320\321\322\304\300!\203W\323\202X\324#\266\210\325 \210\304\300!\207" [erc-notifications-mode 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] 7 (#$ . 3452) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
(defvar erc-notifications-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [erc-notifications-mode-map erc-notifications-mode-hook variable-documentation put "Hook run after entering or leaving `erc-notifications-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-notifications-mode nil boundp] 6)
#@32 Enable ERC notifications mode.
(defalias 'erc-notifications-enable #[0 "\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 (#$ . 4954) nil])
#@33 Disable ERC notifications mode.
(defalias 'erc-notifications-disable #[0 "\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 (#$ . 5298) 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)
Zerion Mini Shell 1.0