bram/elfeed-export
1
0
Fork 0
Code Activity

Rename variable

Browse source
This commit is contained in:
Bram Schoenmakers 2024-08-01 22:05:19 +02:00
parent a672d0e230
commit 7697ec34b6
Signed by: bram
GPG key ID: 0CCD19DFDC63258F
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
elfeed-export.el
View file

@ -38,7 +38,7 @@
;;; Code: ;;; Code:
(defcustom elfeed-export-include (defcustom elfeed-export-fields
'(title date url tags feed-title feed content) '(title date url tags feed-title feed content)
"Which fields to export per entry." "Which fields to export per entry."
:group 'elfeed-export) :group 'elfeed-export)
@ -47,19 +47,19 @@
(let ((feed (elfeed-entry-feed entry))) (let ((feed (elfeed-entry-feed entry)))
(remove nil (remove nil
(list (list
(when (memq 'title elfeed-export-include) (when (memq 'title elfeed-export-fields)
(cons "title" (elfeed-entry-title entry))) (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)))) (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))) (cons "url" (elfeed-entry-link entry)))
(when (memq 'tags elfeed-export-include) (when (memq 'tags elfeed-export-fields)
(cons "tags" (elfeed-entry-tags entry))) (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))) (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))) (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)))))))) (cons "content" (elfeed-deref (elfeed-entry-content entry))))))))
(defun elfeed-export-to-json () (defun elfeed-export-to-json ()