diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2022-11-04T00·00+0000 |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2022-11-09T00·00+0000 |
| commit | f93bfb21f76158e074eff388f7bda0be8511930c (patch) | |
| tree | 2c228239cb4bf35314f5e87876d7fe5b88ad0c2d | |
| parent | 07b9b2ccf83ec8c96098faa30810058ac3befa67 (diff) | |
* exwm-systemtray.el (exwm-systemtray--init): Set EWMH window type to dock.
| -rw-r--r-- | exwm-systemtray.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/exwm-systemtray.el b/exwm-systemtray.el index 841b80f00db5..8b6360e9998f 100644 --- a/exwm-systemtray.el +++ b/exwm-systemtray.el @@ -1,7 +1,7 @@ ;;; exwm-systemtray.el --- System Tray Module for -*- lexical-binding: t -*- ;;; EXWM -;; Copyright (C) 2016-2021 Free Software Foundation, Inc. +;; Copyright (C) 2016-2022 Free Software Foundation, Inc. ;; Author: Chris Feng <chris.w.feng@gmail.com> @@ -30,6 +30,7 @@ ;;; Code: +(require 'xcb-ewmh) (require 'xcb-icccm) (require 'xcb-xembed) (require 'xcb-systemtray) @@ -599,6 +600,11 @@ indicate how to support actual transparency." (make-instance 'xcb:ewmh:set-_NET_WM_NAME :window id :data "EXWM: exwm-systemtray--embedder-window")) + ;; Set _NET_WM_WINDOW_TYPE. + (xcb:+request exwm-systemtray--connection + (make-instance 'xcb:ewmh:set-_NET_WM_WINDOW_TYPE + :window id + :data (vector xcb:Atom:_NET_WM_WINDOW_TYPE_DOCK))) ;; Set _NET_SYSTEM_TRAY_VISUAL. (xcb:+request exwm-systemtray--connection (make-instance 'xcb:xembed:set-_NET_SYSTEM_TRAY_VISUAL |