From 5caf423fde43faefdfcc4d96fe11e1441d522553 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 7 Dec 2014 02:10:58 +0000 Subject: Create the bot --- sx-bot.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 sx-bot.el (limited to 'sx-bot.el') diff --git a/sx-bot.el b/sx-bot.el new file mode 100644 index 0000000..f7e0557 --- /dev/null +++ b/sx-bot.el @@ -0,0 +1,54 @@ +;;; sx-bot.el --- Functions for viewing different tabs. -*- lexical-binding: t; -*- + +;; Copyright (C) 2014 Artur Malabarba + +;; Author: Artur Malabarba + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; + + +;;; Code: + +(require 'sx-site) +(require 'sx-tag) + +(defcustom sx-bot-out-dir "./data/tags/" + "Directory where output tag files are saved." + :type 'directory + :group 'sx) + + +;;; Printing +(defun sx-bot-write-to-file (data) + "Write (cdr DATA) to file named (car DATA). +File is savedd in `sx-bot-out-dir'." + (with-temp-file (expand-file-name (car data) sx-bot-out-dir) + (let (print-length) + (prin1 (cdr data) (current-buffer))))) + + +(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 + ;; @TODO: Not yet implemented! + (mapcar #'sx-tag--get-all (sx-site-get-api-tokens)))) + +;;; Newest +(provide 'sx-bot) +;;; sx-bot.el ends here -- cgit v1.2.3