projects / config.git / blame
| 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\304DD\305\306\307\310\311&\a\207" [custom-declare-variable jabber-awesome-args funcall function #[0 "\300\207" [", timeout=5"] 1 ""] "Additional args to naughty." :type string :group jabber-alerts] 8) | |
| 9 | #@48 Show MSG in Awesome | |
| 10 | ||
| 11 | (fn TEXT &optional TITLE)\1f | |
| 12 | (defalias 'jabber-awesome-message #[513 "\3021\14\0\303\18\304\305\306\ 3\206\ e\0\ 4 #!)0\207\303\207" [process-connection-type jabber-awesome-args (error) nil shell-command-to-string format "echo 'naughty.notify({text = \"%s\" %s})' | awesome-client -"] 7 (#$ . 313)]) | |
| 13 | #@80 Show a message through the Awesome window manager | |
| 14 | ||
| 15 | (fn FROM BUFFER TEXT TITLE)\1f | |
| 16 | (defalias 'jabber-message-awesome #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-awesome-message] 7 (#$ . 625)]) | |
| 17 | (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-awesome] 6) | |
| 18 | #@86 Show a message through the Awesome window manager | |
| 19 | ||
| 20 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
| 21 | (defalias 'jabber-muc-awesome #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-awesome-message] 8 (#$ . 963)]) | |
| 22 | (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-awesome] 6) | |
| 23 | #@98 Show a message through the Awesome window manager | |
| 24 | ||
| 25 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f | |
| 26 | (defalias 'jabber-presence-awesome #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-awesome-message] 8 (#$ . 1295)]) | |
| 27 | (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-awesome] 6) | |
| 28 | #@78 Show a message through the Awesome window manager | |
| 29 | ||
| 30 | (fn INFOTYPE BUFFER TEXT)\1f | |
| 31 | (defalias 'jabber-info-awesome #[771 "\211\205\a\0\300\ 1!\207" [jabber-awesome-message] 5 (#$ . 1655)]) | |
| 32 | (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-awesome] 6) | |
| 33 | #@37 | |
| 34 | ||
| 35 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
| 36 | (defalias 'jabber-muc-awesome-personal #[1285 "\300\ 2\ 5\"\205\ e\0\301\ 5\ 5\ 5\ 5\ 5%\207" [jabber-muc-looks-like-personal-p jabber-muc-awesome] 11 (#$ . 1988)]) | |
| 37 | (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-awesome-personal provide jabber-awesome] 6) |