From 35aab378bc0e53a35ff50dac469bf7c31ad29ce8 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 6 Apr 2024 15:51:29 +0100 Subject: tracking nits --- lib/eos/jao-tracking.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/lib/eos/jao-tracking.el b/lib/eos/jao-tracking.el index da01018..2af868c 100644 --- a/lib/eos/jao-tracking.el +++ b/lib/eos/jao-tracking.el @@ -1,6 +1,6 @@ ;; jao-minibuffer-tracking.el --- Tracking notifications -*- lexical-binding: t; -*- -;; Copyright (C) 2021, 2022 jao +;; Copyright (C) 2021, 2022, 2024 jao ;; Author: jao ;; Keywords: convenience @@ -159,12 +159,21 @@ (tracking-next-buffer)) (jao-tracking-update-minibuffer)) -;;;###autoload -(defun jao-tracking-setup () +(defun jao-tracking-add-to-minibuffer () + (interactive) (jao-minibuffer-add-variable 'jao-tracking-string -10) (add-variable-watcher 'tracking-mode-line-buffers #'jao-tracking-echo) - ;; since we're using the minibuffer, forget the mode line - (advice-add #'tracking-mode :override (lambda (&optional _) (interactive))) + (advice-add #'tracking-mode :override (lambda (&optional _) (interactive)))) + +(defun jao-tracking-remove-from-minibuffer () + (interactive) + (jao-minibuffer-remove-variable 'jao-tracking-string) + (remove-variable-watcher 'tracking-mode-line-buffers #'jao-tracking-echo) + (advice-remove #'tracking-mode (lambda (&optional _) (interactive)))) + +;;;###autoload +(defun jao-tracking-setup (&optional minibuffer) + (when minibuffer (jao-tracking-add-to-minibuffer)) (add-hook 'jao-afio-switch-hook #'jao-tracking--remove-visible-buffers) (global-set-key (kbd "C-c C-SPC") #'jao-tracking-next-buffer) (define-key tracking-mode-map (kbd "C-c C-SPC") #'jao-tracking-next-buffer)) -- cgit v1.2.3