diff options
Diffstat (limited to '.emacs.local.d/lisp/packages/rul-org-agenda.el')
| -rw-r--r-- | .emacs.local.d/lisp/packages/rul-org-agenda.el | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/.emacs.local.d/lisp/packages/rul-org-agenda.el b/.emacs.local.d/lisp/packages/rul-org-agenda.el index 60ab9de..7a6e787 100644 --- a/.emacs.local.d/lisp/packages/rul-org-agenda.el +++ b/.emacs.local.d/lisp/packages/rul-org-agenda.el @@ -395,22 +395,9 @@ as the default task." ; For tag searches ignore tasks with scheduled and deadline dates (setq org-agenda-tags-todo-honor-ignore-options t) -;; Credits: https://200ok.ch/posts/2022-02-13_integrating_org_mode_agenda_into_other_calendar_apps.html -(defun org-agenda-export-to-ics () - ;; Run all custom agenda commands that have a file argument. - (org-batch-store-agenda-views) - - ;; Org mode correctly exports TODO keywords as VTODO events in ICS. - ;; However, some proprietary calendars do not really work with - ;; standards (looking at you Google), so VTODO is ignored and only - ;; VEVENT is read. - (with-current-buffer (find-file-noselect my-org-agenda-private-local-path) - (goto-char (point-min)) - (while (re-search-forward "VTODO" nil t) - (replace-match "VEVENT")) - (save-buffer)) - - ;; Copy the ICS file to a remote server (Tramp paths work). - (copy-file my-org-agenda-private-local-path my-org-agenda-private-remote-path t)) +(setq org-icalendar-include-body nil) +(setq org-icalendar-include-bbdb-anniversaries t) +(setq org-icalendar-include-todo t) +(setq org-icalendar-use-scheduled '(todo-start event-if-not-todo event-if-todo-not-done)) (provide 'rul-org-agenda) |