added creation timestamp property

This commit is contained in:
ndwarshuis 2018-12-22 15:04:39 -05:00
parent 7493676c2c
commit 9b4343658f
1 changed files with 10 additions and 5 deletions

View File

@ -915,9 +915,11 @@ and reverts all todo keywords to TODO."
;; a bit redundant and hacky, with the advantage of being effective ;; a bit redundant and hacky, with the advantage of being effective
(when (not (org-insert-item 'checkbox)) (when (not (org-insert-item 'checkbox))
(call-interactively 'org-insert-todo-heading) (call-interactively 'org-insert-todo-heading)
(insert "\n") ;; (insert "\n")
(funcall-interactively 'org-time-stamp-inactive '(16)) ;; (funcall-interactively 'org-time-stamp-inactive '(16))
(forward-line -1))) (let* ((ts (format-time-string (cdr org-time-stamp-formats)))
(ts-ia (concat "[" (substring ts 1 -1) "]")))
(funcall-interactively 'org-set-property "CREATED" ts-ia))))
(defun nd/org-delete-subtree () (defun nd/org-delete-subtree ()
"Delete the entire subtree under the current heading without sending to kill ring." "Delete the entire subtree under the current heading without sending to kill ring."
@ -1318,8 +1320,11 @@ Also here are the properties for repeated tasks and a few others (see comments i
"DELEGATE" "DELEGATE"
;; defines a goal (not currently used) ;; defines a goal
"GOAL")) "GOAL"
;; date of header creation
"CREATED"))
(setq org-global-properties (setq org-global-properties
'(("PARENT_TYPE_ALL" . "periodical iterator") '(("PARENT_TYPE_ALL" . "periodical iterator")