diff options
Diffstat (limited to 'lisp/documents.el')
| -rw-r--r-- | lisp/documents.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/documents.el b/lisp/documents.el index 739fe56..dcb41ec 100644 --- a/lisp/documents.el +++ b/lisp/documents.el @@ -224,9 +224,7 @@ Visits LINK, or if LINK names a subdirectory of "~/Notes/GTD/Inbox.org" "~/Notes/GTD/Actionable.org")) - (let ((entry-done - '(lambda () (org-agenda-skip-entry-if 'todo 'done))) - (subtree-is-not-calendar-item + (let ((subtree-is-not-calendar-item '(lambda () (let ((subtree-end (save-excursion (org-end-of-subtree t)))) (if (or (string= (org-entry-get nil "STYLE") "habit") @@ -271,6 +269,7 @@ Visits LINK, or if LINK names a subdirectory of ((org-agenda-span 'day) (org-agenda-skip-function ,subtree-is-not-calendar-item) (org-agenda-overriding-header "Schedule Today:") + (org-deadline-warning-days 0) (org-agenda-prefix-format " %i %-12:c%t %l"))) (agenda "" ((org-agenda-span 'day) @@ -346,17 +345,18 @@ Visits LINK, or if LINK names a subdirectory of ;; Functionality to add a `CREATED' property -- I don't need something so ;; intrusive that it inserts it for every heading. I can use my own ;; discretion. - (defun log-todo-creation-date (&rest ignore) + (defun log-todo-creation-date (&rest args) "Log TODO creation time in the property drawer under the key 'CREATED'." (interactive) + (ignore args) (when (and (org-get-todo-state) (not (org-entry-get nil "CREATED"))) (org-entry-put nil "CREATED" (format-time-string (cdr org-time-stamp-formats))))) ;; Patch in an offset for tag alignment. (Without this, they will warp in a ;; way which I do not like.) - :init - (el-patch-defun org-agenda-align-tags (&optional line) + :config/el-patch + (defun org-agenda-align-tags (&optional line) "Align all tags in agenda items to `org-agenda-tags-column'. When optional argument LINE is non-nil, align tags only on the current line." |