;; get a list of people you are following ;; Copyright © 2021 cage ;; 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 . ;; usage: ;; after configuring tinmop (https://www.autistici.org/interzona/tinmop.html) ;; tinmop -e get-following.lisp > follows.csv (in-package :scripts) (defun connect () (client:init) (client:authorize)) (defun main () (connect) (db-utils:with-ready-database (:connect t) (let* ((local-server-name (swconf:config-server-name)) (user-acct (api-client:local-user-acct)) (follows-accounts (api-client:get-following user-acct))) (loop for account in follows-accounts do (let ((acct (tooter:account-name account))) (if (scan "@" acct) (format t "~s~%" acct) (format t "\"~a@~a\"~%" acct local-server-name))))))) (main)