From f97c84c2d4a0a8ef6e53333a0a5c528397ccaded Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 8 Dec 2014 12:27:31 +0000 Subject: Move the script to a subdir,. So it's not caught by Melpa --- bot/sx-bot.el | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ bot/sx-bot.sh | 8 ++++++++ sx-bot.el | 54 ------------------------------------------------------ sx-bot.sh | 8 -------- 4 files changed, 62 insertions(+), 62 deletions(-) create mode 100644 bot/sx-bot.el create mode 100755 bot/sx-bot.sh delete mode 100644 sx-bot.el delete mode 100755 sx-bot.sh diff --git a/bot/sx-bot.el b/bot/sx-bot.el new file mode 100644 index 0000000..f7e0557 --- /dev/null +++ b/bot/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 diff --git a/bot/sx-bot.sh b/bot/sx-bot.sh new file mode 100755 index 0000000..176e454 --- /dev/null +++ b/bot/sx-bot.sh @@ -0,0 +1,8 @@ +#!/usr/bin/bash + +git branch gh-pages && + git pull && + emacs -Q --batch -L "./" -l sx-bot -f sx-bot-fetch-and-write-tags && + git commit . && + git push && + echo SUCCESS diff --git a/sx-bot.el b/sx-bot.el deleted file mode 100644 index f7e0557..0000000 --- a/sx-bot.el +++ /dev/null @@ -1,54 +0,0 @@ -;;; 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 diff --git a/sx-bot.sh b/sx-bot.sh deleted file mode 100755 index 176e454..0000000 --- a/sx-bot.sh +++ /dev/null @@ -1,8 +0,0 @@ -#!/usr/bin/bash - -git branch gh-pages && - git pull && - emacs -Q --batch -L "./" -l sx-bot -f sx-bot-fetch-and-write-tags && - git commit . && - git push && - echo SUCCESS -- cgit v1.2.3