From b15702ecef80740f8d2284eb5afad7e62028a1ef Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Fri, 24 Apr 2020 17:55:37 -0700
Subject: Switched to battery applet when under EXWM, fixed workspaces (final?)

---
 emacs/inits/00-exwm.el | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'emacs/inits/00-exwm.el')

diff --git a/emacs/inits/00-exwm.el b/emacs/inits/00-exwm.el
index 7735629..4d503f5 100644
--- a/emacs/inits/00-exwm.el
+++ b/emacs/inits/00-exwm.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2020-04-21 19:17:12 (tslil@bison)>
+;; Time-stamp: <2020-04-24 17:52:54 (tslil@bison)>
 
 (defun banish-rat ()
   (interactive)
@@ -72,12 +72,10 @@
   (defun exwm-workspace-lighter ()
     (format " @%d (*%d)" exwm-workspace-current-index exwm-workspace-last-index))
 
-  (defun exwm-store-workspace-last-index (next)
-    (when (/= next exwm-workspace-current-index)
-      (setq exwm-workspace-last-index exwm-workspace-current-index)))
+  (defun exwm-store-workspace-last-index-switch (frame-or-index &optional force)
+    (setq exwm-workspace-last-index exwm-workspace-current-index))
 
-  (advice-add 'exwm-workspace-switch-create :before #'exwm-store-workspace-last-index)
-  ;; (advice-add 'exwm-workspace-switch :before #'exwm-store-workspace-last-index)
+  (advice-add 'exwm-workspace-switch :before #'exwm-store-workspace-last-index-switch)
 
   (defun exwm-sanitise-workspace-last-index ()
     (when (> (1+ exwm-workspace-last-index) (exwm-workspace--count))
@@ -117,6 +115,7 @@
 
   (require 'exwm-systemtray)
   (exwm-systemtray-enable)
+  (setq exwm-systemtray-height 24)
 
   ;; -------------------------------------------------------------------
   ;; RandR
-- 
cgit v1.2.3