mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -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) recurring-days)
(let ((repeat "+1w") (let ((repeat "+1w")
(dates (seq-sort-by (dates (seq-sort-by
'car #'car
'time-less-p #'time-less-p
(seq-map (lambda (x) (seq-map (lambda (x)
(gnus-icalendar--find-day start end x)) (gnus-icalendar--find-day start end x))
recurring-days)))) recurring-days))))
(mapconcat (lambda (x) (mapconcat (lambda (x)
(gnus-icalendar-event--org-timestamp (car x) (cadr 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)))) (gnus-icalendar-event--org-timestamp start end org-repeat))))
(defun gnus-icalendar--format-summary-line (summary &optional location) (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)))) (capitalize (symbol-name participation-type))))
("Method" ,method)))) ("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 (setq headers (append headers
`(("Status" ,(or reply-status "Not replied yet")))))) `(("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 (delq nil (list
`("Show Agenda" gnus-icalendar-show-org-agenda ,event) `("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)) `(,export-button-text gnus-icalendar-sync-event-to-org ,event))
(when org-entry-exists-p (when org-entry-exists-p
`("Show Org Entry" gnus-icalendar--show-org-event ,event)))))) `("Show Org Entry" gnus-icalendar--show-org-event ,event))))))