Display comments of a reddit post inside elfeedI spent a few minutes this morning looking for a way…

Display comments of a reddit post inside elfeedI spent a few minutes this morning looking for a way to read comments on a Reddit post within elfeed. After several attempts, I finally got it working. As I mentioned, this function only allows you to read the comments; you can't write comments, and upvoting and downvoting aren't possible. I'm posting this function here anyway, in case someone finds it useful.I should preface this by saying that this function was created by AI; I didn't write it myself.Pressing `q` inside the comment buffer instantly destroys the buffer and closes the split window, returning your screen back to the full Elfeed layout automatically.I've updated the function and added this `(setq body (replace-regexp-in-string "&#39;" "'" body))` to replace `&#39;` with `'` . As my first language is german, and my second language is french, I might have overlooked a few special characters. (require 'xml) (defun my-elfeed-view-reddit-comments () "Fetch and display Reddit comments using an unblocked public RSS schema in a right sidebar." (interactive) (let* ((entry (or elfeed-show-entry (elfeed-search-selected :single))) (link (and entry (elfeed-entry-link entry)))) (if (not link) (error "Could not find a link for the current entry!") (if (not (string-match-p "reddit\\.com" link)) (error "Aborting: This link does not look like a reddit.com URL.")) (let* ((clean-url (replace-regexp-in-string "\\?.*$" "" link)) (rss-url (concat (if (string-match-p "/$" clean-url) (substring clean-url 0 -1) clean-url) ".rss"))) (message "Fetching comment RSS tree...") (let* ((curl-cmd (format "curl -sL -A 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) ElfeedFeedReader/1.0' '%s'" rss-url)) (xml-str (shell-command-to-string curl-cmd))) (setq xml-str (string-trim xml-str)) (cond ((string= xml-str "") (error "Error: Reddit returned an empty RSS feed string.")) ((not (string-prefix-p "<" xml-str)) (error "Error: Server response is not valid XML markup.")) (t (condition-case err (with-temp-buffer (insert xml-str) (goto-char (point-min)) (let* ((xml-tree (xml-parse-region (point-min) (point-max))) (feed-node (car xml-tree)) (entries (xml-get-children feed-node 'entry)) (result-buf (get-buffer-create "*Reddit Comments*"))) (with-current-buffer result-buf (erase-buffer) (insert "REDDIT COMMENTS\n") (insert "=============== \n\n") (if (not entries) (insert "No comments found on this post yet.\n") (dolist (item entries) (let* ((author-node (car (xml-get-children item 'author))) (name-node (car (xml-get-children author-node 'name))) (author (and name-node (car (xml-node-children name-node)))) (content-node (car (xml-get-children item 'content))) (body (and content-node (car (xml-node-children content-node))))) (when (and body (not (string-match-p "submitted by" body))) (setq body (replace-regexp-in-string "<[^>]*>" "" body)) (setq body (replace-regexp-in-string "&lt;" "<" body)) (setq body (replace-regexp-in-string "&gt;" ">" body)) (setq body (replace-regexp-in-string