Rename variable
This commit is contained in:
parent
a672d0e230
commit
7697ec34b6
1 changed files with 8 additions and 8 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Reference in a new issue