From c6caa3276f25e4b003f367a3913071a48b4a90cc Mon Sep 17 00:00:00 2001 From: Gergely Polonkai Date: Thu, 11 Mar 2021 17:48:20 +0100 Subject: [PATCH] [Bugfix] Fix org-clock-waybar--get-tooltip MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The functions it calls don’texist. --- org-clock-waybar.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-clock-waybar.el b/org-clock-waybar.el index 0ff80cc..e81221c 100644 --- a/org-clock-waybar.el +++ b/org-clock-waybar.el @@ -72,13 +72,13 @@ "Get the category of TASK." (when task (get-text-property 0 'org-category task))) -(defun org-clock-waybar-tooltip () +(defun org-clock-waybar--get-tooltip () "The default tooltip to send to waybar." (when org-clock-current-task (let ((clocked-time (org-clock-get-clocked-time))) (format "%s: %s (%s)" - (org-clock-waybar-alt) - (org-clock-waybar-text) + (org-clock-waybar--get-task-category) + (org-clock-waybar--get-task-title) (org-duration-from-minutes clocked-time))))) (defun org-clock-waybar--get-clocked-task-json (&optional clocking-out) @@ -94,7 +94,7 @@ before setting `org-clock-current-task' to nil." (let* ((task (if clocking-out nil org-clock-current-task)) (category (org-clock-waybar--get-task-title task)) (title (org-clock-waybar--get-task-category task)) - (tooltip (org-clock-waybar-tooltip)) + (tooltip (org-clock-waybar--get-tooltip)) (output (json-new-object))) (setq output (json-add-to-object output