aboutsummaryrefslogtreecommitdiff
path: root/.emacs.local.d/modes/org-pomodoro.el
diff options
context:
space:
mode:
authorRaul Benencia <rul@kalgan.cc>2021-04-22 19:18:07 -0700
committerRaul Benencia <rul@kalgan.cc>2021-04-22 19:18:07 -0700
commitdc68d5e2b886e7308430e692b8f5d4e6777269f5 (patch)
tree91ffea9623c9a72de839b482ebdbd700fa3f5283 /.emacs.local.d/modes/org-pomodoro.el
parenteca0355dce1439af91e8249c0d962707bef691f6 (diff)
emacs: clean org-pomodoro
Diffstat (limited to '.emacs.local.d/modes/org-pomodoro.el')
-rw-r--r--.emacs.local.d/modes/org-pomodoro.el34
1 files changed, 0 insertions, 34 deletions
diff --git a/.emacs.local.d/modes/org-pomodoro.el b/.emacs.local.d/modes/org-pomodoro.el
deleted file mode 100644
index e8df41f..0000000
--- a/.emacs.local.d/modes/org-pomodoro.el
+++ /dev/null
@@ -1,34 +0,0 @@
-;; Elpa packages: org-pomodoro
-
-(use-package org-pomodoro
- :ensure t
- :commands (org-pomodoro)
- :hook
- (org-pomodoro-started . (lambda () (notifications-notify
- :title "Pomodoro"
- :body "Let's focus for 25 minutes!"
- :app-icon "~/.emacs.d/img/001-food-and-restaurant.png")))
- (org-pomodoro-finished . (lambda () (notifications-notify
- :title "Pomodoro"
- :body "Well done! Take a break."
- :app-icon "~/.emacs.d/img/004-beer.png")))
- :config
- (setq org-pomodoro-length 25)
- (setq org-pomodoro-short-break-length 5)
- (setq org-pomodoro-long-break-length 15)
- (setq org-pomodoro-play-sounds 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")))
nihil fit ex nihilo