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

refactor

Browse source
This commit is contained in:
jjanzen 2025-03-17 11:09:42 -05:00
parent 925d09422d
commit ca655aef50
1 changed files with 16 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
pomodoro-mode.el
View file

@ -80,42 +80,22 @@
(defun pomodoro-get-status-string () (defun pomodoro-get-status-string ()
"Get the status string for the pomodoro timer. May update the state if necessary." "Get the status string for the pomodoro timer. May update the state if necessary."
(let ((curr-time) ;; the current Unix time (let* ((curr-time (floor (float-time)))
(symbol) ;; the symbol to be displayed (delta (- curr-time pomodoro-start-time))
(delta) ;; the difference in time (symbol (if (equal pomodoro-state 'working)
(max-time) ;; the maximum time that can be represented in the current state pomodoro-work-symbol
(minutes) ;; the number of minutes to display pomodoro-break-symbol))
(seconds)) ;; the number of seconds to display (max-time (if (equal pomodoro-state 'working)
pomodoro-work-time
pomodoro-break-time))
;; check how far into the countdown we are (delta-trunc (if (>= delta max-time)
(setq curr-time (floor (float-time))) max-time
(setq delta (- curr-time pomodoro-start-time)) delta))
(cond ((equal pomodoro-state 'working) (time-value (- max-time delta-trunc))
(setq symbol pomodoro-work-symbol) (minutes (/ time-value 60))
(setq max-time pomodoro-work-time)) (seconds (% time-value 60)))
((equal pomodoro-state 'break) (if (<= time-value 0)
(setq symbol pomodoro-break-symbol) (pomodoro-toggle-state))
(setq max-time pomodoro-break-time))
(t
(setq symbol "")
(setq max-time 0)))
(if (>= delta max-time)
(setq delta max-time))
(setq delta (- max-time delta))
;; Get the time in minutes and seconds
(setq minutes (/ delta 60))
(setq seconds (% delta 60))
;; Changing state here kinda violates the single-responsibility principle,
;; but this also prevents me from needing to work with timers which might
;; just be worse that a function that does more than one thing.
(if (<= delta 0)
(progn
(setq delta 0)
(pomodoro-toggle-state)))
(format " %s (%02d:%02d)" symbol minutes seconds))) (format " %s (%02d:%02d)" symbol minutes seconds)))
(define-minor-mode pomodoro-local-mode (define-minor-mode pomodoro-local-mode