org-todo-at-date

This commit is contained in:
Ivan Malison 2014-12-13 21:29:48 -08:00
parent ce74d3ea3e
commit df280bc137

View File

@ -650,12 +650,21 @@ The current directory is assumed to be the project's root otherwise."
`("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks") `("g" "GTD Todo" entry (file+headline ,org-gtd-file "Tasks")
"* TODO %?\n")) "* TODO %?\n"))
(defun org-insert-habit () (defun org-insert-habit ()
(interactive) (interactive)
(org-insert-todo-heading nil) (org-insert-todo-heading nil)
(org-make-habit)) (org-make-habit))
(defun org-date-time-to-internal-time (org-date)
`(,@(apply 'encode-time
(mapcar (lambda (elem) (if elem elem 0))
(subseq (parse-time-string org-date) 0 6))) 0 0))
(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-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"))
@ -977,15 +986,16 @@ The current directory is assumed to be the project's root otherwise."
(defun do-ag (&optional arg) (defun do-ag (&optional arg)
(interactive "P") (interactive "P")
(if arg (helm-do-ag) (helm-projectile-ag))) (if arg (helm-do-ag) (helm-projectile-ag)))
(unbind-key "C-c p s a" projectile-command-map)
(unbind-key "C-c p s g" projectile-command-map)
(unbind-key "C-c p s s" projectile-command-map)
(unbind-key "C-c p s" projectile-command-map)
(projectile-global-mode) (projectile-global-mode)
(setq projectile-enable-caching t) (setq projectile-enable-caching t)
(setq projectile-completion-system 'helm) (setq projectile-completion-system 'helm)
(helm-projectile-on) (helm-projectile-on)
(diminish 'projectile-mode)) (diminish 'projectile-mode)
(unbind-key "C-c p s a" projectile-command-map)
(unbind-key "C-c p s g" projectile-command-map)
(unbind-key "C-c p s s" projectile-command-map)
(unbind-key "C-c p s" projectile-command-map)
(bind-key* "C-c p s" 'do-ag))
:bind (("C-x f" . projectile-find-file-in-known-projects)) :bind (("C-x f" . projectile-find-file-in-known-projects))
:init :init
(progn (progn