forked from colonelpanic/dotfiles
org-todo-at-date
This commit is contained in:
parent
ce74d3ea3e
commit
df280bc137
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user