mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

gnus-icalendar.el: Avoid EIEIO's non-standard FOO-p predicates

Browse source 
* lisp/gnus/gnus-icalendar.el (gnus-icalendar-event->gnus-calendar)
(gnus-icalendar-event:inline-org-buttons): Avoid EIEIO's non-standard
FOO-p predicates.
This commit is contained in:
Stefan Monnier 2025-12-03 14:22:47 -05:00
parent ed87a95a78
commit 7f4f9c3b8f
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/gnus-icalendar.el
View file

@ -532,14 +532,15 @@ Return nil for non-recurring EVENT."
recurring-days)
(let ((repeat "+1w")
(dates (seq-sort-by
'car
'time-less-p
#'car
#'time-less-p
(seq-map (lambda (x)
(gnus-icalendar--find-day start end x))
recurring-days))))
(mapconcat (lambda (x)
(gnus-icalendar-event--org-timestamp (car x) (cadr x)
repeat)) dates "\n"))
repeat))
dates "\n"))
(gnus-icalendar-event--org-timestamp start end org-repeat))))
(defun gnus-icalendar--format-summary-line (summary &optional location)
@ -835,7 +836,7 @@ These will be used to retrieve the RSVP information from ical events."
(capitalize (symbol-name participation-type))))
("Method" ,method))))
(when (and (not (gnus-icalendar-event-reply-p event)) rsvp)
(when (and (not (cl-typep event 'gnus-icalendar-event-reply)) rsvp)
(setq headers (append headers
`(("Status" ,(or reply-status "Not replied yet"))))))
@ -964,7 +965,7 @@ These will be used to retrieve the RSVP information from ical events."
(delq nil (list
`("Show Agenda" gnus-icalendar-show-org-agenda ,event)
(when (gnus-icalendar-event-request-p event)
(when (cl-typep event 'gnus-icalendar-event-request)
`(,export-button-text gnus-icalendar-sync-event-to-org ,event))
(when org-entry-exists-p
`("Show Org Entry" gnus-icalendar--show-org-event ,event))))))