From a0adbca81514fdd643e99ec58aed2646756e0097 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 2 Sep 2022 02:38:21 +0100 Subject: river: tracking indicator fix --- lib/eos/jao-tracking.el | 12 ++++++++++-- 1 file 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 -- cgit v1.2.3