From e1ce1224494f0ce4f4ab547ad02c9a8ff0d38b2d Mon Sep 17 00:00:00 2001 From: Daniel Fleischer Date: Wed, 15 Sep 2021 19:50:02 +0300 Subject: [PATCH] Clean HTML tags from title --- elfeed-lib.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/elfeed-lib.el b/elfeed-lib.el index 4db9f1b..6c4c581 100644 --- a/elfeed-lib.el +++ b/elfeed-lib.el @@ -79,8 +79,10 @@ Align should be a keyword :left or :right." (defun elfeed-cleanup (name) "Trim trailing and leading spaces and collapse multiple spaces." - (let ((trim (replace-regexp-in-string "[\f\n\r\t\v ]+" " " (or name "")))) - (replace-regexp-in-string "^ +\\| +$" "" trim))) + (let* ((trim (replace-regexp-in-string "[\f\n\r\t\v ]+" " " (or name ""))) + (trim (replace-regexp-in-string "^ +\\| +$" "" trim)) + (trim (replace-regexp-in-string "\\(<[^>]+>\\|&[^;]+;\\)" "" trim))) + trim)) (defun elfeed-parse-simple-iso-8601 (string) "Attempt to parse STRING as a simply formatted ISO 8601 date.