hiro/pomm.el
1
0
Fork 0
mirror of https://github.com/vale981/pomm.el synced 2025-03-04 17:21:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: use transient instead of y-or-n-p

Browse source
This commit is contained in:
SqrtMinusOne 2022-08-14 17:21:39 +05:00
parent 633540c7b5
commit 98e9904a98
2 changed files with 28 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
pomm-third-time.el
View file

@ -186,11 +186,10 @@ If the variable is nil, the function does nothing."
(alist-get 'context pomm--state) "")
nil pomm-third-time-csv-history-file 'append 1)))
(defun pomm-third-time-reset ()
"Reset the Third Time timer."
(interactive)
(when (y-or-n-p "Are you sure you want to reset the Third Time timer? ")
(pomm-third-time--do-reset)))
(transient-define-prefix pomm-third-time-reset ()
["Are you sure you want to reset the Third Time timer?"
("y" "Yes" (lambda () (interactive) (pomm-third-time--do-reset)))
("n" "No" transient-quit-one)])
(defun pomm-third-time--dispatch-current-sound ()
"Dispatch an appropriate sound for the current state of the timer."
@ -373,13 +372,15 @@ Take a look at the `pomm-third-time' function for more details."
(unless pomm-third-time--timer
(setq pomm-third-time--timer (run-with-timer 0 1 'pomm-third-time--on-tick))))
(defun pomm-third-time-stop ()
"Stop the Third Time timer."
(interactive)
(pcase (alist-get 'status pomm-third-time--state)
('stopped (message "The timer is already stopped!"))
('running
(when (y-or-n-p "This will reset the accumulated break time. Continue? ")
(defun pomm-third-time--running-p ()
"Check if the timer is running."
(eq (alist-get 'status pomm-third-time--state) 'running))
(transient-define-prefix pomm-third-time-stop ()
["This will reset the accumulated break time. Continue?"
("y" "Yes" (lambda () (interactive)
(unless (pomm-third-time--can-stop-p)
(user-error "The timer is not running!"))
(pomm-third-time--store-current-to-history)
(setf (alist-get 'status pomm-third-time--state) 'stopped
(alist-get 'current pomm-third-time--state) nil
@ -387,7 +388,8 @@ Take a look at the `pomm-third-time' function for more details."
(time-convert nil 'integer))
(run-hooks 'pomm-third-time-on-status-changed-hook)
(when pomm-reset-context-on-iteration-end
(setf (alist-get 'context pomm-third-time--state) nil))))))
(setf (alist-get 'context pomm-third-time--state) nil))))
("n" "No" transient-quit-one)])
(defun pomm-third-time-switch ()
"Toggle work/break in the Third Time timer."
@ -616,6 +618,8 @@ The class doesn't actually have any value, but this is necessary for transient."
["Commands"
:class transient-row
("s" "Start the timer" pomm-third-time-start :transient t)
;; XXX I tried to use the `:if' predicate here, but unfortunately
;; visibilty doesn't refresh with `:transient t'
("S" "Stop the timer" pomm-third-time-stop :transient t)
("b" "Switch work/break" pomm-third-time-switch :transient t)
("R" "Reset" pomm-third-time-reset :transient t)

9
pomm.el
View file

@ -312,11 +312,10 @@ variable doesn't exist, function does nothing."
(or (alist-get 'context pomm--state) ""))
nil pomm-csv-history-file 'append 1)))
(defun pomm-reset ()
"Reset the Pomodoro timer."
(interactive)
(when (y-or-n-p "Are you sure you want to reset the Pomodoro timer? ")
(pomm--do-reset)))
(transient-define-prefix pomm-reset ()
["Are you sure you want to reset the Pomodoro timer?"
("y" "Yes" (lambda () (interactive) (pomm--do-reset)))
("n" "No" transient-quit-one)])
(defun pomm--maybe-play-sound (kind)
"Play a sound of KIND.