Add export the Emacs Lisp Data (*.eld)
This commit is contained in:
parent
853c755914
commit
3e187d378c
1 changed files with 10 additions and 1 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue