diff options
Diffstat (limited to 'gui/conf/init.el')
| -rw-r--r-- | gui/conf/init.el | 23 |
1 files changed, 22 insertions, 1 deletions
diff --git a/gui/conf/init.el b/gui/conf/init.el index 6e32cf8..7c3c242 100644 --- a/gui/conf/init.el +++ b/gui/conf/init.el @@ -204,6 +204,11 @@ (org-icalendar-use-deadline '(event-if-not-todo event-if-todo)) (org-icalendar-use-scheduled '(event-if-not-todo event-if-todo)) (org-agenda-skip-deadline-prewarning-if-scheduled t) + (org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s %b") + (todo . " %i %-12:c %b") + (tags . " %i %-12:c %b") + (search . " %i %-12:c %b"))) + (org-agenda-breadcrumbs-separator " ❯ ") :init (require 'org-protocol) (require 'ox-bibtex) @@ -286,7 +291,23 @@ ("a" "Daily Agenda" ((tags-todo "+PRIORITY={A}" ((org-agenda-overriding-header "Top Priorities"))) - (agenda "" nil))))) + (agenda "" nil) + (agenda "" + ((org-agenda-span 'week) + (org-agenda-start-day "+1w") + (org-agenda-overriding-header + (format-time-string "Next Week-agenda (W%V)" (org-read-date nil t "+1w"))))) + (agenda "" + ((org-agenda-span 'month) + (org-agenda-start-day "+2w") + (org-agenda-time-grid nil) + (org-agenda-show-all-dates nil) + (org-agenda-overriding-header + (let* ((start (org-read-date nil t "+2w")) + (end (time-add start (days-to-time 30)))) + (format "Farther away (%s - %s)" + (format-time-string "%d %B %Y" start) + (format-time-string "%d %B %Y" end)))))))))) (defcustom custom/org-agenda-frame-name "**Agenda**" "Customize dedicated frame name to launch `org-agenda' in." |