diff options
| -rw-r--r-- | bot/sx-bot.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/bot/sx-bot.el b/bot/sx-bot.el index 2917a43..702d738 100644 --- a/bot/sx-bot.el +++ b/bot/sx-bot.el @@ -44,9 +44,15 @@ File is savedd in `sx-bot-out-dir'." (let ((file-name (expand-file-name (car data) sx-bot-out-dir))) (with-temp-file file-name - (let (print-length) - (prin1 (cdr data) (current-buffer)))) - (message "Wrote %S" file-name))) + (let* (print-length + (repr (prin1-to-string (cdr data)))) + (insert repr) + (insert "\n") + (goto-char (point-min)) + (while (search-forward "\" \"" nil t) + (replace-match "\"\n \"" nil t)))) + (message "Wrote %S" file-name) + file-name)) (defun sx-bot-fetch-and-write-tags () |