From 2b4018a6755aafa84b066658836b6ee677311184 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Sun, 16 Apr 2023 19:34:20 +0300 Subject: [PATCH] Fix bug in RSS generation --- esy-publish.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/esy-publish.el b/esy-publish.el index fffcd9c..7b0f956 100644 --- a/esy-publish.el +++ b/esy-publish.el @@ -6,7 +6,7 @@ ;; Maintainer: Eshel Yaron ;; Keywords: languages extensions ;; URL: http://git.eshelyaron.com/gitweb/?p=esy-publish.git -;; Package-Version: 0.8.0 +;; Package-Version: 0.9.0 ;; Package-Requires: ((emacs "28.2")) ;; This file is NOT part of GNU Emacs. @@ -322,6 +322,7 @@ (with-current-buffer (find-file-noselect (expand-file-name file esy-publish-local-posts-directory)) + (push (current-buffer) esy-publish--buffers) (let ((dom (libxml-parse-html-region (point-min) (point-max)))) `(item nil (title nil ,(string-join (dom-strings (car (dom-by-tag dom 'title))))) @@ -330,8 +331,7 @@ (link nil ,(concat "https://eshelyaron.com/posts/" file)) (guid ((isPermaLink . "true")) ,(concat "https://eshelyaron.com/posts/" file)) (pubDate nil ,(substring file 0 10)) - (description nil ,(format "" (esy-publish--dom-to-string (car (dom-by-id dom "content"))))))) - (push (current-buffer) esy-publish--buffers))) + (description nil ,(format "" (esy-publish--dom-to-string (car (dom-by-id dom "content"))))))))) (defun esy-publish--finalize-sitemap (plist) (let ((locs (mapcar #'esy-publish--file-url -- 2.39.2