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: reset node-value-cache & fix save preset

Browse source
This commit is contained in:
Pavel Korytov 2023-12-12 02:08:52 +03:00
parent 8f2ce1bea2
commit 0b3fa73902
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
org-clock-agg.el
View file

@ -94,7 +94,8 @@ manually after setting."
:type '(repeat string) :type '(repeat string)
:group 'org-clock-agg :group 'org-clock-agg
:set (lambda (&rest _) :set (lambda (&rest _)
(setq org-ql-cache (make-hash-table :weakness 'key)))) (setq org-ql-cache (make-hash-table :weakness 'key))
(setq org-ql-node-value-cache (make-hash-table :weakness 'key))))
(defconst org-clock-agg--extra-params-default (defconst org-clock-agg--extra-params-default
'(("Show elements:" . (checkbox :extras-key :show-elems)) '(("Show elements:" . (checkbox :extras-key :show-elems))
@ -1047,18 +1048,18 @@ return value description."
(unless (derived-mode-p 'org-clock-agg-tree-mode) (unless (derived-mode-p 'org-clock-agg-tree-mode)
(user-error "Not in `org-clock-agg-tree-mode'")) (user-error "Not in `org-clock-agg-tree-mode'"))
(let ((buffer (generate-new-buffer "*org-clock-agg-gen*"))) (let ((buffer (generate-new-buffer "*org-clock-agg-gen*")))
(cl-destructuring-bind (&key from to files groupby sort sort-order show-elems) (cl-destructuring-bind (&key from to files groupby sort sort-order extra-params)
(org-clock-agg--alist-to-plist org-clock-agg--params) (org-clock-agg--alist-to-plist org-clock-agg--params)
(with-current-buffer buffer (with-current-buffer buffer
(emacs-lisp-mode) (emacs-lisp-mode)
(insert (insert
";; Change the function name if necessary\n" ";; Change the function name if necessary\n"
(pp-to-string (pp-to-string
`(defun org-clock-agg-custom-report () `(defun org-clock-agg-custom-report ()
(interactive) (interactive)
(apply #'org-clock-agg (apply #'org-clock-agg
'(,from ,to ,files ,groupby ,sort ,sort-order ,show-elems))))))) '(,from ,to ,files ,groupby ,sort ,sort-order ,extra-params)))))))
(switch-to-buffer buffer))) (switch-to-buffer buffer)))
(defun org-clock-agg (from to files groupby sort sort-order extra-params) (defun org-clock-agg (from to files groupby sort sort-order extra-params)
"Aggregate org-clock data. "Aggregate org-clock data.