;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\315\301&\207" [require erc xml notifications erc-goodies 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 (#$ . 386)) (byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\313\314\306\315&\207" [custom-declare-variable erc-notifications-icon funcall function #[0 "\300\207" [nil] 1 #1=""] "Icon to use for notification." :type (choice (const :tag "No icon" nil) file) erc-notifications-bus #[0 "\300\207" [:session] 1 #1#] "D-Bus bus to use for notification." :version "25.1" (choice (const :tag "Session bus" :session) string)] 8)#@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\"#\310\312!\311\"\313\314\315\316\317 \320\n\321\322\323\324\325\"&\266\203\2110\207 \205D\326@A\"\207" [erc-notifications-bus erc-notifications-last-notification erc-notifications-icon dbus-debug (dbus-error) erc-get-buffer format "%s in %s" xml-escape-string t erc-controls-strip notifications-notify :bus :title :body :replaces-id :app-icon :actions ("default" "Switch to buffer") :on-action make-closure #[128 "\301\300!\207" [V0 pop-to-buffer] 3 "\n\n(fn &rest _)"] signal] 23 (#$ . 913)])#@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 (#$ . 1690)])#@36 (fn MATCH-TYPE NICKUSERHOST MSG) (defalias 'erc-notifications-notify-on-match #[771 "\301=\205+\302!@\303\304\305\306$\266\203\206!\307\300!\205!\211\235?\205)\310\"\262\207" [erc-track-exclude current-nick erc-parse-user "^Server:" nil string-match t boundp erc-notifications-notify] 12 (#$ . 2193)]) (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 :type boolean :group erc-notifications] 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 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B \203B\313 \210\202E\314 \210\315\316\305\301!\203Q\317\202R\320\"\210\321\322!\203{\323\301!\210\302 \203j\211\302 \232\203{\324\325\326\305\301!\203w\327\202x\330\331$\210\210\332 \210\305\301!\207" [global-minor-modes erc-notifications-mode current-message set-default toggle default-value 1 nil t boundp delq 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 "%s %sabled%s" "Erc-Notifications mode" "en" "dis" "" force-mode-line-update] 7 (#$ . 3089) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar erc-notifications-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode erc-notifications-mode boundp] 6)#@32 Enable ERC notifications mode. (defalias 'erc-notifications-enable #[0 "\302>\203 \210\202\302B\303\304\305\306\"\210\304\307\310\"\207" [erc-modules erc-notifications-mode notifications t add-hook erc-server-PRIVMSG-functions erc-notifications-PRIVMSG erc-text-matched-hook erc-notifications-notify-on-match] 3 (#$ . 4794) 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 (#$ . 5137) nil]) (byte-code "\300\301\302\303#\210\300\301\304\303#\210\300\305\304\303#\210\300\306\304\303#\210\307\310!\207" [put erc-notifications-mode erc-module notifications definition-name erc-notifications-enable erc-notifications-disable provide erc-desktop-notifications] 4)