From 7697ec34b67344d145eb463905aab757424fa617 Mon Sep 17 00:00:00 2001 From: Bram Schoenmakers Date: Thu, 1 Aug 2024 22:05:19 +0200 Subject: [PATCH] Rename variable --- elfeed-export.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/elfeed-export.el b/elfeed-export.el index c01c0c4..1c9d665 100644 --- a/elfeed-export.el +++ b/elfeed-export.el @@ -38,7 +38,7 @@ ;;; Code: -(defcustom elfeed-export-include +(defcustom elfeed-export-fields '(title date url tags feed-title feed content) "Which fields to export per entry." :group 'elfeed-export) @@ -47,19 +47,19 @@ (let ((feed (elfeed-entry-feed entry))) (remove nil (list - (when (memq 'title elfeed-export-include) + (when (memq 'title elfeed-export-fields) (cons "title" (elfeed-entry-title entry))) - (when (memq 'date elfeed-export-include) + (when (memq 'date elfeed-export-fields) (cons "date" (format-time-string "%F %T" (elfeed-entry-date entry)))) - (when (memq 'url elfeed-export-include) + (when (memq 'url elfeed-export-fields) (cons "url" (elfeed-entry-link entry))) - (when (memq 'tags elfeed-export-include) + (when (memq 'tags elfeed-export-fields) (cons "tags" (elfeed-entry-tags entry))) - (when (memq 'feed-title elfeed-export-include) + (when (memq 'feed-title elfeed-export-fields) (cons "feed-title" (elfeed-feed-title feed))) - (when (memq 'feed elfeed-export-include) + (when (memq 'feed elfeed-export-fields) (cons "feed" (elfeed-feed-url feed))) - (when (memq 'content elfeed-export-include) + (when (memq 'content elfeed-export-fields) (cons "content" (elfeed-deref (elfeed-entry-content entry)))))))) (defun elfeed-export-to-json ()