diff options
Diffstat (limited to 'emacs-config.org')
| -rw-r--r-- | emacs-config.org | 174 |
1 files changed, 171 insertions, 3 deletions
diff --git a/emacs-config.org b/emacs-config.org index 6bf800f..d32f102 100644 --- a/emacs-config.org +++ b/emacs-config.org @@ -635,7 +635,7 @@ Add =doc= LaTeX class. ) #+end_src -** Org Habit +*** Org Habit #+begin_src elisp (with-eval-after-load "org-habit" (setq-default @@ -643,7 +643,7 @@ Add =doc= LaTeX class. org-habit-completed-glyph ?+)) #+end_src -** Org Agenda +*** Org Agenda :PROPERTIES: :header-args:elisp: :tangle no :noweb-ref org-agenda-settings :END: @@ -718,7 +718,175 @@ Set time grid. "⏰" "——————————————————————————————")) #+end_src -** Org Clock-table +**** Org Agenda Commands +Command to view to personal planner. +#+begin_src elisp + (cl-pushnew '("=" "Day Planner: Personal" + ((agenda "" ((org-agenda-overriding-header "PERSONAL AGENDA:") + (org-agenda-span 'day) + (org-agenda-include-deadlines nil) + (org-agenda-show-all-dates nil))) + + (agenda "" ((org-agenda-overriding-header "\nPERSONAL DEADLINES:") + (org-agenda-span 'day) + (org-agenda-format-date "%F %A") + (org-agenda-entry-types '(:deadline)) + (org-agenda-skip-deadline-if-done t))) + + (tags-todo "-goal/TODO" ((org-agenda-overriding-header "\nPERSONAL TASKS:")))) + + ((org-habit-show-habits nil) + (org-agenda-include-diary nil) + (org-agenda-use-time-grid nil) + (org-agenda-block-separator nil) + (org-agenda-category-filter-preset '("-Work")))) + org-agenda-custom-commands) +#+end_src + +Command to view work planner. +#+begin_src elisp + (cl-pushnew '("-" "Day Planner: Work" + ((agenda "" ((org-agenda-overriding-header "WORK AGENDA:") + (org-agenda-start-day "monday") + (org-agenda-span 5) + (org-agenda-include-deadlines nil) + (org-agenda-show-all-dates nil) + (org-habit-show-habits nil))) + + (agenda "" ((org-agenda-overriding-header "\nWORK DEADLINES:") + (org-agenda-span 'day) + (org-agenda-time-grid nil) + (org-agenda-format-date "%F %A") + (org-agenda-entry-types '(:deadline)) + (org-agenda-skip-deadline-if-done t))) + + (alltodo "" ((org-agenda-overriding-header "\nWORK TASKS:")))) + + ((org-agenda-block-separator nil) + (org-agenda-category-filter-preset '("+Work")))) + org-agenda-custom-commands) +#+end_src + +Command to view all personal tasks. +#+begin_src elisp + (cl-pushnew '("l" "All Personal Tasks" + tags-todo "-goal-milestone" + ((org-agenda-overriding-header "PERSONAL TASKS:") + (org-agenda-category-filter-preset '("-Work")))) + org-agenda-custom-commands) +#+end_src + +Command to view all work tasks. +#+begin_src elisp + (cl-pushnew '("k" "All Work Related Tasks" + todo "" + ((org-agenda-overriding-header "WORK TASKS:") + (org-agenda-category-filter-preset '("+Work")))) + org-agenda-custom-commands) +#+end_src + +Command to organise idle tasks. +#+begin_src elisp + (cl-pushnew '("o" "Organise Tasks" + todo "IDLE" + ((org-agenda-overriding-header "TASKS TO ORGANISE:"))) + org-agenda-custom-commands) +#+end_src + +Command to view tasks that require archiving. +#+begin_src elisp + (cl-pushnew '("$" "Tasks to Archive" + tags "CLOSED<=\"<-3m>\"+CATEGORY={Task}/DONE|AXED" + ((org-agenda-show-inherited-tags nil) + (org-agenda-todo-list-sublevels nil) + (org-agenda-search-view-max-outline-level 1) + (org-agenda-overriding-header "PERSONAL TASKS TO ARCHIVE"))) + org-agenda-custom-commands) +#+end_src + +Command to view habits. +#+begin_src elisp + (cl-pushnew '("h" "Habits" + tags-todo "STYLE=\"habit\"" + ((org-agenda-overriding-header "HABITS:"))) + org-agenda-custom-commands) +#+end_src + +Command to view projects. +#+begin_src elisp + (cl-pushnew + '("p" "Projects" + ((tags-todo "+proj|+goal|+milestone" + ((org-agenda-overriding-header "PROJECTS:"))) + (tags-todo "-proj-goal-milestone" + ((org-agenda-overriding-header "\nPROJECT TASKS:")))) + ((org-agenda-prefix-format "⬜ %?2i%-5c%?t%?s%(+org-agenda-breadcrumb)") + (org-agenda-compact-blocks t) + (org-agenda-category-filter-preset +project-categories) + (org-agenda-sorting-strategy + '(category-up deadline-up time-up priority-down effort-up)))) + org-agenda-custom-commands) +#+end_src + +Command to view clock report. +#+begin_src elisp + (cl-pushnew '("c" "Clock Review" + agenda "" + ((org-agenda-span 'day) + (org-agenda-prefix-format " %-5c | %t | %s | ") + (org-agenda-archives-mode t) + (org-agenda-use-time-grid nil) + (org-agenda-start-with-log-mode 'clockcheck) + (org-agenda-start-with-clockreport-mode t) + (org-agenda-clock-consistency-checks + '(:min-duration 0 + :max-gap 5 + :inherit 'warning + :default-face ((:background 'unspecified) + (:family "monospace"))))))) + org-agenda-custom-commands) +#+end_src + +Command to review the week. +#+begin_src elisp + (cl-pushnew '("r" "Review: Week" + agenda "" + ((org-agenda-overriding-header + (format "WEEK %s REVIEW" + (format-time-string "%U" (current-time)))) + (org-habit-show-habits nil) + (org-agenda-span 'week) + (org-agenda-include-diary nil) + (org-agenda-show-all-dates t) + (org-agenda-clockreport-mode t))) + org-agenda-custom-commands) +#+end_src + +Command to review the month. +#+begin_src elisp + (cl-pushnew '("R" "Review: Month" + agenda "" + ((org-agenda-overriding-header + (format "%s REVIEW" + (upcase (format-time-string "%B" (current-time))))) + (org-habit-show-habits nil) + (org-agenda-span 'month) + (org-agenda-include-diary nil) + (org-agenda-show-all-dates t) + (org-agenda-start-with-clockreport-mode t))) + org-agenda-custom-commands) +#+end_src + +Command to review the weekend. +#+begin_src elisp + (cl-pushnew '("w" "Review: Weekend" + agenda "" + ((org-agenda-overriding-header "WEEKEND REVIEW") + (org-agenda-span 2) + (org-agenda-start-day "saturday"))) + org-agenda-custom-commands) +#+end_src +*** Org Clock-table Define a custom clocktable formatter function for ~+org-clocktable-format~. #+begin_src elisp (with-eval-after-load 'org-clock |