Track creation times of TODO items made in captures.

This commit is contained in:
Ivan Malison 2015-01-12 11:45:05 -08:00
parent 36f05c98d5
commit eb14992d5f

View File

@ -609,6 +609,48 @@ The current directory is assumed to be the project's root otherwise."
("C-c C-S-t" . org-todo-force-notes)) ("C-c C-S-t" . org-todo-force-notes))
:config :config
(progn (progn
(defun org-capture-make-todo-template (&optional content)
(unless content (setq content "%?"))
(with-temp-buffer
(org-mode)
(org-insert-heading)
(insert content)
(org-todo "TODO")
(org-set-property "CREATED"
(with-temp-buffer
(org-insert-time-stamp (org-current-effective-time) t)))
(remove-hook 'post-command-hook 'org-add-log-note)
(org-add-log-note)
(buffer-substring-no-properties (point-min) (point-max))))
(defun org-todo-force-notes ()
(interactive)
(let ((org-todo-log-states
(mapcar (lambda (state)
(list state 'note 'time))
(apply 'append org-todo-sets))))
(cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(defun org-make-habit ()
(interactive)
(org-set-property "STYLE" "habit"))
(defun org-insert-habit ()
(interactive)
(org-insert-todo-heading nil)
(org-make-habit))
(defun org-todo-at-date (date)
(interactive (list (org-time-string-to-time (org-read-date))))
(flet ((org-current-effective-time (&rest r) date)
(org-today (&rest r) (time-to-days date)))
(cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(defun org-capture-make-linked-todo-template ()
(org-capture-make-todo-template "%? %A"))
;; org-mode add-ons ;; org-mode add-ons
(use-package org-present :ensure t) (use-package org-present :ensure t)
(use-package org-projectile (use-package org-projectile
@ -620,7 +662,8 @@ The current directory is assumed to be the project's root otherwise."
(defun imalison:org-projectile:project-todo (&optional arg) (defun imalison:org-projectile:project-todo (&optional arg)
(interactive "P") (interactive "P")
(org-projectile:project-todo-completing-read (org-projectile:project-todo-completing-read
(if arg "* TODO %? %A\n" nil))))) (if arg (org-capture-make-linked-todo-template)
(org-capture-make-todo-template))))))
;; variable configuration ;; variable configuration
(add-to-list 'org-modules 'org-habit) (add-to-list 'org-modules 'org-habit)
@ -648,16 +691,19 @@ The current directory is assumed to be the project's root otherwise."
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks") `("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %?\n")) (function org-capture-make-todo-template)))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("t" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks") `("t" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %? %A\n")) (function org-capture-make-linked-todo-template)))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("c" "Calendar entry" entry `("c" "Calendar entry" entry
(file+headline ,org-calendar-file "Personal") (file+headline ,org-calendar-file "Personal")
"* %?")) "* %? %^T
:PROPERTIES:
:CREATED: %T
:END:"))
(add-to-list 'org-capture-templates (add-to-list 'org-capture-templates
`("y" "Calendar entry" entry `("y" "Calendar entry" entry
@ -669,35 +715,10 @@ The current directory is assumed to be the project's root otherwise."
"* TODO "* TODO
SCHEDULED: %t SCHEDULED: %t
:PROPERTIES: :PROPERTIES:
:STYLE: habit :CREATED: %T
:STYLE: habit
:END:")) :END:"))
(defun org-todo-force-notes ()
(interactive)
(let ((org-todo-log-states
(mapcar (lambda (state)
(list state 'note 'time))
(apply 'append org-todo-sets))))
(cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(defun org-make-habit ()
(interactive)
(org-set-property "STYLE" "habit"))
(defun org-insert-habit ()
(interactive)
(org-insert-todo-heading nil)
(org-make-habit))
(defun org-todo-at-date (date)
(interactive (list (org-time-string-to-time (org-read-date))))
(flet ((org-current-effective-time (&rest r) date)
(org-today (&rest r) (time-to-days date)))
(cond ((eq major-mode 'org-mode) (org-todo))
((eq major-mode 'org-agenda-mode) (org-agenda-todo)))))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p")) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "p"))
(add-to-list 'org-capture-templates (org-projectile:project-todo-entry "l" "* TODO %? %a\n")) (add-to-list 'org-capture-templates (org-projectile:project-todo-entry "l" "* TODO %? %a\n"))