aboutsummaryrefslogtreecommitdiff
path: root/.emacs.local.d/lisp/packages
diff options
context:
space:
mode:
authorRaúl Benencia <id@rbenencia.name>2023-05-11 08:12:00 -0700
committerRaúl Benencia <id@rbenencia.name>2023-05-11 08:12:00 -0700
commita305f3c4c5bdc62ca5f5d23461cbb207bcd6622e (patch)
treeb43455384923378d245295a29119cd2537ac0657 /.emacs.local.d/lisp/packages
parent10313724dac90024a1c2abe7768399861cfc2d5f (diff)
emacs: org-icalendar config; remove unused defun
Diffstat (limited to '.emacs.local.d/lisp/packages')
-rw-r--r--.emacs.local.d/lisp/packages/rul-org-agenda.el21
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)
nihil fit ex nihilo