sqrtminusone/pomm.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/pomm.el.git synced 2025-12-10 14:43:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

pomm: fix byte-compile (x2)

Browse source
This commit is contained in:
Pavel Korytov 2024-07-10 00:56:26 +03:00
parent 1b06edc33a
commit ba0b308886
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
pomm-third-time.el
View file

@ -35,6 +35,11 @@
(require 'transient)
(require 'calc)
;; XXX optional dependency on org-clock
(declare-function org-clock-in-last "org-clock")
(declare-function org-clock-out "org-clock")
(defvar org-clock-current-task)
(defgroup pomm-third-time nil
"Third Time timer implementation."
:group 'pomm)
@ -249,7 +254,9 @@ return it, otherwise, return a value like a calc error."
0))
(defun pomm-third-time--total-time (&optional kind)
"Get total time spent in `state` in the current iteration."
"Get total time spent in `state` in the current iteration.
KIND is the same as in `pomm-third-time--state'."
(let* ((kind (if kind kind 'work))
(iteration (alist-get 'iteration
(alist-get 'current pomm-third-time--state)))

4
pomm.el
View file

@ -46,8 +46,8 @@
(require 'transient)
;; XXX optional dependency on org-clock
(declare-function "org-clock-in-last" "org-clock")
(declare-function "org-clock-out" "org-clock")
(declare-function org-clock-in-last "org-clock")
(declare-function org-clock-out "org-clock")
(defvar org-clock-current-task)
(defgroup pomm nil