From 66f155b7f0c9ec87994d87970d65afe874a4db66 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 10 Nov 2022 21:33:45 +0000 Subject: configurable chats workspace number --- lib/eos/jao-tracking.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lib/eos') diff --git a/lib/eos/jao-tracking.el b/lib/eos/jao-tracking.el index f695b3e..fdb156b 100644 --- a/lib/eos/jao-tracking.el +++ b/lib/eos/jao-tracking.el @@ -137,13 +137,14 @@ (defun jao-tracking-next-buffer () (interactive) (if jao-tracking-use-scratch - (let ((n (jao-afio-frame-no))) - (unless (eq 0 n) (setq jao-tracking--start-frame n)) + (let ((k (if (numberp jao-tracking-use-scratch) jao-tracking-use-scratch 0)) + (n (jao-afio-frame-no))) + (unless (eq k n) (setq jao-tracking--start-frame n)) (cond (tracking-buffers (let ((bs tracking-buffers)) - (if (eq 0 n) + (if (eq k n) (tracking-next-buffer) - (jao-afio-goto-scratch) + (jao-afio-goto-nth k) (when (and (car bs) (not (memq (current-buffer) bs))) (pop-to-buffer (car bs))) (tracking-remove-visible-buffers)))) -- cgit v1.2.3