tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Make default clocktable properties configurable 

Jeff Kowalczyk writes:

> I frequently use clocktables, and always use scope: subtree. The
> default scope is file.
>
> If it doesn't exist already (I didn't find it with grep), an org
> customization variable for this preference would be very helpful.
This commit is contained in:
Carsten Dominik 2009-09-17 07:33:54 +01:00
parent 296a83dbaa
commit cbafbe5f08
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>
* org-clock.el (org-clock-clocktable-default-properties): New
option.
(org-clock-report): Use
`org-clock-clocktable-default-properties'.
2009-09-16 Carsten Dominik <carsten.dominik@gmail.com> 2009-09-16 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-iswitchb-completing-read): Fix typo. * org.el (org-iswitchb-completing-read): Fix typo.

10
lisp/org-clock.el
View File

@ -201,6 +201,12 @@ string as argument."
(string :tag "Program") (string :tag "Program")
(function :tag "Function"))) (function :tag "Function")))
(defcustom org-clock-clocktable-default-properties '(:maxlevel 2 :scope file)
"Default properties for new clocktables."
:group 'org-clock
:type 'plist)
(defvar org-clock-in-prepare-hook nil (defvar org-clock-in-prepare-hook nil
"Hook run when preparing the clock. "Hook run when preparing the clock.
This hook is run before anything happens to the task that This hook is run before anything happens to the task that
@ -1035,8 +1041,8 @@ buffer and update it."
(org-show-entry)) (org-show-entry))
(if (org-in-clocktable-p) (if (org-in-clocktable-p)
(goto-char (org-in-clocktable-p)) (goto-char (org-in-clocktable-p))
(org-create-dblock (list :name "clocktable" (org-create-dblock (append (list :name "clocktable")
:maxlevel 2 :scope 'file))) org-clock-clocktable-default-properties)))
(org-update-dblock)) (org-update-dblock))
(defun org-in-clocktable-p () (defun org-in-clocktable-p ()