;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@89 Color specification as needed by the wmii window manager for the jabber alert messages. (defvar jabber-wmii-color "#ffffff #335577 #447799" (#$ . 87)) #@112 If non-nil time to reset wmii message. If nil the message has to be cleared by other means, i.e. from wmiirc. (defvar jabber-wmii-reset-time "20 sec" (#$ . 245)) #@30 Timer to clear wmii message. (defvar jabber-wmii-timer nil (#$ . 414)) #@64 Clear any previous message output through wmii window manager. (defalias 'jabber-wmii-clear #[nil "\3001\301\302\303\211\211\304\305&0\207\210\303\207" [(error) call-process "wmiir" nil "remove" "/rbar/jabber"] 7 (#$ . 491)]) #@19 Show MSG in wmii. (defalias 'jabber-wmii-message #[(text &optional title) "\203\306!\210\307 !\211\310\311\312\"\313\216r q\210 \314\206\"\261\210)r q\210\315\316\211\f\316\317%\210,\3201E\321\322\n\316\211\323\324&0\210\202F\210\325\n!\210)\205X\326\316\327#\211\207" [jabber-wmii-timer temporary-file-directory tmp #1=#:temp-buffer #2=#:temp-file jabber-wmii-color cancel-timer make-temp-file generate-new-buffer " *temp file*" t #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] " " write-region nil 0 (error) call-process "wmiir" "create" "/rbar/jabber" delete-file run-at-time jabber-wmii-clear title text jabber-wmii-reset-time] 8 (#$ . 726)]) #@49 Show a message through the wmii window manager. (defalias 'jabber-message-wmii #[(from buffer text title) "\205\302 \"\207" [title text jabber-wmii-message] 3 (#$ . 1418)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-message-hooks custom-options jabber-message-wmii] 5) #@49 Show a message through the wmii window manager. (defalias 'jabber-muc-wmii #[(nick group buffer text title) "\205\302 \"\207" [title text jabber-wmii-message] 3 (#$ . 1747)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-muc-hooks custom-options jabber-muc-wmii] 5) #@49 Show a message through the wmii window manager. (defalias 'jabber-presence-wmii #[(who oldstatus newstatus statustext title) "\205\302 \"\207" [title statustext jabber-wmii-message] 3 (#$ . 2070)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\207" [#:vlist put jabber-alert-presence-hooks custom-options jabber-presence-wmii] 5) #@49 Show a message through the wmii window manager. (defalias 'jabber-info-wmii #[(infotype buffer text) "\205\301!\207" [text jabber-wmii-message] 2 (#$ . 2426)]) (byte-code "\301\302\303\302\303N\304>\203\202\304B)#\210\305\306!\207" [#:vlist put jabber-alert-info-message-hooks custom-options jabber-info-wmii provide jabber-wmii] 5)