diff --git a/elfeed-export.el b/elfeed-export.el index 1f5adeb..f605789 100644 --- a/elfeed-export.el +++ b/elfeed-export.el @@ -133,11 +133,20 @@ return t when the entry should be exported." "Return the JSON string for all entries that should be exported." (json-encode (elfeed-export--entries))) -(defun elfeed-export-to-file (path) +(defun elfeed-export-to-lisp () + "Return the Lisp data string for all entries that should be exported." + (prin1-to-string (elfeed-export--entries))) + +(defun elfeed-export-to-json-file (path) "Write the JSON string to a file at PATH." (interactive "F") (write-region (elfeed-export-to-json) nil path nil nil nil t)) +(defun elfeed-export-to-lisp-file (path) + "Write the JSON string to a file at PATH." + (interactive "F") + (write-region (elfeed-export-to-lisp) nil path nil nil nil t)) + (provide 'elfeed-export) ;;; elfeed-export.el ends here