|
|
|
@ -57,8 +57,6 @@
|
|
|
|
;;
|
|
|
|
;;
|
|
|
|
;; ERROR:
|
|
|
|
;; ERROR:
|
|
|
|
;;
|
|
|
|
;;
|
|
|
|
;; BUG: Break timer displays wrong time and sign
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Optional
|
|
|
|
;; Optional
|
|
|
|
(require 'icicles nil t)
|
|
|
|
(require 'icicles nil t)
|
|
|
|
@ -381,9 +379,9 @@ registered" sym-name)
|
|
|
|
(time-add start-ts
|
|
|
|
(time-add start-ts
|
|
|
|
(if (eq state 'work)
|
|
|
|
(if (eq state 'work)
|
|
|
|
(tacc-work-period cycle)
|
|
|
|
(tacc-work-period cycle)
|
|
|
|
(if (eq state 'break)
|
|
|
|
(if (eq state 'break)
|
|
|
|
(tacc-break-period cycle))
|
|
|
|
(tacc-break-period cycle)
|
|
|
|
0))))
|
|
|
|
0)))))
|
|
|
|
|
|
|
|
|
|
|
|
;; 05.3 State manipulation
|
|
|
|
;; 05.3 State manipulation
|
|
|
|
|
|
|
|
|
|
|
|
|