Render html into a buffer.

[nenadalm]

I'm playing with aws-api a bit now (https://github.com/cognitect-labs/aws-api).

I can retrieve operation documentation using:

(ns app.project.test
  (:require
   [cognitect.aws.client.api :as aws]))

(def s3 (aws/client {:api :s3})

(-> (aws/ops s3)
      :HeadObject
      :documentation)

the problem is that it returns html, which is not that great to read as a plain text.

I figured out (with ai) how to evaluate expression and render it's result using emacs html browser which I've bound to C-c h:

(defun nenadalm-cider-html-eval-last-sexp ()
  (interactive)
  (let ((last-sexp (cider-last-sexp))
        (target (get-buffer-create "*html render*")))
    (cider-interactive-eval
     last-sexp
     (cider-make-eval-handler
      :buffer target
      :on-value (lambda (html-string)
                  (with-current-buffer target
                    (let ((dom (with-temp-buffer
                                 (insert (read html-string))
                                 (libxml-parse-html-region)))
                          (inhibit-read-only t))
                      (erase-buffer)
                      (shr-insert-document dom)
                      (special-mode)
                      (goto-char (point-min))))
                  (pop-to-buffer target))
      :on-stdout #'cider-emit-interactive-eval-output
      :on-stderr #'cider-emit-interactive-eval-err-output)
     nil
     (cider--nrepl-pr-request-plist))))

(use-package cider
  :ensure t
  :bind (:map cider-mode-map
              ("C-c h" . nenadalm-cider-html-eval-last-sexp)))

maybe cider could have something like that integrated? I didn't send pr as I don't know much about elisp or cider internals...