1
0
Fork 0

Add export the Emacs Lisp Data (*.eld)

This commit is contained in:
Bram Schoenmakers 2024-08-03 21:48:37 +02:00
parent 853c755914
commit 3e187d378c
Signed by: bram
GPG key ID: 0CCD19DFDC63258F

View file

@ -133,11 +133,20 @@ return t when the entry should be exported."
"Return the JSON string for all entries that should be exported." "Return the JSON string for all entries that should be exported."
(json-encode (elfeed-export--entries))) (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." "Write the JSON string to a file at PATH."
(interactive "F") (interactive "F")
(write-region (elfeed-export-to-json) nil path nil nil nil t)) (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) (provide 'elfeed-export)
;;; elfeed-export.el ends here ;;; elfeed-export.el ends here