diff --git a/home/roles/emacs/doom/config.el b/home/roles/emacs/doom/config.el index f3f6561..205413c 100644 --- a/home/roles/emacs/doom/config.el +++ b/home/roles/emacs/doom/config.el @@ -167,7 +167,12 @@ "Advice to add DEADLINE for UNTIL in recurring events." (let ((result (funcall orig-fun eventdata-alist))) (let* ((rrule-props (alist-get 'rrule-props eventdata-alist)) - (until-str (cadr (assq 'UNTIL rrule-props)))) + (until-str (cadr (assoc 'UNTIL rrule-props))) + (summary (alist-get 'summary eventdata-alist))) + ;; Debug: log what we're seeing (remove after debugging) + (when rrule-props + (message "CALDAV-DEBUG: %s | rrule-props: %S | until: %s" + (or summary "?") rrule-props until-str)) (when until-str (save-excursion (org-back-to-heading t)