;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311!\"\210\306\312\313\311!\"\210\306\314\312\"\210\315\314\316\317#\210\320\311\321\312#\322\311\323\324\325$\207" [require xcb-icccm xcb-xembed xcb-systemtray exwm-core exwm-workspace defalias exwm-systemtray--icon-p eieio-make-class-predicate exwm-systemtray--icon exwm-systemtray--icon--eieio-childp eieio-make-child-predicate exwm-systemtray--icon-child-p make-obsolete "use (cl-typep ... \\='exwm-systemtray--icon) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((width :initarg :width) (height :initarg :height) (visible :initarg :visible)) (:documentation "Attributes of a system tray icon.")] 6) #@78 Create a new object of class type `exwm-systemtray--icon'. (fn &rest SLOTS) (defalias 'exwm-systemtray--icon #[128 "\300\301\302#\207" [apply make-instance exwm-systemtray--icon] 5 (#$ . 1140)]) (byte-code "\300\301\302\303#\300\207" [function-put exwm-systemtray--icon compiler-macro exwm-systemtray--icon--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'exwm-systemtray--icon--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1472)]) (byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\207" [defalias xcb:systemtray:-ClientMessage-p eieio-make-class-predicate xcb:systemtray:-ClientMessage xcb:systemtray:-ClientMessage--eieio-childp eieio-make-child-predicate xcb:systemtray:-ClientMessage-child-p make-obsolete "use (cl-typep ... \\='xcb:systemtray:-ClientMessage) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (xcb:icccm:--ClientMessage xcb:ClientMessage) ((format :initform 32) (type :initform xcb:Atom:MANAGER) (time :initarg :time :type xcb:TIMESTAMP) (selection :initarg :selection :type xcb:ATOM) (owner :initarg :owner :type xcb:WINDOW)) (:documentation "A systemtray client message.")] 6) #@86 Create a new object of class type `xcb:systemtray:-ClientMessage'. (fn &rest SLOTS) (defalias 'xcb:systemtray:-ClientMessage #[128 "\300\301\302#\207" [apply make-instance xcb:systemtray:-ClientMessage] 5 (#$ . 2495)]) (byte-code "\300\301\302\303#\300\207" [function-put xcb:systemtray:-ClientMessage compiler-macro xcb:systemtray:-ClientMessage--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'xcb:systemtray:-ClientMessage--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 2867)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317%\210\310\320\312\313\321DD\322\316\317%\207" [custom-declare-group exwm-systemtray nil "System tray." :version "25.3" :group exwm custom-declare-variable exwm-systemtray-height funcall function #[0 "\300\207" [nil] 1] "System tray height.\n\nYou shall use the default value if using auto-hide minibuffer." :type integer exwm-systemtray-icon-gap #[0 "\300\207" [2] 1] "Gap between icons."] 8) #@22 The embedder window. (defvar exwm-systemtray--embedder-window nil (#$ . 3592)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable exwm-systemtray-background-color funcall function #[0 "\300\207" [nil] 1] "Background color of systemtray.\n\nThis should be a color, or nil for transparent background." :type (choice (const :tag "Transparent" nil) (color)) :initialize custom-initialize-default :set #[514 "\305\"\210\205D \205D\306!\307\310\311\312 \313\314\n \203\" \202#\315\"\316\f\317 & \"\210\307\310\320\312 #\"\210\307\310\321\312 #\"\210\322!\262\207" [exwm--connection exwm-systemtray--embedder-window xcb:CW:BackPixmap xcb:CW:BackPixel xcb:BackPixmap:ParentRelative set-default exwm--color->pixel xcb:-+request make-instance xcb:ChangeWindowAttributes :window :value-mask logior 0 :background-pixmap :background-pixel xcb:UnmapWindow xcb:MapWindow xcb:flush] 15 "\n\n(fn SYMBOL VALUE)"]] 10) #@20 Minimum icon size. (defconst exwm-systemtray--icon-min-size 16 (#$ . 4557)) #@19 The X connection. (defvar exwm-systemtray--connection nil (#$ . 4639)) #@16 The icon list. (defvar exwm-systemtray--list nil (#$ . 4716)) #@29 The selection owner window. (defvar exwm-systemtray--selection-owner-window nil (#$ . 4784)) #@27 Embed an icon. (fn ICON) (defalias 'exwm-systemtray--embed #[257 "\203\306\307 \203 \202\310\311$\210\312\n\313\n\314\315\316#\"\317#@\317\211\211\205\206\203>\306\320 \2038 \2029\310\311$\210\312\n\313\n\314\321\322 #\"\317#@ \262\323\324\325\"\326!\324\327\"\245_!\262\fW\203{\f\262\323\324\327\"\326!\324\325\"\245_!\262\203\234\306\330 \203\212 \202\213\310\311\324\325\"\324\327\"  &\210\210\331\n\314\332\333 \316 %\"\210\331\n\314\334\316 \335@\336\337\340  Z\341\245& \"\210\331\n\314\342\316 \343\344ABC#\345 \346\f\347\337& \"\210\331\n\314\350\316 \343D\351\344EFG#&\"\210\352 \204\331\n\314\353\354\337\355 \356H\357I\360J\361J& \"\210\324\362\"\262\211\203+\363\324\362\"K\"\337U?\262\202.\364\262\211\203O\203E\306\365 \203A \202B\310\311#\210\331\n\314\366\316 #\"\210\331\n\314\367\370 \371\372\314\373\316\374L\375@\376\337& \n\"%\"\210\314\377\345\346\201N&BMBM\201O \207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray-height exwm-systemtray--icon-min-size xcb:SetMode:Insert xcb-debug:message "%s%s: Try to embed #x%x\n" "" "exwm-systemtray--embed" xcb:-+reply xcb:-+request-unchecked make-instance xcb:xembed:get-_XEMBED_INFO :window nil "%s%s: Embed #x%x\n" xcb:GetGeometry :drawable round slot-value width float height "%s%s: Resize from %dx%d to %dx%d\n" xcb:-+request xcb:ChangeSaveSet :mode xcb:ReparentWindow :parent :x 0 :y 2 xcb:ConfigureWindow :value-mask logior :width :height :border-width xcb:ChangeWindowAttributes :event-mask exwm-workspace--minibuffer-own-frame-p xcb:GrabKey :owner-events :grab-window :modifiers :key :pointer-mode :keyboard-mode flags logand t "%s%s: Map the window\n" xcb:MapWindow xcb:xembed:SendEvent :destination :event xcb:marshal xcb:xembed:EMBEDDED-NOTIFY :time :embedder :version exwm-systemtray--icon exwm-systemtray--embedder-window xcb:ConfigWindow:Width xcb:ConfigWindow:Height xcb:ConfigWindow:BorderWidth xcb:CW:EventMask xcb:EventMask:ResizeRedirect xcb:EventMask:KeyPress xcb:EventMask:PropertyChange xcb:ModMask:Any xcb:Grab:Any xcb:GrabMode:Async xcb:xembed:MAPPED xcb:Time:CurrentTime exwm-systemtray--list :visible exwm-systemtray--refresh] 23 (#$ . 4883)]) #@29 Unembed an icon. (fn ICON) (defalias 'exwm-systemtray--unembed #[257 "\203\305\306 \203 \202\307\310$\210\311\n\312\313\314#\"\210\311\n\312\315\314\316 \317\320\321\320& \"\210\322\f\"\323 \207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm--root exwm-systemtray--list xcb-debug:message "%s%s: Unembed #x%x\n" "" "exwm-systemtray--unembed" xcb:-+request make-instance xcb:UnmapWindow :window xcb:ReparentWindow :parent :x 0 :y assq-delete-all exwm-systemtray--refresh] 13 (#$ . 7161)]) #@26 Refresh the system tray. (defalias 'exwm-systemtray--refresh #[0 "\203\306\307 \203 \202\310\311#\210\312\n\313\314\315 #\"\210\f\316 \211\203S\211@\317A\320\"\203L\312\n\313\321\315@\322\323\f&\"\210\324\317A\325\"\f#\262\326\262A\266\202\202\210\234\312\n\313\321\315 \322\327\"\323 \330H\fZ\331 & \"\266\211\203\203\312\n\313\332\315 #\"\210\266\333\n!\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray--embedder-window exwm-systemtray-icon-gap exwm-systemtray--list xcb-debug:message "%s%s: \n" "" "exwm-systemtray--refresh" xcb:-+request make-instance xcb:UnmapWindow :window nil slot-value visible xcb:ConfigureWindow :value-mask :x + width t logior 2 :width xcb:MapWindow xcb:flush xcb:ConfigWindow:X exwm-workspace--workareas exwm-workspace-current-index xcb:ConfigWindow:Width] 15 (#$ . 7696)]) #@54 Unembed icons on DestroyNotify. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-DestroyNotify #[514 "\203\303\304 \203 \202\305\306#\210\307\310!\311\"\210\211\312\313\314\"\n\"\205,\315\313\314\"!\262\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--list xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-DestroyNotify" make-instance xcb:DestroyNotify xcb:unmarshal assoc slot-value window exwm-systemtray--unembed] 8 (#$ . 8583)]) #@55 Unembed icons on ReparentNotify. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-ReparentNotify #[514 "\203\304\305 \203 \202\306\307#\210\310\311!\312\"\210\211\313\314\"\nU?\2056\315\313\316\" \"\2056\317\313\316\"!\262\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--embedder-window exwm-systemtray--list xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-ReparentNotify" make-instance xcb:ReparentNotify xcb:unmarshal slot-value parent assoc window exwm-systemtray--unembed] 8 (#$ . 9057)]) #@61 Resize the tray icon on ResizeRequest. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-ResizeRequest #[514 "\203\306\307 \203 \202\310\311#\210\312\313!\314\315\"\210\316\317\320\"\n\"A\211\262\205\255\211\321\322 #\266\211\321\323\324\317\323\"\325\317\322\"!\317 \322\"\245_!#\266\317\323\"\fW\203}\211\321\323\f#\266\211\321\322\324\317\322\"\325\317\323\"!\317 \323\"\245_!#\266\326 \312\327\330\317\320\"\331\332 !\"#\333 \317 \322\"Z\334\245\335\317\f\323\"\336\317\322\"& \"\266\337 \262\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--list exwm-systemtray-height exwm-systemtray--icon-min-size exwm-systemtray--connection xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-ResizeRequest" make-instance xcb:ResizeRequest nil xcb:unmarshal assoc slot-value window eieio-oset height width round float xcb:-+request xcb:ConfigureWindow :window :value-mask logior :y 2 :width :height exwm-systemtray--refresh xcb:ConfigWindow:Y xcb:ConfigWindow:Width xcb:ConfigWindow:Height] 22 (#$ . 9595)]) #@65 Map/Unmap the tray icon on PropertyNotify. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-PropertyNotify #[514 "\203\306\307 \203 \202\310\311#\210\312\313!\314\211\211\315\"\210\316\317\"\n=\205\250\316\320\" =\205\250\321\316\322\"\f\"A\211\262\205\250\323 \324 \312\325\326\316\322\"#\"\314#@\262\205\250\327\316\330\"!\"\331U?\262\203}\306\332 \203s \202t\310\311\316\322\"%\210\203\221\333 \312\334\326\316\322\"#\"\210\202\236\333 \312\335\326\316\322\"#\"\210\336\337#\266\340 \262\207" [exwm-debug exwm-debug-log-time-function xcb:Property:NewValue xcb:Atom:_XEMBED_INFO exwm-systemtray--list exwm-systemtray--connection xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-PropertyNotify" make-instance xcb:PropertyNotify nil xcb:unmarshal slot-value state atom assoc window xcb:-+reply xcb:-+request-unchecked xcb:xembed:get-_XEMBED_INFO :window logand flags 0 "%s%s: #x%x visible? %s\n" xcb:-+request xcb:MapWindow xcb:UnmapWindow eieio-oset visible exwm-systemtray--refresh xcb:xembed:MAPPED] 17 (#$ . 10664)]) #@46 Handle client messages. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-ClientMessage #[514 "\306\307!\310\211\311\"\210\312\313\"=\205s\312\211\314\"\315\"\262\316\234\262 \2038\317\320\n\2032\n \2023\321\322$\210 U\203P\323\324\234\f\"?\205s\325\324\234!\202s U\206sU\206s \205s\317\326\n\203l\n \202m\321\322$\210\310\262\207" [xcb:Atom:_NET_SYSTEM_TRAY_OPCODE exwm-debug exwm-debug-log-time-function xcb:systemtray:opcode:REQUEST-DOCK exwm-systemtray--list xcb:systemtray:opcode:BEGIN-MESSAGE make-instance xcb:ClientMessage nil xcb:unmarshal slot-value type data data32 1 xcb-debug:message "%s%s: opcode: %s\n" "" "exwm-systemtray--on-ClientMessage" assoc 2 exwm-systemtray--embed "%s%s: Unknown opcode message: %s\n" xcb:systemtray:opcode:CANCEL-MESSAGE] 11 (#$ . 11745)]) #@66 Forward all KeyPress events to Emacs frame. (fn DATA SYNTHETIC) (defalias 'exwm-systemtray--on-KeyPress #[514 "\203\304\305 \203 \202\306\307#\210\310\311 \312\"\313\314!\315\"\210\211\316\317#\266\320\n\313\321\322\323\324\325 \326\327\f\n\"& \"\266\330\n!\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection xcb:EventMask:NoEvent xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-KeyPress" frame-parameter selected-frame exwm-outer-id make-instance xcb:KeyPress xcb:unmarshal eieio-oset event xcb:-+request xcb:SendEvent :propagate 0 :destination :event-mask :event xcb:marshal xcb:flush] 18 (#$ . 12568)]) #@67 Reparent/Refresh the system tray in `exwm-workspace-switch-hook'. (defalias 'exwm-systemtray--on-workspace-switch #[0 "\203\306\307 \203 \202\310\311#\210\312 \204;\313 \210\314\n\315\316\317 \320\321\322\f\323\"!\324\325\326\327 \234\330\234#& \"\210\331 \207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray--embedder-window exwm-workspace--current exwm-workspace--workareas xcb-debug:message "%s%s: \n" "" "exwm-systemtray--on-workspace-switch" exwm-workspace--minibuffer-own-frame-p exwm-workspace--update-offsets xcb:-+request make-instance xcb:ReparentWindow :window :parent string-to-number frame-parameter window-id :x 0 :y - 3 exwm-systemtray--refresh exwm-workspace-current-index exwm-workspace--frame-y-offset exwm-systemtray-height] 15 (#$ . 13226)]) #@37 Reposition/Refresh the system tray. (defalias 'exwm-systemtray--refresh-all #[0 "\203\306\307 \203 \202\310\311#\210\312 \2044\313 \210\314\n\315\316\317 \320\f\321\322 \234\323\234#&\"\210\324 \207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray--embedder-window xcb:ConfigWindow:Y exwm-workspace--workareas xcb-debug:message "%s%s: \n" "" "exwm-systemtray--refresh-all" exwm-workspace--minibuffer-own-frame-p exwm-workspace--update-offsets xcb:-+request make-instance xcb:ConfigureWindow :window :value-mask :y - 3 exwm-systemtray--refresh exwm-workspace-current-index exwm-workspace--frame-y-offset exwm-systemtray-height] 13 (#$ . 14047)]) #@32 Initialize system tray module. (defalias 'exwm-systemtray--init #[0 "\3062l\203\307\310 \203 \202\311\312#\210\n\203\313\314!\210 \203'\313\315!\210\f\203/\313\316!\210 \2037\313\317!\210@\204CA\320 ]@\321 \322\323\n\324\"\325\"\210\326\n\327\"\210\330\n\327\"\210\331\n\332\n\333\334\335B#\"\325#@\323\336\"CU\204\337\n!\210\325\340\341!\210\342\306\325\"\210\210\343\n!\211\344\n\333\345\346\347\350\351D\352\347\353\347\354\355\356\355\357\347\360E\361\347\362F\363\355&\"\210\344\n\333\364\365\335B\366G&\"\210\344\n\333\367\370\347\371D\372H\373\374\333\375\376D\366G\335B\365& \n\"& \"\210\344\n\333\377\376\201V\201W%\"\210\344\n\333\201X\376\201VI%\"\266\343\n!\201YJ!\325\211\211\211\201Z \2035K\262\320 @Y\203'\320 @Z\2020\320 @Z\201[\245\262\202Q\201\\ \210L\262\201]MN\234\201^\234O@#\262\201_\201`\201a\"!\262\323\331\n\332\n\333\201b\201c\n#\"\325#@\201d\"\262\344\n\333\345\346\350\f\351 \352\347\353 \354\355\356@\357\347\360P\361\347\362\201eQ\203\246R\202\247\347S#\201fT\201g!\372U&\"\210\344\n\333\377\376\n\201V\201h%\"\266\201i\n!\210\201j\n\201k\201l#\210\201j\n\201m\201n#\210\201j\n\201o\201p#\210\201j\n\201q\201r#\210\201j\n\201s\201t#\210\201Z \204!\201j\n\201u\201v#\210\201w\201x\201y\"\210\201w\201z\201{\"\210\201w\201|\201{\"\210\201w\201}\201{\"\210\201~\201!\203b\201w\201\201{\"\210M\205k\201{ 0\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray--list exwm-systemtray--selection-owner-window exwm-systemtray--embedder-window --cl-block-exwm-systemtray--init-- xcb-debug:message "%s%s: \n" "" "exwm-systemtray--init" cl--assertion-failed (not exwm-systemtray--connection) (not exwm-systemtray--list) (not exwm-systemtray--selection-owner-window) (not exwm-systemtray--embedder-window) line-pixel-height xcb:connect set-process-query-on-exit-flag slot-value process nil xcb:xembed:init t xcb:systemtray:init xcb:-+reply xcb:-+request-unchecked make-instance xcb:GetSelectionOwner :selection owner xcb:disconnect warn "[EXWM] Other system tray detected" throw xcb:generate-id xcb:-+request xcb:CreateWindow :depth 0 :wid :parent :x :y :width 1 :height :border-width :class :visual :value-mask :override-redirect xcb:SetSelectionOwner :owner :time xcb:SendEvent :propagate :destination :event-mask :event xcb:marshal xcb:systemtray:-ClientMessage :window xcb:ewmh:set-_NET_WM_NAME exwm-systemtray-height exwm-systemtray--icon-min-size xcb:Atom:_NET_SYSTEM_TRAY_S0 xcb:Window:None exwm--root xcb:WindowClass:InputOnly xcb:CW:OverrideRedirect xcb:Time:CurrentTime xcb:EventMask:StructureNotify xcb:systemtray:ORIENTATION:HORZ exwm-systemtray-background-color exwm-workspace--minibuffer exwm-workspace--current exwm-workspace--workareas exwm-workspace-current-index exwm-workspace--frame-y-offset xcb:WindowClass:InputOutput xcb:CW:BackPixmap xcb:CW:BackPixel xcb:CW:EventMask xcb:BackPixmap:ParentRelative xcb:EventMask:SubstructureNotify :data "EXWM: exwm-systemtray--selection-owner-window" xcb:xembed:set-_NET_SYSTEM_TRAY_ORIENTATION exwm--color->pixel exwm-workspace--minibuffer-own-frame-p 2 exwm-workspace--update-offsets - 3 string-to-number frame-parameter window-id xcb:GetGeometry :drawable depth logior :background-pixmap :background-pixel "EXWM: exwm-systemtray--embedder-window" xcb:flush xcb:+event xcb:DestroyNotify exwm-systemtray--on-DestroyNotify xcb:ReparentNotify exwm-systemtray--on-ReparentNotify xcb:ResizeRequest exwm-systemtray--on-ResizeRequest xcb:PropertyNotify exwm-systemtray--on-PropertyNotify xcb:ClientMessage exwm-systemtray--on-ClientMessage xcb:KeyPress exwm-systemtray--on-KeyPress add-hook exwm-workspace-switch-hook exwm-systemtray--on-workspace-switch exwm-workspace--update-workareas-hook exwm-systemtray--refresh-all menu-bar-mode-hook tool-bar-mode-hook boundp exwm-randr-refresh-hook] 38 (#$ . 14751)]) #@29 Exit the systemtray module. (defalias 'exwm-systemtray--exit #[0 "\203\306\307 \203 \202\310\311#\210\n\205[\312\n\313\314\315 #\"\210\312\n\313\316\315 \317\f\320\321\322\321& \"\210\323\n!\210\324\211\324\211\325\326\327\"\210\325\330\331\"\210\325\332\331\"\210\325\333\331\"\210\334\335!\205[\325\335\331\"\207" [exwm-debug exwm-debug-log-time-function exwm-systemtray--connection exwm-systemtray--embedder-window exwm--root exwm-systemtray--list xcb-debug:message "%s%s: \n" "" "exwm-systemtray--exit" xcb:-+request make-instance xcb:UnmapWindow :window xcb:ReparentWindow :parent :x 0 :y xcb:disconnect nil remove-hook exwm-workspace-switch-hook exwm-systemtray--on-workspace-switch exwm-workspace--update-workareas-hook exwm-systemtray--refresh-all menu-bar-mode-hook tool-bar-mode-hook boundp exwm-randr-refresh-hook exwm-systemtray--selection-owner-window] 13 (#$ . 18730)]) #@38 Enable system tray support for EXWM. (defalias 'exwm-systemtray-enable #[0 "\203\302\303 \203 \202\304\305#\210\306\307\310\"\210\306\311\312\"\207" [exwm-debug exwm-debug-log-time-function xcb-debug:message "%s%s: \n" "" "exwm-systemtray-enable" add-hook exwm-init-hook exwm-systemtray--init exwm-exit-hook exwm-systemtray--exit] 4 (#$ . 19635)]) (provide 'exwm-systemtray)