]>
Commit | Line | Data |
---|---|---|
53e6db90 DC |
1 | ;ELC\1c\0\0\0 |
2 | ;;; Compiled | |
3 | ;;; in Emacs version 28.2 | |
4 | ;;; with all optimizations. | |
5 | ||
6 | ||
7 | ||
8 | (byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\a\210\304\316\306\307\317DD\320\312\321\314\315&\a\210\304\322\306\307\323DD\324\312\325\314\315&\a\210\304\326\306\307\327DD\330\312\325\314\315&\a\210\304\331\306\307\332DD\333\312\334\314\315&\a\210\304\335\306\307\336DD\337\312\340\314\315&\a\207" [require dbus nil t custom-declare-variable jabber-libnotify-icon funcall function #[0 "\300\207" [#1=""] 1 #1#] "Icon to be used on the notification pop-up. Default is empty" :type (file :must-match t) :group jabber-alerts jabber-libnotify-timeout #[0 "\300\207" [2500] 1 #1#] "Specifies the timeout of the pop up window in millisecond" integer jabber-libnotify-message-header #[0 "\300\207" ["Jabber message"] 1 #1#] "Defines the header of the pop up." string jabber-libnotify-app #[0 "\300\207" ["Emacs Jabber"] 1 #1#] "Defines the app of the pop up." jabber-libnotify-urgency #[0 "\300\207" ["low"] 1 #1#] "Urgency of libnotify message" (choice (const :tag "Low" "low") (const :tag "Normal" "normal") (const :tag "Critical" "critical")) jabber-libnotify-method #[0 "\300\301!\203\b\0\301\207\302\207" [featurep dbus shell] 2 #1#] "Specifies the method for libnotify call. Dbus is more faster but require emacs23+" (choice (const :tag "Shell" shell) (const :tag "D-Bus" dbus))] 8) | |
9 | (defvar jabber-libnotify-id 0) | |
10 | #@34 Return the next notification id.\1f | |
11 | (defalias 'jabber-libnotify-next-id #[0 "\bT\211\10\207" [jabber-libnotify-id] 2 (#$ . 1420)]) | |
12 | #@53 Show MSG using libnotify | |
13 | ||
14 | (fn TEXT &optional TITLE)\1f | |
15 | (defalias 'jabber-libnotify-message #[513 "\306\ 2!\206\a\0\307\306\ 2\206\15\0\b\206\15\0\307\202\15\0\ 3!\3101`\0 \311\267\202]\0\312\1a\313\314\312\315\316\317\320\v\"\321\f\2061\0\322\323\r\ 6\n\ 6\f&\v)\202^\0\324\325\326\327\326\330\ e \331 \f\332\333\ 6\v\334\"\332\333\ 6\ e\334\"\335\336\337\v&\10\202^\0\3120\207\312\207" [jabber-libnotify-message-header jabber-libnotify-method process-connection-type jabber-libnotify-timeout jabber-libnotify-icon jabber-libnotify-urgency jabber-escape-xml " " (error) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (shell 32 dbus 61)) nil start-process "notification" "notify-send" "-t" format "%s" "-i" "\"\"" "-u" dbus-call-method :session "org.freedesktop.Notifications" "/org/freedesktop/Notifications" "Notify" jabber-libnotify-next-id :string encode-coding-string utf-8 (:array) (:array :signature "{sv}") :int32 jabber-libnotify-app] 21 (#$ . 1551)]) | |
16 | #@77 Show a message through the libnotify interface | |
17 | ||
18 | (fn FROM BUFFER TEXT TITLE)\1f | |
19 | (defalias 'jabber-message-libnotify #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-libnotify-message] 7 (#$ . 2508)]) | |
20 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-message-hooks custom-options jabber-message-libnotify] 6) | |
21 | #@83 Show a message through the libnotify interface | |
22 | ||
23 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
24 | (defalias 'jabber-muc-libnotify #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-libnotify-message] 8 (#$ . 2850)]) | |
25 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-muc-hooks custom-options jabber-muc-libnotify] 6) | |
26 | #@95 Show a message through the libnotify interface | |
27 | ||
28 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f | |
29 | (defalias 'jabber-presence-libnotify #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-libnotify-message] 8 (#$ . 3186)]) | |
30 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-presence-hooks custom-options jabber-presence-libnotify] 6) | |
31 | #@75 Show a message through the libnotify interface | |
32 | ||
33 | (fn INFOTYPE BUFFER TEXT)\1f | |
34 | (defalias 'jabber-info-libnotify #[771 "\211\205\a\0\300\ 1!\207" [jabber-libnotify-message] 5 (#$ . 3549)]) | |
35 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\207" [put jabber-alert-info-message-hooks custom-options jabber-info-libnotify] 6) | |
36 | #@37 | |
37 | ||
38 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
39 | (defalias 'jabber-muc-libnotify-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-libnotify] 11 (#$ . 3885)]) | |
40 | (byte-code "\300\301\302\301\302N\303\ 1>\203\10\0\211\202\13\0\303\ 1B\262\ 1#\210\304\305!\207" [put jabber-alert-muc-hooks custom-options jabber-muc-libnotify-personal provide jabber-libnotify] 6) |