pixelifytica/emacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Experimenting with gnus-icalendar functions for ics2org.el

Browse source
This commit is contained in:
Evie Litherland-Smith 2024-07-16 18:03:47 +01:00
parent 8bc691084c
commit 636ebd2a1c
1 changed files with 9 additions and 31 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lib/ics2org.el
View file

@ -33,37 +33,15 @@
(defun ics2org (filename) (defun ics2org (filename)
"Convert ICS file `FILENAME' to Org event format and insert at point." "Convert ICS file `FILENAME' to Org event format and insert at point."
(interactive) (interactive)
(let (output-format (if (not (file-exists-p filename))
event-start (error "File %s not found" filename))
event-end (require 'gnus-icalendar)
event-summary) (find-file filename)
(if (not (file-exists-p filename)) (with-current-buffer "*scratch*"
(error "File %s not found" filename)) (let ((event (gnus-icalendar-event-from-buffer (find-buffer-visiting filename))))
(progn (insert (format "* %s\n\n" (gnus-icalendar--format-summary-line (gnus-icalendar-event:summary event)
(find-file filename) (gnus-icalendar-event:location event))))))
;; Find start time )
(goto-char (point-min))
(re-search-forward "DTSTART:\\(.*\\)")
(setq event-start (date-to-time (match-string 1)))
;; Find end time
(goto-char (point-min))
(re-search-forward "DTEND:\\(.*\\)")
(setq event-end (date-to-time (match-string 1)))
;; Get event summary / title
(goto-char (point-min))
(re-search-forward "SUMMARY:\\(.*\\)")
(setq event-summary (match-string 1))
(previous-buffer))
;; Set a default `output-format', but replace with
;; `org-time-stamp-format' if available
(setq output-format "<%Y-%m-%d %a %H:%M>")
(if (fboundp 'org-time-stamp-format)
(setq output-format (org-time-stamp-format t nil)))
;; Return a formatted `org-mode' entry using parsed data
(format "* %s\n%s--%s\n"
event-summary
(format-time-string output-format event-start)
(format-time-string output-format event-end))))
(provide 'ics2org) (provide 'ics2org)
;;; ics2org.el ends here ;;; ics2org.el ends here