mirror of https://codeberg.org/cage/tinmop/
Compare commits
No commits in common. "25c670d1e7a5de07bb31d52099ccb08e27db65bc" and "3db84cb571b798da72e2dfe7c1e8c4e6be4d0e3f" have entirely different histories.
25c670d1e7
...
3db84cb571
|
@ -96,7 +96,6 @@ dist_man1_MANS = doc/tinmop.man
|
|||
|
||||
$(PACKAGE): $(CONF_PATH_FILE) *.asd src/*
|
||||
$(LISP_COMPILER) \
|
||||
--eval "(require 'asdf)" \
|
||||
--eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \
|
||||
--eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \
|
||||
--eval "(uiop:quit)"
|
||||
|
|
|
@ -1118,7 +1118,6 @@ uninstall-man: uninstall-man1
|
|||
|
||||
$(PACKAGE): $(CONF_PATH_FILE) *.asd src/*
|
||||
$(LISP_COMPILER) \
|
||||
--eval "(require 'asdf)" \
|
||||
--eval "(push \"$$(pwd)/\" asdf:*central-registry*)" \
|
||||
--eval "(asdf:make '$(PACKAGE) :build-pathname \"../$(PACKAGE)\")" \
|
||||
--eval "(uiop:quit)"
|
||||
|
|
|
@ -287,35 +287,35 @@ Returns nil if the user did not provided a server in the configuration file"
|
|||
announcements)
|
||||
|
||||
(defun-api-call favourite-status (status-id)
|
||||
"Favourite a status identified by `status-id'"
|
||||
"Favourite a status identified by `status-id'"
|
||||
(tooter:favourite *client*
|
||||
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*
|
||||
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*
|
||||
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*
|
||||
status-id))
|
||||
|
||||
(defun-api-call follow-tag (tag-name)
|
||||
"Follow a tag"
|
||||
"Follow a tag"
|
||||
(tooter:follow-tag *client* tag-name))
|
||||
|
||||
(defun-api-call unfollow-tag (tag-name)
|
||||
"Unfollow a tag"
|
||||
"Unfollow a tag"
|
||||
(tooter:unfollow-tag *client* tag-name))
|
||||
|
||||
(defun-api-call get-followed-tags (&key max-id since-id min-id (limit 20))
|
||||
"get a list of tags object that the user follows"
|
||||
"Unfollow a tag"
|
||||
(tooter:collect-all-pages *client*
|
||||
(tooter:followed-tags *client*
|
||||
:max-id max-id
|
||||
|
|
Loading…
Reference in New Issue