From 83477573a1dd63cf24b2b3bf9d2890bb49945bb0 Mon Sep 17 00:00:00 2001 From: coolneng Date: Tue, 12 Apr 2022 20:25:18 +0200 Subject: [PATCH] Add a function that returns the pomodoro state --- +org.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/+org.el b/+org.el index fee0ae4..66cbd1c 100644 --- a/+org.el +++ b/+org.el @@ -91,3 +91,19 @@ :empty-lines 1))) ;; Fix org-chef scraping (setq org-chef-prefer-json-ld t) +;; Get the current state of org-pomodoro +(defun bergheim/org-clock-status () + "Return the org time status - including any pomodoro activity" + (if (and (featurep 'org-pomodoro) (org-pomodoro-active-p)) + (cl-case org-pomodoro-state + (:pomodoro + (format "%d min" (/ (org-pomodoro-remaining-seconds) 60))) + (:short-break + (format "Short break: %d min" (/ (org-pomodoro-remaining-seconds) 60))) + (:long-break + (format "Long break: %d min" (/ (org-pomodoro-remaining-seconds) 60))) + (:overtime + (format "Overtime! %d min" (/ (org-pomodoro-remaining-seconds) 60)))) + (if (org-clocking-p) + (format "%s" (org-duration-from-minutes (org-clock-get-clocked-time))) + "")))