cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2024-12-23 23:51:50 +01:00
Code Issues

- fixed some docstrings.

Browse Source
This commit is contained in:
cage 2024-05-14 19:53:30 +02:00
parent 3db84cb571
commit 946e677acb
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/api-client.lisp
View File

@ -287,35 +287,35 @@ Returns nil if the user did not provided a server in the configuration file"
announcements) announcements)
(defun-api-call favourite-status (status-id) (defun-api-call favourite-status (status-id)
"Favourite a status identified by `status-id'" "Favourite a status identified by `status-id'"
(tooter:favourite *client* (tooter:favourite *client*
status-id)) status-id))
(defun-api-call unfavourite-status (status-id) (defun-api-call unfavourite-status (status-id)
"Unfavourite a status identified by `status-id'" "Unfavourite a status identified by `status-id'"
(tooter:unfavourite *client* (tooter:unfavourite *client*
status-id)) status-id))
(defun-api-call reblog-status (status-id) (defun-api-call reblog-status (status-id)
"Reblog a status identified by `status-id'" "Reblog a status identified by `status-id'"
(tooter:reblog *client* (tooter:reblog *client*
status-id)) status-id))
(defun-api-call unreblog-status (status-id) (defun-api-call unreblog-status (status-id)
"Reblog a status identified by `status-id'" "Reblog a status identified by `status-id'"
(tooter:unreblog *client* (tooter:unreblog *client*
status-id)) status-id))
(defun-api-call follow-tag (tag-name) (defun-api-call follow-tag (tag-name)
"Follow a tag" "Follow a tag"
(tooter:follow-tag *client* tag-name)) (tooter:follow-tag *client* tag-name))
(defun-api-call unfollow-tag (tag-name) (defun-api-call unfollow-tag (tag-name)
"Unfollow a tag" "Unfollow a tag"
(tooter:unfollow-tag *client* tag-name)) (tooter:unfollow-tag *client* tag-name))
(defun-api-call get-followed-tags (&key max-id since-id min-id (limit 20)) (defun-api-call get-followed-tags (&key max-id since-id min-id (limit 20))
"Unfollow a tag" "get a list of tags object that the user follows"
(tooter:collect-all-pages *client* (tooter:collect-all-pages *client*
(tooter:followed-tags *client* (tooter:followed-tags *client*
:max-id max-id :max-id max-id