Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-23 19:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

* exwm-systemtray.el (exwm-systemtray--init): Set EWMH window type to dock.

Browse source
This commit is contained in:
Adrián Medraño Calvo 2022-11-04 00:00:00 +00:00
parent 07b9b2ccf8
commit f93bfb21f7
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
exwm-systemtray.el
View file

@ -1,7 +1,7 @@
;;; exwm-systemtray.el --- System Tray Module for -*- lexical-binding: t -*- ;;; exwm-systemtray.el --- System Tray Module for -*- lexical-binding: t -*-
;;; EXWM ;;; 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> ;; Author: Chris Feng <chris.w.feng@gmail.com>
@ -30,6 +30,7 @@
;;; Code: ;;; Code:
(require 'xcb-ewmh)
(require 'xcb-icccm) (require 'xcb-icccm)
(require 'xcb-xembed) (require 'xcb-xembed)
(require 'xcb-systemtray) (require 'xcb-systemtray)
@ -599,6 +600,11 @@ indicate how to support actual transparency."
(make-instance 'xcb:ewmh:set-_NET_WM_NAME (make-instance 'xcb:ewmh:set-_NET_WM_NAME
:window id :window id
:data "EXWM: exwm-systemtray--embedder-window")) :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. ;; Set _NET_SYSTEM_TRAY_VISUAL.
(xcb:+request exwm-systemtray--connection (xcb:+request exwm-systemtray--connection
(make-instance 'xcb:xembed:set-_NET_SYSTEM_TRAY_VISUAL (make-instance 'xcb:xembed:set-_NET_SYSTEM_TRAY_VISUAL