river: tracking indicator fix

1 files changed, 10 insertions, 2 deletions

diff --git a/lib/eos/jao-tracking.el b/lib/eos/jao-tracking.el
index 26404a4..23bd099 100644
--- a/lib/eos/jao-tracking.el
+++ b/lib/eos/jao-tracking.el
@@ -85,10 +85,18 @@
   `((t :foreground ,jao-tracking-bkg :background ,jao-tracking-bkg)) ""
   :group 'faces)
 
+(defvar jao-tracking--pipe
+  (let ((name "/tmp/emacs.status"))
+    (unless (file-exists-p name)
+      (shell-command (format "mkfifo %s" name name)))
+    name))
+
 (defun jao-tracking-set-log (v)
   (when (member window-system '(x))
     (x-change-window-property "_EMACS_LOG" v nil nil nil nil 0))
-  (unless jao-wayland-enabled
+  (if jao-wayland-enabled
+      (let ((inhibit-message t))
+        (shell-command (format "echo \"%s\" > %s" v jao-tracking--pipe)))
     (let* ((action (if (string-blank-p v) "remove" "add"))
            (cmd (format "wmctrl -r emacs -b %s,demands_attention" action)))
       (shell-command-to-string cmd))))
@@ -136,7 +144,7 @@
                (let ((b (car tracking-buffers)))
                  (if (eq 0 n)
                      (tracking-next-buffer)
-                   (jao-afio--goto-scratch)
+                   (jao-afio-goto-scratch)
                    (when b (pop-to-buffer b))
                    (tracking-remove-visible-buffers))))
               (jao-tracking--start-frame