maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add system tray support

Browse source 
* exwm-systemtray.el: New module adds a simple system tray (using the X11
System Tray protocol).

* exwm-workspace.el (exwm-workspace-switch-hook, exwm-workspace-switch):
New hook run after switching workspace.
This commit is contained in:
Chris Feng 2016-02-19 11:02:37 +08:00
parent 3f7722079c
commit bfd43feb49
2 changed files with 377 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
exwm-workspace.el
View file

@ -23,9 +23,6 @@
;; This module adds workspace support for EXWM.
;; Todo:
;; + Add system tray support.
;;; Code:
(require 'exwm-core)
@ -141,6 +138,9 @@ workspace frame."
:stack-mode xcb:StackMode:Above))
(set-frame-width exwm-workspace--minibuffer width nil t)))
(defvar exwm-workspace-switch-hook nil
"Normal hook run after switching workspace.")
;;;###autoload
(defun exwm-workspace-switch (index &optional force)
"Switch to workspace INDEX. Query for INDEX if it's not specified.
@ -203,7 +203,8 @@ The optional FORCE option is for internal use only."
(xcb:+request exwm--connection
(make-instance 'xcb:ewmh:set-_NET_CURRENT_DESKTOP
:window exwm--root :data index))
(xcb:flush exwm--connection)))))
(xcb:flush exwm--connection))
(run-hooks 'exwm-workspace-switch-hook))))
;;;###autoload
(defun exwm-workspace-move-window (index &optional id)