From f12ceed5050aebe3a73dd1d72c868d9da2a3ec66 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Fri, 2 Jan 2015 22:16:05 -0500 Subject: Fix get-all function for tag bot * write is done right after retrieval * progress updates after each site --- bot/sx-bot.el | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/bot/sx-bot.el b/bot/sx-bot.el index be12089..8b17e68 100644 --- a/bot/sx-bot.el +++ b/bot/sx-bot.el @@ -47,10 +47,20 @@ File is savedd in `sx-bot-out-dir'." (defun sx-bot-fetch-and-write-tags () "Get a list of all tags of all sites and save to disk." (make-directory sx-bot-out-dir t) - (mapc #'sx-bot-write-to-file - (mapcar - (lambda (site) (cons site (sx-tag--get-all site))) - (sx-site-get-api-tokens)))) + (let* ((url-show-status nil) + (site-tokens (sx-site-get-api-tokens)) + (number-of-sites (length site-tokens)) + (current-site-number 0)) + (mapcar + (lambda (site) + (message "[%d/%d] Working on %S" + (cl-incf current-site-number) + number-of-sites + site) + (sx-bot-write-to-file + (cons (concat site ".el") + (sx-tag--get-all site)))) + site-tokens))) ;;; Newest -- cgit v1.2.3