jjanzen/pomodoro-mode
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

initial commit

Browse source
This commit is contained in:
jjanzen 2025-03-10 13:24:27 -05:00
commit 92f79c78e1
1 changed files with 61 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
pomodoro-mode.el Normal file
View file

@ -0,0 +1,61 @@
;; -*- lexical-binding: t -*-
(defvar pomodoro-start-time 0)
(defvar pomodoro-state 'working)
(defconst pomodoro-work-time (* 25 60))
(defconst pomodoro-break-time (* 5 60))
(defconst pomodoro-work-symbol "🍅")
(defconst pomodoro-break-symbol "🥫")
(defgroup pomodoro nil
"Pomodoro timer"
:group 'convenience)
(defun pomodoro-get-status-string ()
(defvar pomodoro-curr-time)
(defvar pomodoro-symbol)
(defvar pomodoro-delta)
(defvar pomodoro-max-time)
(defvar pomodoro-minutes)
(defvar pomodoro-seconds)
(setq pomodoro-curr-time (floor (float-time)))
(setq pomodoro-delta (- pomodoro-curr-time pomodoro-start-time))
(cond ((equal pomodoro-state 'working)
(setq pomodoro-symbol pomodoro-work-symbol)
(setq pomodoro-max-time pomodoro-work-time))
((equal pomodoro-state 'break)
(setq pomodoro-symbol pomodoro-break-symbol)
(setq pomodoro-max-time pomodoro-break-time))
(t
(setq pomodoro-symbol "")
(setq pomodoro-max-time 0)))
(if (>= pomodoro-delta pomodoro-max-time)
(setq pomodoro-delta 0)
(setq pomodoro-delta (- pomodoro-max-time pomodoro-delta)))
(setq pomodoro-minutes (/ pomodoro-delta 60))
(setq pomodoro-seconds (% pomodoro-delta 60))
(if (= pomodoro-delta 0)
(progn
(cond ((equal pomodoro-state 'working)
(setq pomodoro-state 'break))
((equal pomodoro-state 'break)
(setq pomodoro-state 'working))
(t (message "should not occur")))
(setq pomodoro-start-time (floor (float-time)))))
(format " %s (%02d:%02d)" pomodoro-symbol pomodoro-minutes pomodoro-seconds))
(progn
(setq pomodoro-start-time (- (floor (float-time)) 100))
(pomodoro-get-status-string))
(define-minor-mode pomodoro-mode
"run a pomodoro timer"
:init-value nil
:lighter (:eval (pomodoro-get-status-string)))
(define-globalized-minor-mode global-pomodoro-mode
pomodoro-mode pomodoro-mode
(setq pomodoro-state 'working)
(setq pomodoro-start-time (floor (float-time))))