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