]>
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 | #@89 Color specification as needed by the wmii window manager for the jabber alert messages.\1f | |
9 | (defvar jabber-wmii-color "#ffffff #335577 #447799" (#$ . 84)) | |
10 | #@112 If non-nil time to reset wmii message. If nil the message has to be cleared by other means, i.e. from wmiirc.\1f | |
11 | (defvar jabber-wmii-reset-time "20 sec" (#$ . 242)) | |
12 | #@30 Timer to clear wmii message.\1f | |
13 | (defvar jabber-wmii-timer nil (#$ . 411)) | |
14 | #@64 Clear any previous message output through wmii window manager.\1f | |
15 | (defalias 'jabber-wmii-clear #[0 "\3001\ f\0\301\302\303\211\211\304\305&\ 60\207\303\207" [(error) call-process "wmiir" nil "remove" "/rbar/jabber"] 7 (#$ . 488)]) | |
16 | #@46 Show MSG in wmii. | |
17 | ||
18 | (fn TEXT &optional TITLE)\1f | |
19 | (defalias 'jabber-wmii-message #[513 "\b\203\b\0\304\b!\210\305 !\306\307\310\"\311\312\ 2\"\216r\211q\210\n\313\ 4\206\1f\0\ 5\261\ 3\210)r\211q\210\314\315\211\ 4\315\316%\210*\210\3171C\0\320\321\ 2\315\211\322\323&\ 60\210\202F\0\315\266\ 2\324\ 1!\266\ 2\v\205V\0\325\v\315\326#\211\10\207" [jabber-wmii-timer temporary-file-directory jabber-wmii-color jabber-wmii-reset-time cancel-timer make-temp-file generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \0\302\300!\207" [V0 buffer-name kill-buffer] 2] " " write-region nil 0 (error) call-process "wmiir" "create" "/rbar/jabber" delete-file run-at-time jabber-wmii-clear] 10 (#$ . 717)]) | |
20 | #@78 Show a message through the wmii window manager. | |
21 | ||
22 | (fn FROM BUFFER TEXT TITLE)\1f | |
23 | (defalias 'jabber-message-wmii #[1028 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-wmii-message] 7 (#$ . 1395)]) | |
24 | (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-wmii] 6) | |
25 | #@84 Show a message through the wmii window manager. | |
26 | ||
27 | (fn NICK GROUP BUFFER TEXT TITLE)\1f | |
28 | (defalias 'jabber-muc-wmii #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-wmii-message] 8 (#$ . 1723)]) | |
29 | (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-wmii] 6) | |
30 | #@96 Show a message through the wmii window manager. | |
31 | ||
32 | (fn WHO OLDSTATUS NEWSTATUS STATUSTEXT TITLE)\1f | |
33 | (defalias 'jabber-presence-wmii #[1285 "\211\205\b\0\300\ 2\ 2\"\207" [jabber-wmii-message] 8 (#$ . 2045)]) | |
34 | (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-wmii] 6) | |
35 | #@76 Show a message through the wmii window manager. | |
36 | ||
37 | (fn INFOTYPE BUFFER TEXT)\1f | |
38 | (defalias 'jabber-info-wmii #[771 "\211\205\a\0\300\ 1!\207" [jabber-wmii-message] 5 (#$ . 2394)]) | |
39 | (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-info-message-hooks custom-options jabber-info-wmii provide jabber-wmii] 6) |