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: try to fix buttons display

Browse source
This commit is contained in:
Pavel Korytov 2023-12-19 23:22:56 +03:00
parent 86c2583bc3
commit 7a77bb3540
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
org-clock-agg.el
View file

@ -121,8 +121,8 @@ The following format specifiers are available:
`:readable-name' parameter) `:readable-name' parameter)
- %z - time spent in the node according to - %z - time spent in the node according to
`org-clock-agg-duration-format' `org-clock-agg-duration-format'
- %s - time share of the node against the parent node - %S - time share of the node against the parent node
- %S - time share of the node against the top-level node - %s - time share of the node against the top-level node
Refer to `format-spec' for available modifiers. Refer to `format-spec' for available modifiers.
@ -1253,6 +1253,10 @@ available group and sort functions; use `org-clock-agg-defgroupby' and
(:extra-params . ,extra-params))) (:extra-params . ,extra-params)))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(org-clock-agg--render-controls) (org-clock-agg--render-controls)
;; XXX No idea why, but setting these variables with let
;; doesn't work when the package is loaded.
(setq-local widget-push-button-prefix "")
(setq-local widget-push-button-suffix "")
(org-clock-agg-refresh)) (org-clock-agg-refresh))
(goto-char (point-min))))) (goto-char (point-min)))))