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

org-clock-agg: fix byte-compile

Browse source
This commit is contained in:
Pavel Korytov 2024-07-13 17:55:49 +03:00
parent 8d24bb4ce7
commit d9ce9d189b
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
org-clock-agg.el
View file

@ -50,6 +50,10 @@
(require 'compat) (require 'compat)
(require 'org-ql) (require 'org-ql)
;; XXX byte-compiler on 29.4 started to want this, don't know why
(defvar widget-push-button-prefix)
(defvar widget-push-button-suffix)
(defgroup org-clock-agg nil (defgroup org-clock-agg nil
"Aggregate org-clock statistics." "Aggregate org-clock statistics."
:group 'org-clock) :group 'org-clock)
@ -1144,6 +1148,9 @@ elements as well. LEVEL is the level of the node."
(defun org-clock-agg-view-elems-at-point () (defun org-clock-agg-view-elems-at-point ()
"View elements of the `org-clock-agg' node at point." "View elements of the `org-clock-agg' node at point."
(interactive) (interactive)
;; `org-ql' doesn't requrire this by default, I assume for
;; optimization purposes. I won't interfere.
(require 'org-ql-view)
(let ((node-at-point (get-text-property (point) 'node))) (let ((node-at-point (get-text-property (point) 'node)))
(unless node-at-point (unless node-at-point
(user-error "No node at point!")) (user-error "No node at point!"))