From 8ef72fc0e00a397647a5240d8273e67fb58a278f Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Sat, 3 Jan 2015 01:53:09 -0500 Subject: One tag per line This will make the diffs much shorter. --- bot/sx-bot.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'bot/sx-bot.el') 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 () -- cgit v1.2.3