From 3ecbcf11346136134a977b0421488b001b479cc7 Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Fri, 2 Jan 2015 19:55:51 -0500
Subject: Fix sx-bot-fetch-and-write-tags

sx-bot-write-to-file expects a cons cell.
---
 bot/sx-bot.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'bot/sx-bot.el')

diff --git a/bot/sx-bot.el b/bot/sx-bot.el
index f7e0557..e80894f 100644
--- a/bot/sx-bot.el
+++ b/bot/sx-bot.el
@@ -46,8 +46,10 @@ File is savedd in `sx-bot-out-dir'."
   "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
-        ;; @TODO: Not yet implemented!
-        (mapcar #'sx-tag--get-all (sx-site-get-api-tokens))))
+        (mapcar
+         (lambda (site) (cons site (sx-tag--get-all site)))
+         (sx-site-get-api-tokens))))
+
 
 ;;; Newest
 (provide 'sx-bot)
-- 
cgit v1.2.3