emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: Russell Adams <RLAdams@AdamsInfoServ.Com>
To: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Ical import in Emacs 27.1 core packages
Date: Thu, 13 Aug 2020 15:45:38 +0200	[thread overview]
Message-ID: <20200813134538.GA19268@maokai> (raw)

Hello Org-ers!

I've just upgraded to Emacs 27.1 and the latest Org
(9.3.7-18-g093b47-elpa). While reviewing my init.el I found I was
still depending on org-import-icalendar.el to import ics files.

The link on Worg for this file is broken, and I could not find a good
source. It's not in ELPA or MELPA, so I felt it was a dead end.

Instead I discovered that Emacs Gnus already has an icalendar importer
which includes some Org functions! I'm not sure when they were
introduced, but I wanted to share because it's a built-in.

In my init.el:

#+begin_src lisp
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Ical

  ;; Import ical files
  (require 'gnus-icalendar)
  (add-to-list 'org-capture-templates
               '("#" "Ical capture target" plain
                 (file "~/doc/OrgFiles/Agenda.org")
                 "%i"
                 :immediate-finish t :empty-lines 1))
  (setq gnus-icalendar-org-template-key "#")

  (defun rla-import-ical-to-org-capture (filename)
    (with-temp-buffer
      (insert-file-contents filename)
      (gnus-icalendar:org-event-save
       (gnus-icalendar-event-from-buffer (current-buffer))
       nil)))
#+end_src

The key is to have a predefined org-capture template created for
Gnus. There is a function to create one for you, but I preferred to
make one by hand which is just a plain Org file with each new event
appended to the end of the file. The Agenda.org file is also in my
agenda list.

Then I added a simple wrapper function to import an external file into
a buffer for Gnus to save to Org. I think Gnus called it with a buffer
which already contained the ical attachment from the mail message it
was currently viewing.

Now in Mutt if I receive a calendar invite, I can use mailcap to
import it into Org.

#+begin_src text
  text/calendar; emacsclient -e '(rla-import-ical-to-org-capture "%s")' ; copiousoutput
  application/ics; emacsclient -e '(rla-import-ical-to-org-capture "%s")' ; copiousoutput
#+end_src

Please let me know if this works for anyone else. It may be worth
documenting on Worg.

------------------------------------------------------------------
Russell Adams                            RLAdams@AdamsInfoServ.com

PGP Key ID:     0x1160DCB3           http://www.adamsinfoserv.com/

Fingerprint:    1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3

                 reply	other threads:[~2020-08-13 13:49 UTC|newest]

Thread overview: [no followups] expand[flat|nested]  mbox.gz  Atom feed

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20200813134538.GA19268@maokai \
    --to=rladams@adamsinfoserv.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).