| | 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) |
projects / config.git / blame_incremental