cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- added 'local-user-acct';

Browse Source 
- moved 'get-following' from api-pleroma to api-mastodon (this endpoint is not specific to pleroma).
This commit is contained in:
cage
2023-09-27 17:37:33 +02:00
parent 6967793c0a
commit 2c3bac4e54
4 changed files with 17 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
data/scripts/get-following.lisp
View File

@@ -28,9 +28,10 @@
(defun main ()
(connect)
(db-utils:with-ready-database (:connect t)
(let* ((username (db:acct->id (swconf:config-username)))
(let* ((username (swconf:config-username))
(local-server-name (swconf:config-server-name))
(follows-accounts (api-pleroma:get-following username)))
(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)