diff options
Diffstat (limited to '.emacs.local.d/modes/org.el')
| -rw-r--r-- | .emacs.local.d/modes/org.el | 56 |
1 files changed, 20 insertions, 36 deletions
diff --git a/.emacs.local.d/modes/org.el b/.emacs.local.d/modes/org.el index d1c0a2f..c04e01f 100644 --- a/.emacs.local.d/modes/org.el +++ b/.emacs.local.d/modes/org.el @@ -34,10 +34,6 @@ (global-set-key (kbd "C-c a") #'org-agenda) (global-set-key (kbd "C-c c") #'org-capture) - -(global-set-key (kbd "<f9> I") 'bh/punch-in) -(global-set-key (kbd "<f9> O") 'bh/punch-out) - ;; ORG STATES ;; (setq org-todo-keywords (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d)") @@ -99,13 +95,6 @@ '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 3))) -; Exclude DONE state tasks from refile targets -(defun bh/verify-refile-target () - "Exclude todo keywords with a done state from refile targets" - (not (member (nth 2 (org-heading-components)) org-done-keywords))) - -(setq org-refile-target-verify-function 'bh/verify-refile-target) - ; Targets complete directly with IDO (setq org-outline-path-complete-in-steps nil) @@ -173,6 +162,26 @@ (org-agenda-entry-types '(:deadline)) (org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "\nš Upcoming deadlines (+14d)\n"))) + + (tags-todo "REFILE" + ((org-agenda-overriding-header "Tasks to Refile") + (org-agenda-block-separator nil) + )) + + (tags-todo "-CANCELLED/!" + ((org-agenda-overriding-header "Stuck Projects") + (org-agenda-skip-function 'bh/skip-non-stuck-projects) + (org-agenda-block-separator nil) + (org-agenda-sorting-strategy + '(category-keep)))) + + (tags-todo "-HOLD-CANCELLED/!" + ((org-agenda-overriding-header "Projects") + (org-agenda-skip-function 'bh/skip-non-projects) + (org-agenda-block-separator nil) + (org-tags-match-list-sublevels 'indented) + (org-agenda-sorting-strategy + '(category-keep)))) )) )) @@ -184,31 +193,6 @@ (setq org-agenda-dim-blocked-tasks nil) (setq org-agenda-block-separator 61) -(defun bh/skip-non-archivable-tasks () - "Skip trees that are not available for archiving" - (save-restriction - (widen) - ;; Consider only tasks with done todo headings as archivable candidates - (let ((next-headline (save-excursion (or (outline-next-heading) (point-max)))) - (subtree-end (save-excursion (org-end-of-subtree t)))) - (if (member (org-get-todo-state) org-todo-keywords-1) - (if (member (org-get-todo-state) org-done-keywords) - nil - (or subtree-end (point-max))) - next-headline)))) - -(defun bh/org-auto-exclude-function (tag) - "Automatic task exclusion in the agenda with / RET" - (and (cond - ((string= tag "hold") - t)) - (concat "-" tag))) - -(setq org-agenda-auto-exclude-function 'bh/org-auto-exclude-function) -(setq org-agenda-span 'day) -(setq org-deadline-warning-days 30) - - (defun bh/is-project-p () "Any task with a todo keyword subtask" (save-restriction |