summaryrefslogtreecommitdiffhomepage
path: root/lib/eos/jao-tracking.el
diff options
context:
space:
mode:
Diffstat (limited to 'lib/eos/jao-tracking.el')
-rw-r--r--lib/eos/jao-tracking.el12
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