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