emacs: org-icalendar config; remove unused defun

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)