contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Use newlines in alerts

This commit is contained in:
contrapunctus 2022-02-13 13:24:00 +05:30
parent 267f17e57d
commit 6553346be1
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/chronometrist-third.el
View File

@ -165,9 +165,9 @@ and stopped when they clock in."
(setq chronometrist-third-break-time (if (> new-break-time 0) new-break-time 0))
(alert
(if (zerop chronometrist-third-break-time)
(format "You have used up all %s of your break time (%s break)"
(format "You have used up all %s of your break time\n(%s break)"
old-break-time used-break-duration-string)
(format "You have used %s of your break time (%s left)"
(format "You have used %s of your break time\n(%s left)"
used-break-duration-string
(format-seconds chronometrist-third-duration-format chronometrist-third-break-time)))))))
;; clock-in:1 ends here
@ -180,7 +180,7 @@ break time is up."
(let* ((latest-work-duration (chronometrist-interval (chronometrist-latest-record (chronometrist-active-backend))))
(break-time-increment (/ latest-work-duration chronometrist-third-divisor)))
(cl-incf chronometrist-third-break-time break-time-increment)
(alert (format "You have gained %s of break time (%s total)"
(alert (format "You have gained %s of break time\n(%s total)"
(format-seconds chronometrist-third-duration-format break-time-increment)
(format-seconds chronometrist-third-duration-format chronometrist-third-break-time)))
;; start alert timer(s)

6
elisp/chronometrist-third.org
View File

@ -191,9 +191,9 @@ and stopped when they clock in."
(setq chronometrist-third-break-time (if (> new-break-time 0) new-break-time 0))
(alert
(if (zerop chronometrist-third-break-time)
(format "You have used up all %s of your break time (%s break)"
(format "You have used up all %s of your break time\n(%s break)"
old-break-time used-break-duration-string)
(format "You have used %s of your break time (%s left)"
(format "You have used %s of your break time\n(%s left)"
used-break-duration-string
(format-seconds chronometrist-third-duration-format chronometrist-third-break-time)))))))
#+END_SRC
@ -207,7 +207,7 @@ break time is up."
(let* ((latest-work-duration (chronometrist-interval (chronometrist-latest-record (chronometrist-active-backend))))
(break-time-increment (/ latest-work-duration chronometrist-third-divisor)))
(cl-incf chronometrist-third-break-time break-time-increment)
(alert (format "You have gained %s of break time (%s total)"
(alert (format "You have gained %s of break time\n(%s total)"
(format-seconds chronometrist-third-duration-format break-time-increment)
(format-seconds chronometrist-third-duration-format chronometrist-third-break-time)))
;; start alert timer(s)