| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | (require 'jabber-util) |
| | 9 | (defvar jabber-menu (byte-code "\300\301!\302\ 1\303\304#\210\302\ 1\305\306#\210\302\ 1\307\310\311\300\312!\313BBB#\210\314\ 1\315\316#\210\314\ 1\317\320#\210\314\ 1\321\322#\210\314\ 1\323\324#\210\314\ 1\325\326#\210\302\ 1\327\330#\210\302\ 1\331\332#\210\302\ 1\333\334#\210\302\ 1\335\336#\210\302\ 1\337\340#\210\302\ 1\341\342#\210\302\ 1\343\344#\210\302\ 1\345\346#\210\207" [make-sparse-keymap "jabber-menu" define-key-after [jabber-menu-connect] ("Connect" . jabber-connect-all) [jabber-menu-disconnect] (menu-item "Disconnect" jabber-disconnect :enable (bound-and-true-p jabber-connections)) [jabber-menu-status] menu-item "Set Status" "set-status" (:enable (bound-and-true-p jabber-connections)) define-key [jabber-menu-status jabber-menu-status-chat] (menu-item "Chatty" (lambda nil (interactive) (jabber-send-presence "chat" (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*) *jabber-current-priority*)) :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "chat"))) [jabber-menu-status jabber-menu-status-dnd] (menu-item "Do not Disturb" (lambda nil (interactive) (jabber-send-presence "dnd" (jabber-read-with-input-method "status message: " *jabber-current-status* '*jabber-status-history*) *jabber-current-priority*)) :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "dnd"))) [jabber-menu-status jabber-menu-status-xa] (menu-item "Extended Away" jabber-send-xa-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "xa"))) [jabber-menu-status jabber-menu-status-away] (menu-item "Away" jabber-send-away-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* "away"))) [jabber-menu-status jabber-menu-status-online] (menu-item "Online" jabber-send-default-presence :button (:radio and (boundp '*jabber-current-show*) (equal *jabber-current-show* ""))) [separator] (menu-item "--") [jabber-menu-chat-with] (menu-item "Chat with..." jabber-chat-with :enable (bound-and-true-p jabber-connections)) [jabber-menu-nextmsg] (menu-item "Next unread message" jabber-activity-switch-to :enable (bound-and-true-p jabber-activity-jids)) [jabber-menu-send-subscription-request] (menu-item "Send subscription request" jabber-send-subscription-request :enable (bound-and-true-p jabber-connections)) [jabber-menu-roster] ("Switch to roster" . jabber-switch-to-roster-buffer) [separator2] (menu-item "--") [jabber-menu-customize] ("Customize" . jabber-customize) [jabber-menu-info] ("Help" . jabber-info)] 8)) |
| | 10 | (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\a\207" [custom-declare-variable jabber-display-menu funcall function #[0 "\300\207" [maybe] 1 ""] "Decide whether the \"Jabber\" menu is displayed in the menu bar.\nIf t, always display.\nIf nil, never display.\nIf maybe, display if jabber.el is installed under `package-user-dir', or\nif any of `jabber-account-list' or `jabber-connections' is non-nil." :group jabber :type (choice (const :tag "Never" nil) (const :tag "Always" t) (const :tag "When installed by user, or when any accounts have been configured or connected" maybe))] 8) |
| | 11 | #@89 Put "Jabber" menu on menubar. |
| | 12 | With prefix argument, remove it. |
| | 13 | |
| | 14 | (fn &optional REMOVE)\1f |
| | 15 | (defalias 'jabber-menu #[256 "\211?\205\ 6\0\301\10\302 \207" [jabber-display-menu t force-mode-line-update] 2 (#$ . 3260) "P"]) |
| | 16 | (byte-code "\302\301\303\304#\210\305\306\b\307\"\310\311\312 \313\314\257\ 5#\207" [global-map jabber-menu make-obsolete "set the variable `jabber-display-menu' instead." "27.2" define-key-after lookup-key [menu-bar] [jabber-menu] menu-item "Jabber" :visible (or (eq jabber-display-menu t) (and (eq jabber-display-menu 'maybe) (or (bound-and-true-p jabber-account-list) (bound-and-true-p jabber-connections))))] 8) |
| | 17 | #@27 Menu items for chat menu.\1f |
| | 18 | (defvar jabber-jid-chat-menu nil (#$ . 3891)) |
| | 19 | #@26 Menu item for info menu.\1f |
| | 20 | (defvar jabber-jid-info-menu nil (#$ . 3969)) |
| | 21 | #@29 Menu items for roster menu.\1f |
| | 22 | (defvar jabber-jid-roster-menu nil (#$ . 4046)) |
| | 23 | #@26 Menu items for MUC menu.\1f |
| | 24 | (defvar jabber-jid-muc-menu nil (#$ . 4128)) |
| | 25 | #@30 Menu items for service menu.\1f |
| | 26 | (defvar jabber-jid-service-menu nil (#$ . 4204)) |
| | 27 | #@40 Popup specified menu. |
| | 28 | |
| | 29 | (fn WHICH-MENU)\1f |
| | 30 | (defalias 'jabber-popup-menu #[257 "\b<\205\ 6\0\b\301\302\ 3\ 3#\ 1\203\13\0\303\ 2!\210\211\205\1a\0\304\ 1!\207" [last-input-event widget-choose "Actions" mouse-set-point call-interactively] 6 (#$ . 4288)]) |
| | 31 | #@18 Popup chat menu.\1f |
| | 32 | (defalias 'jabber-popup-chat-menu #[0 "\301\b!\207" [jabber-jid-chat-menu jabber-popup-menu] 2 (#$ . 4522) nil]) |
| | 33 | #@18 Popup info menu.\1f |
| | 34 | (defalias 'jabber-popup-info-menu #[0 "\301\b!\207" [jabber-jid-info-menu jabber-popup-menu] 2 (#$ . 4657) nil]) |
| | 35 | #@20 Popup roster menu.\1f |
| | 36 | (defalias 'jabber-popup-roster-menu #[0 "\301\b!\207" [jabber-jid-roster-menu jabber-popup-menu] 2 (#$ . 4792) nil]) |
| | 37 | #@17 Popup MUC menu.\1f |
| | 38 | (defalias 'jabber-popup-muc-menu #[0 "\301\b!\207" [jabber-jid-muc-menu jabber-popup-menu] 2 (#$ . 4933) nil]) |
| | 39 | #@21 Popup service menu.\1f |
| | 40 | (defalias 'jabber-popup-service-menu #[0 "\301\b!\207" [jabber-jid-service-menu jabber-popup-menu] 2 (#$ . 5065) nil]) |
| | 41 | #@22 Popup combined menu.\1f |
| | 42 | (defalias 'jabber-popup-combined-menu #[0 "\304\305\b \n\v$!\207" [jabber-jid-chat-menu jabber-jid-info-menu jabber-jid-roster-menu jabber-jid-muc-menu jabber-popup-menu append] 6 (#$ . 5209) nil]) |
| | 43 | (provide 'jabber-menu) |
projects / config.git / blame_incremental