flyspell->spell-fu and finally fixed exwm last workspace

1 files changed, 7 insertions, 3 deletions

diff --git a/emacs/inits/02-modeline.el b/emacs/inits/02-modeline.el
index f362af1..0d61cb3 100644
--- a/emacs/inits/02-modeline.el
+++ b/emacs/inits/02-modeline.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2020-03-24 10:15:48 (tslil@bison)>
+;; Time-stamp: <2020-04-13 14:34:03 (tslil@bison)>
 
 ;; -----------------------------------------------------------------------------
 ;; Battery status and CPU temperature
@@ -7,7 +7,7 @@
 (defvar sys-status-cpu-temp-threshold "45")
 
 (defun linux-sys-status ()
-  (let ((bat-s (string-trim (shell-command-to-string "~/bin/battery")))
+  (let ((bat-s (string-trim (shell-command-to-string "~/.local/bin/battery")))
         (temp-s (if (not (file-exists-p "/sys/class/thermal/thermal_zone1/temp")) ""
                   (with-temp-buffer
                     (insert-file-contents "/sys/class/thermal/thermal_zone1/temp")
@@ -44,6 +44,7 @@
           display-time-string
           (sys-status sys-status)
           (:eval (mortality))
+          (:eval (exwm-workspace-lighter))
           " " (:eval (abbreviate-file-name default-directory))))
   ;; We redefine this function to centre the text
   ;; Is there a better way?
@@ -53,7 +54,10 @@
       (insert (format-mode-line minibuffer-line-format 'minibuffer-line))
       (setq fill-column (frame-width))
       (center-line)))
-  (minibuffer-line-mode 1))
+  (minibuffer-line-mode 1)
+
+  (when (symbolp exwm-workspace-switch-hook)
+    (push #'minibuffer-line--update exwm-workspace-switch-hook)))
 
 ;; really want to hook buffer changes at all, and focus
 (add-hook 'minibuffer-exit-hook #'minibuffer-line--update)