From d22e6740d761bd2c67e928579502a6c2816516a9 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Mon, 19 Feb 2018 00:04:27 +0800 Subject: Add customization settings ; Also fix documentations. --- exwm-systemtray.el | 34 ++++++++++++++++++++++------------ 1 file changed, 22 insertions(+), 12 deletions(-) (limited to 'exwm-systemtray.el') diff --git a/exwm-systemtray.el b/exwm-systemtray.el index 33e97623c0b2..5377ef8ed617 100644 --- a/exwm-systemtray.el +++ b/exwm-systemtray.el @@ -50,22 +50,38 @@ (owner :initarg :owner :type xcb:WINDOW)) ;new slot :documentation "A systemtray client message.") -;; GTK icons require at least 16 pixels to show normally. -(defconst exwm-systemtray--icon-min-size 16 "Minimum icon size.") +(defgroup exwm-systemtray nil + "System tray." + :version "25.3" + :group 'exwm) + +(defcustom exwm-systemtray-height nil + "System tray height. -(defvar exwm-systemtray-height nil "System tray height. +You shall use the default value if using auto-hide minibuffer." + :type 'integer) -You shall use the default value if using auto-hide minibuffer.") +(defcustom exwm-systemtray-icon-gap 2 + "Gap between icons." + :type 'integer) -(defvar exwm-systemtray-icon-gap 2 "Gap between icons.") +;; GTK icons require at least 16 pixels to show normally. +(defconst exwm-systemtray--icon-min-size 16 "Minimum icon size.") (defvar exwm-systemtray--connection nil "The X connection.") + +(defvar exwm-systemtray--embedder nil "The embedder window.") + (defvar exwm-systemtray--list nil "The icon list.") + (defvar exwm-systemtray--selection-owner-window nil "The selection owner window.") -(defvar exwm-systemtray--embedder nil "The embedder window.") (defvar exwm-workspace--current) +(defvar exwm-workspace--minibuffer) +(defvar exwm-workspace--workareas) +(defvar exwm-workspace-current-index) +(defvar xcb:Atom:_NET_SYSTEM_TRAY_S0) (declare-function exwm-workspace--current-height "exwm-workspace.el") (declare-function exwm-workspace--current-width "exwm-workspace.el") (declare-function exwm-workspace--minibuffer-own-frame-p "exwm-workspace.el") @@ -304,9 +320,6 @@ You shall use the default value if using auto-hide minibuffer.") :event (xcb:marshal obj exwm-systemtray--connection)))) (xcb:flush exwm-systemtray--connection)) -(defvar exwm-workspace--workareas) -(defvar exwm-workspace-current-index) - (defun exwm-systemtray--on-workspace-switch () "Reparent/Refresh the system tray in `exwm-workspace-switch-hook'." (unless (exwm-workspace--minibuffer-own-frame-p) @@ -339,9 +352,6 @@ You shall use the default value if using auto-hide minibuffer.") (defalias 'exwm-systemtray--on-struts-update #'exwm-systemtray--on-randr-refresh) -(defvar xcb:Atom:_NET_SYSTEM_TRAY_S0) -(defvar exwm-workspace--minibuffer) - (cl-defun exwm-systemtray--init () "Initialize system tray module." (cl-assert (not exwm-systemtray--connection)) -- cgit 1.4.1