render event description html

[mooseyboots]

my calendar event descriptions almost always have a bunch of html in them.

it seems like it is possible to render it like so, in org-gcal--update-entry:

    ;; Insert event description if present.
    (when desc
      (let ((beg (point)))
        (insert (replace-regexp-in-string "^\*" "✱" desc))
        (shr-render-region beg (point)))
      (insert (if (string= "\n" (org-gcal--safe-substring desc -1)) "" "\n")))

link to the code:

org-gcal.el/org-gcal.el

Line 1731 in 9f9d93e

;; Insert event description if present.

this makes my events much easier to read.

perhaps this could be a customize option or something? (i don't know this library's code, so i'm unsure if this could cause any issues elsewhere.)

[mooseyboots]

actually a better option is probably org-web-tools. something roughly like:

  (defun mb/org-gcal-replace-drawer (str date)
    (let ((beg  ;; end of date line:
           (re-search-forward ">$" nil :noerror)))
      (re-search-forward ":end:" (point-max) :no-error)
      (beginning-of-line)
      (kill-region beg (point))
      (newline 2)
      (insert str)))

  (defun mb/org-gcal-html-to-org (_calendar-id event _update-mode)
    "Add converted HTML>Org version of event description."
    (require 'org-web-tools)
    (let* ((desc (plist-get event :description))
           (conv (if desc
                     (org-web-tools--html-to-org-with-pandoc desc)
                   ""))
           (case-fold-search t)
           (drawer ":org-gcal:"))
      (save-restriction
        (org-narrow-to-subtree)
        (goto-char (point-min))
        (re-search-forward drawer (point-max) :no-error)
        (mb/org-gcal-replace-drawer conv :date))))

  (add-hook 'org-gcal-after-update-entry-functions #'mb/org-gcal-html-to-org)