From ba0b30888614a8dc932bd0ab198e08f78950c0e1 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Wed, 10 Jul 2024 00:56:26 +0300 Subject: [PATCH] pomm: fix byte-compile (x2) --- pomm-third-time.el | 9 ++++++++- pomm.el | 4 ++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/pomm-third-time.el b/pomm-third-time.el index 6e8666c..65b7cd5 100644 --- a/pomm-third-time.el +++ b/pomm-third-time.el @@ -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))) diff --git a/pomm.el b/pomm.el index ddf4038..f1af1ff 100644 --- a/pomm.el +++ b/pomm.el @@ -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