From 3d72d2bf47ca301f1ca949eb101c8a7d0f6d88c6 Mon Sep 17 00:00:00 2001 From: Raul Benencia Date: Wed, 22 Apr 2020 13:38:35 -0700 Subject: org-pomodoro --- .emacs.local.d/modes/org-pomodoro.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 .emacs.local.d/modes/org-pomodoro.el (limited to '.emacs.local.d') diff --git a/.emacs.local.d/modes/org-pomodoro.el b/.emacs.local.d/modes/org-pomodoro.el new file mode 100644 index 0000000..b0bdb35 --- /dev/null +++ b/.emacs.local.d/modes/org-pomodoro.el @@ -0,0 +1,22 @@ +;; Elpa packages: org-pomodoro + +(use-package org-pomodoro + :ensure t + :commands (org-pomodoro) + :config + (setq alert-user-configuration (quote ((((:category . "org-pomodoro")) libnotify nil))))) + +(defun my/org-pomodoro-text-time () + "Return status info about org-pomodoro and if org-pomodoro is not running, try to print info about org-clock. + If either org-pomodoro or org-clock aren't active, print \"No Active Task \" " + (interactive) + (cond ((equal :none org-pomodoro-state) + (if (org-clock-is-active) + (format "Clocked task: %d minutes - %s" + (org-clock-get-clocked-time) (substring-no-properties org-clock-heading) + "No Active task"))) + ((equal :pomodoro org-pomodoro-state) + (format "%d - Pomodoro: %d minutes - %s" + org-pomodoro-count (/ (org-pomodoro-remaining-seconds) 60) (substring-no-properties org-clock-heading))) + ((equal :short-break org-pomodoro-state) "Short Break") + ((equal :long-break org-pomodoro-state) "Long Break"))) -- cgit v1.2.3