Skip to content

Commit

Permalink
pomm: fix byte-compile (x2)
Browse files Browse the repository at this point in the history
  • Loading branch information
SqrtMinusOne committed Jul 9, 2024
1 parent 1b06edc commit ba0b308
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 3 deletions.
9 changes: 8 additions & 1 deletion pomm-third-time.el
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down Expand Up @@ -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)))
Expand Down
4 changes: 2 additions & 2 deletions pomm.el
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit ba0b308

Please sign in to comment.