"'" "'" body)) (setq body (replace-regexp-in-string """ "\"" body)) (setq body (replace-re…
انتشار: 2026/08/18 11:07 UTCدریافت: 2026/08/20 11:00 UTCآخرین مشاهده: 2026/08/20 11:00 UTC
"'" "'" body)) (setq body (replace-regexp-in-string """ "\"" body)) (setq body (replace-regexp-in-string "&" "&" body)) (insert (format "%s\n%s\n\n%s\n\n" (propertize (or author "u/unknown") 'face 'bold) (string-trim body) (propertize "────────────────────────────────────────" 'face 'shadow))))))) (goto-char (point-min)) ;; Layout & UX Polish: (visual-line-mode 1) ; Soft wrap lines beautifully (read-only-mode 1) ; Prevent accidental editing ;; Bind 'q' to kill the window and buffer seamlessly (local-set-key (kbd "q") (lambda () (interactive) (let ((win (get-buffer-window))) (kill-buffer) (when win (delete-window win)))))) ;; Split layout: create a 100-character wide window on the right (let ((sidebar-win (split-window-right -100))) ;modify the width as you like (set-window-buffer sidebar-win result-buf) (select-window sidebar-win)) (message "Success! Comments displayed in sidebar."))) (error (error "XML structural parsing failed: %s" (error-message-string err))))))))))) ;; Bind it in elfeed-show-mode and elfeed-search-mode (with-eval-after-load 'elfeed (define-key elfeed-show-mode-map (kbd "c") #'my-elfeed-view-reddit-comments) (define-key elfeed-search-mode-map (kbd "c") #'my-elfeed-view-reddit-comments))redd.it/1vrk0e5@r_emacs
